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
Dan beberapa firmat vidio tidak bisa terbaca karena aplikasi ini hanya bisa membaca format AVI.
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