PROMO

PROMO
HOSTING NO 1 INDONESIA

Google Analityc Experiment

Membuat Program Media Player

Untuk membuat program Media Player, tidaklah susah di dalam Delphi,
tinggal buat aplikasi baru, lalu tempelkan Komponen Media Player, didalam form

Lalu tempelkan beberapa komponen button ke dalam form
button1 name:tombolPlay Caption:Play
Button2 name:TombolPause Caption:Pause,
Button3 name:TombolStop Caption:Stop  


Selanjutnya double klik, button Play, isikan kode berikut

 MediaPlayer1.FileName:=FileListBox1.filename;
 mediaplayer1.Open;
 mediaplayer1.Play;

 Double klik, button Pause, isikan kode berikut

 mediaplayer1.pause; 
 TombolPlay.Enabled:=true; 
 TombolPause.Enabled:=false; 

 double klik, button Stop, isikan kode berikut

 mediaplayer1.stop; 


 Tempelkan komponen Opendialog ke dalam form, Lalu tempelkan kompnen  button rubah Captionnya menjadi Open, Button tersebut beri name TombolOpen,

double klik lalu isikan kode sebagai berikut: 
if OpenDialog1.execute then 
begin 
    MediaPlayer1.FileName:=Opendialog1.file name; 
    mediaplayer1.Open; 
end;


Selanjutnya tempelkan komponen Panel ke dalam form, gunanya untuk mendisplay file-file Video, seperti MPEG, AVI dan lain sebagainya

Klik Form, pada Object Inspector pilih Events, lalu pada bagian OnActivate didouble klik lalu isikan kode sebagai berikut
         mediaplayer1.display:=panel1;






Program Media Player sudah bisa dirun dan dapat menjalankan file file multimedia seperti mp3, mpeg dan lain sebagainya. Cukup simple bukan???
Tinggal dilengkapi sendiri menjadi lebih cantik dan profesional


Tidak ada komentar:

Baca Juga