Форум программистов [Powered by Invision Power Board]

Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > Delphi: Звук, графика и видео > GifImage: сохраняет с низким кач-вом

Автор: Alexeyt 7.6.2011, 10:33

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;

это код.

Автор: Snowy 7.6.2011, 11:39

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

Автор: Alexeyt 7.6.2011, 14:48

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

Автор: Snowy 7.6.2011, 15:40

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