JANGAN TERLALU BERHARAP PADA ORANG LAIN, KADANG MEREKA TIDAK ADA KETIKA KAMU BUTUH, DAN KAMU HARUS JADI PAHLAWAN BAGI DIRIMU SENDIRI

Membuat Aplikasi Pemutar Video Sendiri Menggunakan Delphi

Written By Andy_Jpenk on Rabu, 02 Mei 2012 | 15.55

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

16 komentar:

Mila mengatakan...

Thanks pak artikelnya
sngt membntu dalam tgs kul q

Andy_Jpenk mengatakan...

Ok
sm2

Unknown mengatakan...

listing program if stretch untuk apa ? saat di kompile dan jalankan program pesan error di 'stretch'
makasih..

Aris mengatakan...

suwun gan artikelnya

Andy_Jpenk mengatakan...

@Teysar : stretch untuk menampilkan video dipanel dengan ukuran penuh, sudah sy coba programnya tidak terjadi error, terima kasih telah berkunjung

@Aris : Oce Cipz

Anonim mengatakan...

thx gan atas artikel nya, sangat membantu

Ana mengatakan...

Gan kalau untuk pembuatan menu-menu tutorialnya gan

Anonim mengatakan...

@Teysar Thiar : coba tambahkan "stretch : booelan;"
di atas private declarations
private
stretch:boolean;
{ Private declarations }

Anonim mengatakan...

saya bikin sendiri, tapi gak bisa buat video, kenapa ya?
ada yg tau

ini source code nya
{$R *.dfm}

procedure TForm1.Timer1Timer(Sender: TObject);
begin
label1.Left:=label1.Left -1;
if (label1.left+label1.Width)<=0 then
label1.left :=panel1.Width;

pro.position:=mp.Position;

end;

procedure TForm1.Button2Click(Sender: TObject);
begin
application.Terminate;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
if open.execute then
begin
label2.Caption:=open.FileName;
mp.FileName:=open.FileName;
mp.Open;
pro.position:=mp.position;
pro.max:=mp.Length;
mp.Enabled:=true;
timer1.Enabled:=true;

end;
end;
ini printscreenya
http://img832.imageshack.us/img832/3324/mediagagal.jpg

Jovan Ferryal mengatakan...

kok dapet pesan error pas di "if stretch then" ??

HAFIS AL AZIZ mengatakan...

Cara membuka file video nya gmna gan?

Tamiem mengatakan...

listingnya gan erorr
klo bisa yg jelas biar org awam cpat ngerti.

Tamiem mengatakan...
Komentar ini telah dihapus oleh pengarang.
Unknown mengatakan...

Kunjungi softkaraoke.tk gan

Unknown mengatakan...

"stretch : booelan;"
di atas private declarations
private
stretch:boolean;
{ Private declarations }

Unknown mengatakan...

Vidionya speednya cepet gimana normalinnya gan?

Posting Komentar

Silahkan memberikan komentar dengan sopan, komentar bernada spam akan ane hapus, terima kasih kunjungannya