Cara Membuat Aplikasi SWF-EXE Converter di Delphi 7



Selamat siang agan-agan.Siang yang sangat panas disini.Pada postingan kali ini saya akan memberikan tutorial mengenai Cara Membuat Aplikasi SWF-EXE Converter di Delphi 7.Maksudnya !? Seperti kita tau , kalau aplikasi flash itu memiliki ekstensi *.swf.Yang artinya , kita memerlukan AVM (Adobe Virtual Machine) /Flash Player untuk menjalankan aplikasi tersebut.Memang dalam program semisal adobe flash CS 4 , ada fitur untuk mengeksport aplikasi SWF kita menjadi EXE , nah kita akan membuat converter tersebut menggunakan Delphi 7.Lalu tunggu apa lagi !? Buka borland Delphi 7 anda dan bersiap-siap untuk bergembira (apa sih).Yang pertama kali dilakukan , ialah kita akan menuliskan sebuah function yang bertugas untuk mengconvert file SWF menjadi EXE.Dengan 3 buah parameter bernilai string.Parameter pertama , nama file swf , selanjutnya nama output file EXE dan terakhir file flash player.Tambahkan 3 buah variabel pada deklarasi var.Yaitu tujuan ,sumber dan flashPlayer ,ketiganya bertipe String.Ketikan kode berikut setelah {$R *.dfm}


  1. function Swf2Exe(SourceSWF, exeFile, FlashPlayer : string): string;  
  2. var  
  3.   SourceStream , DestinyStream , LinkStream : TFileStream ;  
  4.   flag : Cardinal;  
  5.   SwfFileSize : integer;  
  6. begin  
  7.   result := 'Error';  
  8.   DestinyStream := TFileStream .Create(exeFile, fmCreate);  
  9.   try  
  10.     LinkStream := TFileStream .Create(FlashPlayer , fmOpenRead or fmShareExclusive );  
  11.       try  
  12.         DestinyStream .CopyFrom(LinkStream, 0);  
  13.       finally  
  14.         LinkStream .Free;  
  15.       end;  
  16.       SourceStream := TFileStream .Create(SourceSWF, fmOpenRead or fmShareExclusive );  
  17.       try  
  18.         DestinyStream .CopyFrom(SourceStream , 0);  
  19.         flag := $FA123456;  
  20.         DestinyStream .WriteBuffer (flag, sizeof(integer));  
  21.         SwfFileSize := SourceStream .Size;  
  22.         DestinyStream .WriteBuffer (SwfFileSize , sizeof(integer));  
  23.         result := '';  
  24.         finally  
  25.           SourceStream .Free;  
  26.         end;  
  27.       finally  
  28.         DestinyStream .Free;  
  29.       end;  
  30. end;  

Terlihat , kalau ketiga parameter tersebut sangat krusial.Tambahkan komponen saveDialog , openDialog , 3 buah button.Button1 berfungsi untuk mencari file SWF sekaligus menyimpannya menjadi EXE.Double klik pada button1 dan ketikan kode berikut.


  1. procedure TForm1.Button1Click(Sender: TObject);  
  2. begin  
  3.   if OpenDialog1.Execute then  
  4.     begin  
  5.       sumber:=OpenDialog1.FileName;  
  6.       SaveDialog1.FileName:=ChangeFileExt(sumber,'.exe');  
  7.     end;  
  8.   if SaveDialog1.Execute then  
  9.     begin  
  10.       tujuan:=SaveDialog1.FileName;  
  11.     end;  
  12. end;  

Pada kode tersebut kita mengisi nilai sumber dan tujuan dengan string yang di dapat dari open dan save dialog.Button2 berfungsi untuk mencari flash player.Double klik button2 dan ketikan kode berikut.

  1. procedure TForm1.Button2Click(Sender: TObject);  
  2. begin  
  3.   if OpenDialog1.Execute then  
  4.     begin  
  5.       flashPlayer:=OpenDialog1.FileName;  
  6.     end;  
  7. end;  

Dan yang terakhir yaitu button3 , berfungsi untuk mengeksekusi proses convert.Double klik button3 dan ketikan kode berikut.


  1. procedure TForm1.Button3Click(Sender: TObject);  
  2. begin  
  3.   //pastikan semua variabel terisi  
  4.   if(sumber<>'')and(tujuan<>'')and(flashPlayer<>'') then  
  5.     begin  
  6.       //eksekusi function  
  7.       Swf2Exe(sumber,tujuan,flashPlayer);  
  8.       ShowMessage('Convert Selesai');  
  9.     end  
  10.   else  
  11.     begin  
  12.       //kalau ada parameter yang tidak lengkap  
  13.       ShowMessage('Parameter tidak lengkap');  
  14.     end;  
  15. end;  

Beres deh.Jalankan program anda lalu pilih file swf yang akan di convert.Pilih juga file flash playernya.Lalu silahkan convert !! Kalau ternyata masih bingung , agan-agan bisa download sourcenya berikut file SWF dan flash playernya DISINI.Sekian tutorial kali ini semoga bermanfaat.

0 Response to " Cara Membuat Aplikasi SWF-EXE Converter di Delphi 7 "

Welcome In Kode Blogger

Contoh Sliding Login Dengan JQuery

Disamping ini adalah contoh Sliding Login menggunakan JQuery. Login Form Disamping hanya Contoh dan tidak dapat digunakan layaknya Login Form FB, Karena Blog ini terbuka untuk umum tanpa perlu mendaftar menjadi Member

Tutorial Blog

Untuk membuatnya Silahkan : Klik Disini

Member Login

Lost your password?

Not a member yet? Sign Up!