Friday, April 25, 2008

Multimedia with Dhelphi

suatu sore aku lagi ngenet browsing lihat-lihat blog dan ada sesuatu yang menarik aku temukan berhubungan dengan programing yaitu multimedia di dhelphi selidik punya selidik ternyata ownernya adalah kakak rekan kerjaku di STMIK PPKIA Tarakanita Rahmawati namanya Kak Ary artikel ini cukup menarik makanya aku mau bagikan ke temen-temen para blogger. Bisa pemutar musik, pemutar video dll. Sampai sekarang ini mungkin kita hanya bisa menggunakannya. Tapi apakah kita pernah berpikir BAGAIMANA CARA UNTUK MEMBUATNYA ? Nah melalui tulisan sederhana ini aku pengen mengajak temen-temen semua untuk dapat berkreasi membuat aplikasi multimedia pemutar musik sederhana menggunakan software Borland Delphi 7.0 yang nantinya bisa menjadi alternatif selain menggunakan Software Winamp. Berikut OutPut yang akan kita buat :

Langkah-Langkah Pengerjaan :

- Desain Form :

1. Sediakan satu form baru dan ganti caption-nya dengan Simple Multimedia.

2. Letakkan komponen MediaPlayer pada form. Komponennya dapat di ambil pada tab System.

Pada Object Inspector Properties, pada VisibleButtons yang bernilai True hanya btPlay, btPause, dan btStop. Selain itu bernilai False

3. Ambil beberapa label dan letakkan pada form. Label 1, pada object inspector properties ubah Captionnya menjadi “Duration :”. Label 2, pada object inspector properties ubah Captionnya menjadi “Position :”. Selanjutnya Label 3, pada object inspector properties ubah Captionnya menjadi “0” dan Name menjadi “lbduration”. Selanjutnya Label 4, pada object inspector properties ubah Captionnya menjadi “0” dan Name menjadi “lbposition”. Selanjutnya Label 5, pada object inspector properties ubah Captionnya menjadi “ms” begitupula dengan Label 6.

4. Letakkan 2 komponen SpeedButton pada Form. Komponen tersebut dapat di ambil pada Tab Additional

SpeedButton yang pertama Pada Object Inspector Properties ubah Captionnya menjadi “Open File” dan SpeedButton yang kedua pada Object Inspector Properties ubah Captionnya menjadi “Exit

5. Selanjutnya letakkan komponen CheckBox pada Form. Komponen tersebut dapat di ambil pada Tab Standart.

Kemudian pada Object Inspector Properties ubah Captionnya menjadi “Repeat” dan Name menjadi “cbrepeat”.

6. Selanjutnya tambahkan komponen Timer pada Form. Komponen tersebut dapat di ambil pada Tab System.

Pada Object Inspector Properties ubah Intervalnya menjadi 200.

7. Terakhir tambahkan komponen OpenDialog pada Form. Komponen tersebut dapat diambil pada Tab Dialog.

Pada Object Inspector Properties, pilih Filter dan Setting Filter Editornya seperti gambar berikut ini :

- Scripting / Penulisan Listing Program:

Double Click pada komponen MediaPlayer dan ketikkan Listing berikut :

procedure TForm1.MediaPlayer1Click(Sender: TObject; Button: TMPBtnType;

var DoDefault: Boolean);

begin

case button of

btPlay:timer1.Enabled:=true;

btPause:

begin

if MediaPlayer1.Mode=mpPaused then

timer1.Enabled:=true

else

Timer1.Enabled:=false;

end;

btStop:

begin

MediaPlayer1.Position:=0;

Timer1.Enabled:=false;

lbposition.Caption:=’0′;

end;

end;

Double Click komponen SpeedButton Open File dan ketikkan listing berikut:

procedure TForm1.spopenClick(Sender: TObject);

begin

if OpenDialog1.Execute then

begin

MediaPlayer1.FileName:=OpenDialog1.FileName;

MediaPlayer1.Open;

lbduration.Caption:=inttostr(MediaPlayer1.Length);

end;

end;

Double Click komponen SpeedButton Exit dan ketikkan listing berikut:

procedure TForm1.spcloseClick(Sender: TObject);

begin

close;

end;

Double Click komponen Timer dan ketikkan listing berikut:

procedure TForm1.Timer1Timer(Sender: TObject);

begin

if strtoint(lbduration.Caption)<>strtoint(lbposition.Caption) then

lbposition.Caption:=inttostr(MediaPlayer1.Position)

else

if cbrepeat.Checked=true then

begin

MediaPlayer1.Position:=0;

lbposition.Caption:=’0′;

MediaPlayer1.Play;

end

else

begin

timer1.Enabled:=false;

lbposition.Caption:=’0′;

end;

end;

Gimana gampang kan? Selamat mencoba, setelah anda mengikuti langkah-langkah yang ada maka anda dapat menikmati aplikasi multimedia sederhana anda.

Kalau ada pertanya kirim aja ke emailku danangsetya@ppkia.ac.id