|
|
Регистрация | << Правила форума >> | FAQ | Пользователи | Календарь | Поиск | Сообщения за сегодня | Все разделы прочитаны |
|
Опции темы | Поиск в этой теме | Опции просмотра |
#1
|
||||
|
||||
Gif-файл из ресурса, Анимированый Gif
Добрый день.
Возможно ли чтение из ресурса в 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 |
#2
|
|||
|
|||
А разве в Image вообще можно GIF поставить?
|
#3
|
||||
|
||||
Цитата:
Без проблем, с помощью маленького компонента gif (Анимированный Gif в компоненте Image). Последний раз редактировалось volod3000, 13.07.2011 в 21:06. |
#4
|
||||
|
||||
Цитата:
Код:
Image1.Picture.Bitmap.Assign(GIF); Je venus de nulle part 55.026263 с.ш., 73.397636 в.д. |
#5
|
||||
|
||||
Цитата:
Вот проект, внутри папка Gif (TGifImage) . Справа файлы выгружаются на диск, слева, из ресурса. картинка из ресурса.rar P.S. У меня Delphi XE Последний раз редактировалось volod3000, 13.07.2011 в 22:08. |
#6
|
||||
|
||||
Цитата:
Вы не авторизованы на форуме или не имеете доступа к этой странице. Это могло произойти по одной из нескольких причин: Je venus de nulle part 55.026263 с.ш., 73.397636 в.д. |
#7
|
||||
|
||||
Цитата:
Прошу прошения , исправил ссылку |
#8
|
||||
|
||||
Так я и думал, что вы вводите меня в заблуждение.
Код:
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); ... Je venus de nulle part 55.026263 с.ш., 73.397636 в.д. |
#9
|
||||
|
||||
angvelem .
Спасибо, понял, что Вы имеете ввиду. А, есть ли из этого выход. |
#10
|
||||
|
||||
Нашел выход, все, как всегда, просто :
Вместо Код:
Image1.Picture.Bitmap.Assign(GIF); Это код Код:
Image1.Picture.Assign(GIF); Обычная невнимательность. Спасибо ! Вопрос решен . |
#11
|
||||
|
||||
Цитата:
Je venus de nulle part 55.026263 с.ш., 73.397636 в.д. |
#12
|
||||
|
||||
Цитата:
Я, же и говорю, невнимательность . |