Gif анимация в TImage.

[werrey]

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

Подскажите пожалуйста, как вывести в компоненте Image Gif анимацию.
В дельфи хе картинка gif загружается, но программа не компилируется, выдаёт ошибку.

Перечитал много, но дельного однозначного ответа так и не нашел!

Заранее благодарю!

[Swarog]

Этот компонент не поддерживает анимацию. Если только вы сами по таймеру не начнете его анимировать, для этого нужно просто почитать спецификацию. Либо используй готовый компонент RxGifAnimator из библиотеки RxLib. Найти ее в инете не сложно.

[werrey]

Сообщение от Swarog

Этот компонент не поддерживает анимацию. Если только вы сами по таймеру не начнете его анимировать, для этого нужно просто почитать спецификацию. Либо используй готовый компонент RxGifAnimator из библиотеки RxLib. Найти ее в инете не сложно.

А как по таймеру анимировать,не подскажите?
RxGifAnimator у меня тоже есть, правда не компилируется почему-то программа, анимация на форме перед компиляцией работает.
А вообще хотелось бы в один компонент подгружать файлы(в зависимости от событий), и анимированые-Gif, и обычные-PNG, RxGifAnimator вроде другие форматы и не загружает.

[Swarog]

А как по таймеру анимировать,не подскажите?

Саздете массив кадров и через определенные промежутки времени (по таймеру) их меняете, вариант разбора gif не самый быстрый, наборы Png не оптимально по размерам но осуществимо, для загрузки вроде есть специальный компонент либо использовать GDI+ что бы прозрачность была

[werrey]

Вот нашел такой вариант, почему он не работает?

Код:
unit Unit1;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, GifImg, ExtCtrls;

type
TForm1 = class(TForm)
Image1: TImage;
Timer1: TTimer;
procedure Timer1Timer(Sender: TObject);
procedure FormCreate(Sender: TObject);
private
Gif: TGifImage;
public
{ Public declarations }
end;

var
Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
begin
Gif := TGifImage.Create;
Gif.LoadFromFile('1.gif');
Gif.Animate := True;
Gif.AnimateLoop := glEnabled;
end;

procedure TForm1.Timer1Timer(Sender: TObject);
begin
Image1.Picture.Assign(Gif);
end;


end.

[Swarog]

а на что ругается?

[werrey]

Сообщение от Swarog

а на что ругается?

Он не ругается тут, просто пустую форму компилирует,пишет что нет такого файла, хотя он есть(((

Хоть бы нормальный пример рассмотреть.

[xrob]

может в Gif тоже есть что-то типа Image1.Picture и надо писать не
Image1.Picture.Assign(Gif);
а
Image1.Picture.Assign(Gif.Picture); ?

да, предположение, а вдруг поможет?

[Swarog]

еще одно предположение у gif должен быть метод paint котоому передается канва на которой нужно рисоваться квадрат в кторый рисовать и опции

[werrey]

Сообщение от Swarog

еще одно предположение у gif должен быть метод paint котоому передается канва на которой нужно рисоваться квадрат в кторый рисовать и опции

Ну Вы и загрузили))), издеваетесь что-ли, мне нужно просто анимацию формата Gif вывести на форму, лучше конечно в image, да пока вообще никак не получается.