Membuat Aplikasi Pemutar Video Sendiri Menggunakan Delphi

Ini adalah aplikasi tugas kuliah yang sy bagi ke agan2, banyak sih kalau mau download artikel cara membuat aplikasi pemutar video menggunakan BDE.

Oke langsung saja proses pembuatannya:

1. Buka Borland Delph 7
2. Buat sebuah Form masukkan komponen sbb:

• 1 buah panel
• 1 buah DriveComboBox
• 1 buah DirectoryListBox
• 1 buah FileListBox
• 1 buah MediaPlayer
• 1 buah Button

Dengan tampilan sbb:

 
Tahap selanjutnya masukkan Coding dibawah ini :

• Pada Komponen FileListBox masukkan Coding :

procedure TF_PemutarVideo.FileListBox1Change(Sender: TObject);
begin
if (FileListBox1.FileName <>'')
then
with MediaPlayer1 do
begin
FileName:=FileListBox1.FileName;
open;
if stretch then
DisplayRect:=Rect(0,0, Panel1.Width, Panel1.Height)
else
DisplayRect:=rect(0,0,0,0)
end;
end;

• Klik 2x pada form masukkan coding dibawah ini:

procedure TF_PemutarVideo.FormCreate(Sender: TObject);
begin
stretch:=true;
MediaPlayer1.Display:=Panel1;
MediaPlayer1.VisibleButtons:=[btPlay,btPause,btStop,btNext,btPrev,btStep,btBack];
FileListBox1.Mask:='*.avi;*.mpg;*.mpeg';
DirectoryListBox1.FileList:=FileListBox1;
DriveComboBox1.DirList:=DirectoryListBox1;
end;

• Masukkan Coding di bawah ini pada Button Close :

procedure TF_PemutarVideo.Button1Click(Sender: TObject);
begin
Close;
end;
 
Selesai jalankan program. 

Untuk download program sederhananya klik disini. Semoga bermanfaat