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;
