[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

[ChinYan]

А разве в Image вообще можно GIF поставить?

[volod3000]

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

А разве в Image вообще можно GIF поставить?

Без проблем, с помощью маленького компонента gif (Анимированный Gif в компоненте Image).

[angvelem]

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

Без проблем, с помощью маленького компонента gif.

Насколько я помню

Код:

Image1.Picture.Bitmap.Assign(GIF);

присвоит только первый кадр, в не зависимости от крутости применяемых компонентов. Ну нельзя битмапу присвоить анимацию.

[volod3000]

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

Насколько я помню

Код:

Image1.Picture.Bitmap.Assign(GIF);

присвоит только первый кадр, в не зависимости от крутости применяемых компонентов. Ну нельзя битмапу присвоить анимацию.

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

картинка из ресурса.rar

P.S. У меня Delphi XE

[angvelem]

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

Вот проект...

Смешно:
Вы не авторизованы на форуме или не имеете доступа к этой странице. Это могло произойти по одной из нескольких причин:

[volod3000]

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

Смешно:
Вы не авторизованы на форуме или не имеете доступа к этой странице. Это могло произойти по одной из нескольких причин:

Прошу прошения , исправил ссылку

[angvelem]

Так я и думал, что вы вводите меня в заблуждение.

Код:

procedure TForm1.GifClick(Sender: TObject);
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;

не равен

Код:

procedure TForm1.BitBtnXClick(Sender: TObject);
begin

       ExtractRes('RES', 'imggifX' , 'X.gif');

       Image2.Picture := nil;
       Image2.Picture.LoadFromFile('X.gif');
       Self.Image2.Parent.DoubleBuffered := true; // Устранить мерцание
end;

Первый код НИКОГДА (!!!) не даст анимации, по той причине, что загрузка происходит в битмап, второй код такого ограничения не имеет. Попробуйте:

Код:

  ...
  Image1.Picture.Assign(GIF);
  ...

[volod3000]

angvelem .

Спасибо, понял, что Вы имеете ввиду.
А, есть ли из этого выход.

[volod3000]

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

Вместо

Код:

Image1.Picture.Bitmap.Assign(GIF);

Это код

Код:

Image1.Picture.Assign(GIF);

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

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

[angvelem]

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

Код:

Image1.Picture.Assign(GIF);

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

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

Интересно, а что же я тогда написал несколько выше?

[volod3000]

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

Интересно, а что же я тогда написал несколько выше?

Я, же и говорю, невнимательность .