gif dosyasını nasıl res file yapabilirim?

[hakkus]

Merhabalar,
Bir gif dosyasını nasıl res file yapabilirim?

[huseyinkucuk]

Örneğin gif dosyan C:\deneme.gif olsun

1- C:'de bi tane txt dosyası yarat (örneğin C:\deneme.txt)
2- txt dosyasının içine şunları yaz
isim1 rcdata 'C:\deneme.gif'
isim2 rcdata 'C:\BaskaBirResim.gif'
isim3 rcdata 'C:\DahaBaskaBirResim.gif'
3- txt dosyasını kaydet ve uzantısını "rc" olarak değiştir (C:\deneme.rc)
4- Dos komut isteminde "C:\>brcc32 deneme.rc" enter yap.
5- "C:\deneme.res" dosyası kullanımına hazır olacaktır...

NOT: Ben bunu "bmp" dosyasını gömmek için kullanmıştım, gif dosyasında da olacağını sanıyorum... Ama delphide akış nesnesine yüklemesi farklıdır heralde, ona bakmaya fırsatım olmadı. Yapamazsan bakmaya çalışırım... Kolay gelsin...

[hakkus]

Hüseyin bey,
ilginize teşekkür ederim.
Res file tamam ancak 2. sorun bunu program içinden nasıl çağıracağım.
jpeg, wav vs için örnekler var ancak gif file için bulamadım. ResourceStream oluşturdum ancak yine de yapamadım.
Tekrar teşekkür ederim.

[Trial_Cooder]

Dosyanı Çıkartıp Ordan MediaPlayer'a Alabilirsin

Kod: Tümünü seç

procedure ExtractRes(ResType, ResName, ResNewName: String);
var
Res: TResourceStream;
begin
Res := TResourceStream.Create(Hinstance, ResName, PChar(ResType));
try
Res.SaveToFile(ResNewName)
Finally
Res.Free
end;
end;

ButtonClick Olayına;
ExtractRes('waw', 'Dosyan', 'Dosyan.waw');

MediaPlayer1.Filename := 'Dosyan.waw';
MediaPlayer1.Play;

Kolay Gelsin