Membuat Pemutar Video Sederhana Menggunakan Delphi

DELPHI, UBAHSEGALANYA.BLOGSPOT.CO.ID - Setelah tahu bagaimana caranya membuat pemutar audio sederhana dengan delphi, pada kali ini saya akan membuat sebuah tutorial bagaimana membuat pemutar video sederhana menggunkan delphi. Seperti halnya tutorial yang pernah saya sampaikan Cara Membuat Pemutar Audio Sederhana Menggunkan Delphi. Untuk lebih lengkapnya, perhatikan contoh pembuatan aplikasi berikut :

- Buka Delphi

- Buat project baru

- Tambahkan komponen dibawah ini kedalam lembar project :

No	Nama Komponen	Nama Palette	Jumlah
1	TLabel	Standard	3
2	TGroupBox	Standard	1
3	TProgressBar	Win32	1
4	TMediaPlayer	System	1
5	TOpenDialog	Dialogs	1
6	TTimer	System	1
7	TButton	Standard	1
8	TPanel	Standard	1

Setting Komponen seperti dibawah ini :

No	Nama Komponen	Nama Properties	Value
1	Label1	Align Alignment Caption Font ->Size	alTop taCenter Aplikasi Audiio Player 12
2	Label2	Align Alignment Font ->Size	alTop taCenter Dibuat Oleh : Abu
3	GroupBox1	Align Caption	alTop Informasi File Audio
4	Label3	Align AutoSize Caption Name WordWrap	alClient False - lblNamaFile True
5	ProgressBar1	Align Caption	alTop pbProgress
6	Panel1	Align Caption Name	alTop - pnlVideo
7	MediaPlayer1	Name Display Enabled	mpLatih pnlVideo False
8	OpenDialog1	Name	dlgBuka
9	Button1	Caption1 Name Font->Style->fsBold	Buka btBuka True
10	Timer1	Name Enabled Interval	tmrLatih False 100
11	Form1	BorderStyle BorderIcons->biMaximize Name Position	bsSingle False frmAudio poScreenCenter

- Klik dua kali btBuka lalu isikan kode berikut ini :

procedure TfrmAudio.btBukaClick(Sender: TObject);

begin

if dlgBuka.Execute then

begin

 lblNamaFile.Caption := dlgBuka.FileName;

 mpLatih.FileName := dlgBuka.FileName;

 mpLatih.Open;

 pbProgres.Position := mpLatih.Position;

 pbProgres.Max := mpLatih.Length;

 mpLatih.Enabled := True;

 tmrLatih.Enabled := True;

end;

end;

- Klik dua kali komponen tmrLatih dan isikan kode berikut ini :

procedure TfrmAudio.tmrLatihTimer(Sender: TObject);

begin

pbProgres.Position := mpLatih.Position;

end;

- Tekan tombol F9/Compile

- Selesai, selamat mencoba

Membuat Pemutar Video Sederhana Menggunakan Delphi 2014-09-07T23:02:00-07:00 Rating: 4.5 Diposkan Oleh: Abu Masail