Gif-файл из ресурса, Анимированый Gif

[volod3000]

Добрый день.

Возможно ли чтение из ресурса в Image, анимированый Gif.

Пробую так :

var
 ResStream: TResourceStream;
 GIF: TGifImage;
begin
 ResStream := TResourceStream.Create(HInstance, 'imggif', 'RES');

 GIF:=TGifImage.Create;
       GIF.LoadFromStream(ResStream);
       Image1.Picture := nil;
       Image1.Picture.Bitmap.Assign(GIF);
       GIF.Free;
       ResStream.Free;
end;

Но получаю статистическую картинку.

Ресурс делаю с помощью brcc32.exe

[Аватар]

http://www.programmersclub.ru/%D0%90...2%D0%B5-image/

[volod3000]

Аватар.

Вы не много не правильно меня поняли. Способом
по Вашей ссылке без проблем.
Смысл чтение из ресурса, не выгружая файла (из ресурса) на диск.

[Аватар]

Под рукой TGifImage нет, не могу проверить, но стоило бы посмотреть Image1.Picture.Assign

[Пепел Феникса]

да как бы Image не отображает анимацию.

[volod3000]

Вот проект, внутри папка Gif (TGifImage) .
Справа файлы выгружаются на диск, слева, из ресурса.

http://www.programmersclub.ru/gif-файлы/

[volod3000]

Нашел выход, все, как всегда, просто :

Вместо

Image1.Picture.Bitmap.Assign(GIF);

Это код

Image1.Picture.Assign(GIF);

Обычная невнимательность.

Спасибо ! Вопрос решен .