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

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

Форум программистов > Delphi: Звук, графика и видео > Работа с GIF ом...

Автор: Nikkie 5.7.2005, 09:40

Здравствуйте!

Мне требеутся вывести GIF на экран, а затем схратить его в JPEG с определенной высотой и шириной...

Подскажите плз. как это сделать?

Заранее спасибо!

Автор: SoWa 5.7.2005, 18:37

Юзай RxLib, а именно RxGifAnimator.

Автор: s-mike 5.7.2005, 21:00

Цитата(SoWa @ 5.7.2005, 18:37)

RxGifAnimator

Им в Jpeg не сохранишь.

Нужно подключить модуль RxGif, JvGif, ... и использовать предоставляемые ими классы TRxGifImage, TJvGifImage...

В общем виде так:

Код


uses
  RxGif, Jpeg;

...
var
  Gif: TRxGifImage;
  Jpg: TJpegImage;
begin
  Gif := TRxGifImage.Create;
  try
    Gif.LoadFromFile('...');
    Jpg := TJpegImage.Create;
    try
      Jpg.Assign(Gif);
      Jpg.SaveToFile('...');
    finally
      Jpg.Free;
    end;
  finally
    Gif.Free;
  end;
end;

Автор: Nikkie 12.7.2005, 10:59

Сорри был в отпуске, а как бороться с 256 цветами?

И где найти эти модули для дельфи 2005 для Win32

Автор: s-mike 12.7.2005, 11:15

Цитата(Nikkie @ 12.7.2005, 10:59)

Сорри был в отпуске, а как бороться с 256 цветами?

GIF - это такой формат, который поддерживает только 256-цветные изображения. Если нужно высокое сжатие и полноцветность - есть Jpeg, Png (сжимает отлично и без потерь!), Tga (самый быстрый из сжатых форматов, тоже без потерь, но сжатие меньше, чем у Png).
Добавлено @ 11:16

Цитата(Nikkie @ 12.7.2005, 10:59)

И где найти эти модули для дельфи 2005 для Win32

http://rx.delphiplus.org
http://delphi-jedi.org

Автор: Nikkie 12.7.2005, 13:04

Что-то не въеду...

А как с ней управляться? ну запускю я ее... ее что надо кажрый раз компилить или подскажите как ее правильно установить...