Membuat Media Player dengan delphi

بِسْــــــــــــــــمِ اﷲِالرَّحْمَنِ اارَّحِيم

 Berikut ini tutorial pembuatan media player sederhana dengan menggunakan delphi. Program ini sebenarnya sudah begitu banyak di internet, tapi gak apa2 lah buat belajar.. hehehehe..  Ok langsung aja yaa..

1.       Mula – mula buka delphi kemudia buat form seperti di bawah ini :

2.       Dengan menambahkan 3 komponen yaitu Bitbtn yang ada di tab additional, kemudian mediaplayer yand ada di tab system dan yang terakhir  komponen opendialog yang ada di tab dialog

  

= komponen bitbtn dengan di ubah pada bagian caption menjadi “open”

 

  

= komponen Media player

 = Komponen opendialog

3.       Kalau sudah di buat seperti form di atas, klik dua kali pada komponen bitbtn kemudian isikan kode berikut ini :

MediaPlayer1.Close;

if OpenDialog1.Execute then

begin

  MediaPlayer1.FileName:=OpenDialog1.FileName;

  MediaPlayer1.Open;

end;

4.       Begitu sudah selesai memasukkan kode tersebut, jalankan program nya. Dan lihat hasilnya.

Sumber : disini

Berbagi Ilmu itu indah.