*.swf dosyaları form a gömmek

[DarkEternal]

Benim flashtan denedigim gif dönüşümlerinde herzaman kalite çok düşük oluyo.
Hele birde bunu delpiye koyarsam nerdeyse kare kare görüntü oluşuo.
Fakat swf olarak konduunda en ufak bir kalite düşmesi yaşanmıyor

[Trial_Cooder]

viewtopic.php?t=15382

İlk Önce Üstteki Link'ten Exe'ye Swf Dosyası Göm, Sonra Form1.Create;

Kod: Tümünü seç

procedure TForm1.FormCreate(Sender: TObject); 
begin 
with Animate1 do begin 
ResName := 'Rapier'; 
ResHandle := HInstance; 

Active := True; 
end; 
end; 

[Trial_Cooder]

Üstteki 1. Yöntemdi (Benim Kullandığım Yöntem)

2. Yöntem

Kod: Tümünü seç

Exe ye swf gömmek için sırası ile

1. adım : swf mizi c:\ kopyalıyoruz. ( Swf mizin adı Deneme olsun.)

2. adım : Başlat tan çalıştıra geliyoruz ve command yazıp enter a basıyoruz.

3. adım : Yine diskimizin root una geliyoruz ( c:\ ) ve burada copy con Deneme.rc yazıp entera basın. Imleç bir alt satıra geçiyor. Burayada deneme rcdata deneme.swf yazdıktan sonra klavyemizin ctrl + z tuşlarına basarak rc dosyamızı oluşturalım.

4. adım : Tekrar root tayken brcc32 deneme.rc yazarak entera basıyoruz. Delphi komutu otomatik olarak bize .res dosyasını oluşturuyor.

5. adım : Delphiyi açtıktan sonra formun oncreate veya onshow olayına aşağıdaki kodumuzu yapıştırıyoruz.

var
rStream: TResourceStream;
fStream: TFileStream;
fname: string;
begin
fname:=ExtractFilePath(Application.ExeName)+'\dene me.swf';
rStream := TResourceStream.Create(hInstance, 'deneme', RT_RCDATA);
try
fStream := TFileStream.Create(fname, fmCreate);
try
fStream.CopyFrom(rStream, 0);
finally
fStream.Free;
end;
finally
rStream.Free;
end;
ShockwaveFlash1.Stop;
ShockwaveFlash1.Movie:=fname;
ShockwaveFlash1.play;
end;

tabii {$R *.Dfm} ifadesinin altına {$R deneme.res} yazmayı ve uses e mmsystem eklemeyide unutmayalım.

Buraya kadar Ama bunun için Delphiden activex bileşeni olan ShockwaveFlash kurulmalıdır. Eğer bu delphiye install edilmemiş ise o zaman durmadan adımlara devam.

6. adım : Delphi menüsünden Component --> Import ActiveX Contol... -- > Shockwave Flash (Versiyon 1.0) seçilerek Install tuşuna basılır. Burada şunu belki hatırlatmama gerek yok ama bilmeyenler olabilir diye küçük birşey daha belirtmek istiyorum, Install butonuna basmadan önce isterseniz bu bileşenin kütüphanenin hangi sekmesinde olacağına siz karar verebilirsiniz. Bunun için Palette Page açılır kutusundan ( Combobox ) istediğiniz sekmeyi seçip öyle Install edebilirsiniz...

Hepinize çalışmalarınızda başarılar dilerim.

[sevturk]

Trial_Cooder arkadaşım verdiğin 2.yöntemi denedim ama "file not found deneme.res" hatası veriyo sorunun nerde olduğu hakkında bir bilgin varsa yardımcı olursan sevinirim.. şimdiden ilgin için teşekkür ederim.. hayırlı çalışmalar..

[Trial_Cooder]

Dosyanın Adını Doğru Ver Ve Projenle Aynı Klasörde Olucak Unutma {$R deneme.res} Adını Doğru Yaz. Baştan Alıyorum, Eğer Not File Hatası Veriyorsa, Dosya İsimlerinde Yanlışlık Yapmışsındır, Oluşturduğun " deneme.rc " Dosyasını Projenle Aynı Klasöre Koy, Ve Projende imp.'in Altına {deneme.RES} Bu Şekilde Yaz, Dosyanın Adı Neyse O'dur.
Eğer Yine Olmazsa Ben Sana Hazır Projeli Halini Gönderirim

[tuanna]

suna bakabiliriseniz....

http://delphi.about.com/od/graphics/l/aa040103a.htm

[comlekciler]

Trial Cooder teşekkürler 2. yöntemi kullanarak yaptım. ilk denememide aşağıdaki linkte veriyorum isteyenler inceleyebilir.

sevturk aynı hata ilk önce bendede oldu projeni kaydet ve eğer sende benim gibi c: de yaptıysan oradaki .RES ve SWF lerini proje klasörüne kopyala çalışması lazım ben öyle yaptım oldu.

kolay gelsin

http://www.hemenpaylas.com/download/707 ... i.zip.html

[Trial_Cooder]

1. Yöntemde Çalışıyor, (Ben Çalıştırıyorum)

[sevturk]

Trial Cooder arkadaşım hata swf dosyasının projenin bulunduğu klasörde olmaması ve projeyi kaydetmediğim için oluyormuş.. yardımcı olduğun için teşekkür ederim ve ilgilenen tüm arkadaşlardan Allah razı olsun.. hayırlı çalışmalar..


"Keskin bıçak olmak için, çok çekiç darbesi yemek gerekir."