| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

Как записать и вытащить Gif файл из ресурса [D7, WinXP]

kyn66 ©   (2005-11-23 14:44:00) 

Мастера, САБЖ.

---

AbrosimovA   (2005-11-23 16:21:00) [1]

gif.rc:
ID_MYGIF RCDATA pic.gif

resource.bat:
"C:\Program Files\Borland\Delphi6\Bin\brcc32.exe" gif.rc

uses  ..., GIFImage;

type
 TForm1 = class(TForm)
   Image1: TImage;
   procedure FormShow(Sender: TObject);
 private
   { Private declarations }
 public
   { Public declarations }
 end;

var
 Form1: TForm1;

implementation

{$R *.dfm}
{$R gif.res}

procedure TForm1.FormShow(Sender: TObject);
var Pict: TGIFImage;
begin
try
 Pict:=TGifImage.Create;
 Pict.LoadFromResourceName(hInstance,'ID_MYGIF');
 Image1.Picture.Assign(Pict);
finally
 Pict.Free;
end;
end;

end.

---

clickmaker   (2005-11-23 15:20:00) [2]

> kyn66 ©   (23.11.05 15:07) [5]
> Нет, если есть TGifImage

RX\Units\rxgif.pas

---

Reindeer Moss Eater   (2005-11-23 15:10:00) [3]

Если будет скрытый rxGifAnimator или еще какой другой контрол, то зачем париться с загрузкой?
Загруженный рисунок в дизайн тайме и так попадет при сборке в ресурсы.

---

kyn66   (2005-11-23 15:07:00) [4]

Нет, если есть TGifImage(правда что-то не нахожу его у себя, тока TrxGifAnimator) можно и его, главное вытащить правильно из ресурса.

---

Digitman   (2005-11-23 15:01:00) [5]

найди компонент TGifImage, он имеет метод LoadFromStream()
параметром метода TGifImage.LoadFromStream() будет соответствующий TResourceStream.

сопрячь же TGifImage с TImage не составляет труда.

---

kyn66   (2005-11-23 14:53:00) [6]

Чтобы прикрутить его к TImage, нужно Image1.Picture.LoadRecource? Но там нет такого метода 8-(

---

Digitman   (2005-11-23 14:46:00) [7]

в ресурсе какого типа хранится сабж ? RT_RCDATA ?

---

clickmaker   (2005-11-23 14:46:00) [8]

*.rc

ID_MYGIF  "GIF"   "pic.gif"

потом LoadResource
или TGifImage из RxLib

---

Наверх