Aplikasi Pemutar File Vidio

Ok gan, kali ini kita akan membuat aplikasi Pemutar File Vidio dengan menggunakan Delphi.
disini kita akan membuat aplikasi multimedia yang biasa memainkan file berekstensi .AVI, WMV, dan yang lain.

- Siapkan dan buka Program Delphi yang ada dikomputer agan.
- Buat Form baru dengan cara klik File -> New -> Form
- Klik Komponen Form yang baru, lalu pada "Object Inspector" pilih Properti yang disebelah kiri atur "BorderStyle" menjadi "bsDialog" dan "Position" menjadi "poDesktopCenter"

- Pada Komponen Tab System pilih Media Player dan letakkan pada bagian tengah form.
- Pilih Pula Komponen "OpenDialog pada tab Dialogs, dan letakkan di dalam form.
- Kemudian Pilih Komponen "Panel" pada tab "standar", dan letakkan dalam form. 
- Pada "panel1", pilih Properties pada Object Inspector, lalu pada caption tuliskan "KLIK  DISINI UNTUK MEMBUKA FILM". Atur tampilan form seperti gambar berikut.
- Untuk pemberian nama pada form. Klik bagian Form (selain Komponen Panel, MediaPlayer dan Opendialog), lalu pada Caption isikan dengan "Aplikasi Pemutar Vidio.

Setelah selesai selanjutnya adalah Listing Program atau penulisan sintak.
- Double Clik pada komponen Panel1 atau pada tulisan "KLIK DISINI UNTUK MEMBUKA FILM". lalu ketikan sintak berikut :
    procedure TForm1.Panel1Click(Sender: TObject);
    begin
      if opendialog1.Execute then
      begin
         mediaplayer1.FileName:=opendialog1.FileName;
         mediaplayer1.Open;
         mediaplayer1.Display:=Panel1;
         mediaplayer1.DisplayRect:=rect(5,5,width-5,height-5);
         with Panel1 do
      end;
    end;


- Setelah selesai simpan pada folder yang agan sediakan dengan nama "Unit1" dan Project "Media Player".

Jalankan... :)


Dan beberapa firmat vidio tidak bisa terbaca karena aplikasi ini hanya bisa membaca format AVI.
OK gan, ini hanya untuk pembelajaran, dan masih jauh dari hasil sempurna.

Semoga bermanfaat ......





0 comments:

Post a Comment

.