Как использовать Animated Gif в форме delphi

Я думаю, что нет никакой поддержки для анимированных изображений gif.

Как наилучшим образом? любой свободный компонент, который позволяет это? Я думал использовать TImage и ImageList + Timer, но мне нужно экспортировать каждый кадр gif в отдельный файл BMP.

Это довольно просто в современном Delphi. Все это встроено. Отбросьте TImage на форму и загрузите анимированный GIF в свойство Picture. Затем запустите анимацию с помощью свойства Animate :

 (Image1.Picture.Graphic as TGIFImage).Animate := True; 

Вы можете управлять анимацией с помощью AnimateLoop и AnimateSpeed . Должно быть довольно легко угадать, как отключить анимацию снова!

Теперь, поскольку вы используете Delphi 7, у вас нет TGIFImage компонента TGIFImage . Однако вы можете загрузить код с сайта Finn Tolderlund (вам нужна последняя версия TGIFImage ). С этой версией компонента вышеприведенный код должен работать нормально, хотя я лично его не использовал, так как несколько лет назад я портировал его с D6 на D2010.

Все эти различные коды TGIFImage самом деле являются версиями одного и того же компонента, первоначально написанного Андерсом Меландером, а в 2007 году пожертвовали Embarcadero для включения в Delphi.

это просто загрузка анимированного gif и не создание одного

 procedure TForm1.FormCreate(Sender: TObject); begin ( Image1.Picture.Graphic as TGIFImage ).Animate := True;// gets it goin' ( Image1.Picture.Graphic as TGIFImage ).AnimationSpeed:= 500;// adjust your speed Form1.DoubleBuffered := True;// stops flickering end; 

stackoverflow помог мне, и поэтому мой немного взамен 🙂

Поиск Google для «Delphi Gif».

http://melander.dk/delphi/gifimage/

теперь часть Delphi

  • Какой самый простой способ сохранить GIFV как простой GIF?
  • Остановите загрузку gif-анимации, при наведении мыши начните активацию
  • Как найти, где начинается Image Block в GIF-изображениях?
  • Как конвертировать видео в GIF, используя ffmpeg, с разумным качеством?
  • Добавление gif-изображения в ImageView в android
  • Давайте будем гением компьютера.