Membuat Media Player Sederhana

Halo teman - teman, Happy New Year ya kawan...... hari ini saya mau share cara membuat media player sederhana tapi media player yang dibuat disini masih terbatas type file video yang digunakan hanya file video yang berekstensi .AVI jadi jika temen - temen belum mempunyai video yang AVI saya sarankan temen untuk convert dulu videonya ke AVI bisa pakai TVC (Total Video Conventer) atau Format Factory,,, hasil jadinya nanti kira - kira seperti ini..... (walaupun saya bukan penggemar wayang dan kurang mengerti dunia pewayangan tapi saya bisa dibilang suka dengan dunia wayang terutama sama Hanoman, soalnya hanoman itu bagi saya seperi tokoh yang lucu dan lincah tapi karena saya ga punya video hanoman dan yang ada arjuna maka saya pakai arjuna buat bikin screen shot program saya disini).

Sample Media Player Sederhana

disini seperti biasa saya masih menggunakan delphi 7 untuk membuat aplikasi, kira - kira seperti inilah hasil screenshotnya nanti
Berikut ini adalah langkah - langkahnya :

1. Siapkan form yang akan digunakan untuk membuat media player
2. Rancang form sesuai dengan yang anda inginkan dengan memasukkan beberapa komponen seperti MediaPlayer,OpenDialog dan Panel jadi seperti berikur ini

   

   Form Media Player sebelum di run

3. Lalu ketikkan listing berikut pada pada unit (pada komponen panel propertiesnya saya ubah menjadi Player)

procedure TForm1.PlayerClick(Sender: TObject);
begin
if OpenDialog1.Execute then
  begin
  MediaPlayer1.FileName:=OpenDialog1.FileName;
  MediaPlayer1.Open;
  MediaPlayer1.Display:=player;
  with Player do
end;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
player.Caption:='Buka File .AVI';
end;

Setelah itu klik tombol run atau tekan tombol F9 untuk menjalankan program yang kita buat. Nah sekian sharing listing dari saya kali ini jika ada yang kurang pas saya mohon kritik dan saran temen temen agar  bisa membuat program yang lebih baik lagi dan bisa belajar bersama  disini... Salam Newbie Delphierrr yaaa......