Membuat Aplikasi Pemutar Video Sendiri Menggunakan Delphi

بِسْــــــــــــــــمِ اﷲِالرَّحْمَنِ اارَّحِيم

Kalau mau membuat video player sendiri dengan delphi silahkan coba script dibawah ini.
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.