Membuat Video Player Dengan Delphi

Untuk membuat sebuah aplikasi pemutar file media seperti film dan lagu, Delphi menggunakan sebuah komponen yang dinamakan MediaPlayer.

Beberapa properti yang penting diantaranya adalah :
FileName : path dari file yang akan diputar.
Display : komponen yang akan dipakai sebagai layar
DisplayRect : menentukan posisi dan ukuran tampilan layar
VisibleButtons : menentukan tombol yang terlihat dan tidak terlihat.
Length : berisi panjang/durasi file yang diputar.
Position : posisi pemutaran file saat ini.
Start : menentukan posisi dimana file akan mulai diputar.

Beberapa method yang penting diantaranya adalah :
Open : Menghubungkan MediaPlayer dengan file.
Play : Memainkan file
Pause : Menghentikan sementara pemutaran file
Stop : Menghentikan pemutaran file.

Ada beberapa tipe file yang didukung oleh komponen MediaPlayer, diantaranya adalah file AVI, WAVE, DAT, CD Audio dan lain-lain. Untuk melihat daftar file yang didukung tersebut bisa dicermati pada properti DeviceType.
Seperti dijelaskan sebelumnya, tidak semua tipe file bisa menggunakan semua tombol yang tersedia. Untuk melihat kemampuan tiap jenis file bisa dilihat properti Capabilities-nya.

Buatlah sebuah project dan form baru pada Visual Basic .NET, desain tampilan form sehingga didapat tampilan seperti pada gambar berikut :

Pengaturan Properti :

Komponen	Properti	Nilai
Form1	(Name) Text Position	frmPlayer Media Player poScreenCenter
Panel	(Name)	Panel1
MediaPlayer	(Name)	MediaPlayer1
Edit	(Name) Text	edPath (kosongkan)
Button1	(Name) Text	btnBrowse Browse
Button2	(Name) Text	btnExit Exit
OpenDialog	(Name)	OpenDialog1

Listing Program :

procedure TFPlayer.bBrowseClick(Sender: TObject);

begin

if (OpenDialog1.Execute) then

begin

ePath.Text := OpenDialog1.FileName;

MediaPlayer1.Close;

MediaPlayer1.FileName := OpenDialog1.FileName;

MediaPlayer1.Display := Panel1;

MediaPlayer1.DisplayRect := Rect(0,0, 0,0);

MediaPlayer1.Open;

end;

end; procedure TFPlayer.bExitClick(Sender: TObject);

begin

Application.Terminate;

end;

Sumber : http://cariprogram.blogspot.com/2012/06/pemrograman-delphi-membuat-video-player.html