---

.

---

---

Metode dan Algoritma | Pemrograman Delphi : Membuat Video Player, Media Player dengan Delphi . Anda bisa melakukan konsultasi tentang Pemrograman Delphi : Membuat Video Player, Media Player dengan Delphi melalui form di samping kanan !!!

---

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;

---

ActionScript AS3 ASP.NET AJAX C / C++ C# Clipper COBOL ColdFusion DataFlex Delphi Emacs Lisp Fortran FoxPro Java J2ME JavaScript JScript Lingo MATLAB Perl PHP PostScript Python SQL VBScript Visual Basic 6.0 Visual Basic .NET Flash MySQL Oracle Android

---

Related Post :

---

Judul: Pemrograman Delphi : Membuat Video Player, Media Player dengan Delphi
Rating: 100% based on 99998 ratings. 5 user reviews.
Ditulis Oleh hank2

Anda sedang membaca artikel tentang Pemrograman Delphi : Membuat Video Player, Media Player dengan Delphi, Semoga artikel tentang Pemrograman Delphi : Membuat Video Player, Media Player dengan Delphi ini sangat bermanfaat bagi teman-teman semua, jangan lupa untuk mengunjungi lagi melalui link Pemrograman Delphi : Membuat Video Player, Media Player dengan Delphi.

---