Скачать: CL | DM;

Как записать и вытащить Gif файл из ресурса   Найти похожие ветки 

← →
kyn66 ©   (2005-11-23 14:44) [0]

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

---

← →
Digitman ©   (2005-11-23 14:46) [1]

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

---

← →
clickmaker ©   (2005-11-23 14:46) [2]

*.rc

ID_MYGIF  "GIF"   "pic.gif"

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

---

← →
kyn66 ©   (2005-11-23 14:53) [3]

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

---

← →
Digitman ©   (2005-11-23 15:01) [4]

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

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

---

← →
kyn66 ©   (2005-11-23 15:07) [5]

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

---

← →
Reindeer Moss Eater ©   (2005-11-23 15:10) [6]

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

---

← →
clickmaker ©   (2005-11-23 15:20) [7]

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

RX\Units\rxgif.pas

---

← →
AbrosimovA   (2005-11-23 16:21) [8]

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.

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.46 MB
Время: 0.024 c