VPF::GifImage: сохраняет с низким кач-вом

Alexeyt

Дата 7.6.2011, 10:33 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 332
Регистрация: 15.9.2006
Где: около Москвы

Репутация: 1
Всего: 2

Gifimage с tolderlund.eu
При сохранении 24bpp bitmap (Assign(bmp); SaveToFile(filename);) сохраняет слишком некач-ое изобр-е.
Как будто pixelformat=8bpp. файл. Как сделать норм. кач-во?

Добавлено через 13 минут и 33 секунды

Код


procedure TForm1.FormCreate(Sender: TObject);
var b:tbitmap;
begin
  b:= tbitmap.Create;
  b.PixelFormat:=pf24bit;
  b.LoadFromFile('1.bmp');

  with tgifimage.Create do
  begin
    assign(b);
    SaveToFile('1.gif');
    Free
  end;

  b.Free;
end;

это код.

Это сообщение отредактировал(а) Alexeyt - 7.6.2011, 10:34

Присоединённый файл ( Кол-во скачиваний: 4 )

1__2_.gif 13,96 Kb

Snowy

Дата 7.6.2011, 11:39 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Модератор
Сообщений: 11363
Регистрация: 13.10.2004
Где: Питер

Репутация: 18
Всего: 484

формат gif хранит только восьмибитные изображения.
На большее он не способен - слишком старый формат.
Используй png

Alexeyt

Дата 7.6.2011, 14:48 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 332
Регистрация: 15.9.2006
Где: около Москвы

Репутация: 1
Всего: 2

дело не в этом. не хватало ColorReduction:= crQuantize;

Snowy

Дата 7.6.2011, 15:40 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Модератор
Сообщений: 11363
Регистрация: 13.10.2004
Где: Питер

Репутация: 18
Всего: 484

Ну это ты просто выбрал другой способ ухудшения изображения.
Больше 8 битов от этого не стало smile

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Звук, графика и видео \| Следующая тема »