Posting Terbaru

Followers

Jumat, 25 Januari 2013

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
PropertiNilai
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;

0 komentar

Loading....

Poskan Komentar

Saya sangat mengharapkan komentar dari anda