Membuat Media Player Cantik Dengan Delphi

Aplikasi yang dikembangkan sebagai penerapan program Delphi adalah sebuah software (program) yang dapat digunakan untuk memutar video dan audio (suara). progam tersebut dikembangkan oleh penulis sendiri yang berdassarkan teori-teori yang bersumber dari beberapa buku.

Dalam WAPlayer ini hanya dapat memutar video yang bertipe *.avi dan audio yang bertipe *.mp3 dan *.wav. Sebagi kelengapan program ini disertai dengan jam digital, serta gambar pemandangan yang dimodifikasi dan animasi lainnya. Adapun bentuk dari program tersebut adalah setengah lingkaran.

Untuk membuat program WAPlayer seperti yang telah disebutkan pada permasalahan di atas, dapat kita gunakan program Delphi. Program Delphi yang penulis gunakan adalah Delphi versi 6..

Adapun langkah-langkahnya sebagai berikut.:

1. Jalankan Borland Delphi. Kemudian klik File | New | VCL Form

Application.

2. Klik tab Properties pada Object Inspetor. Ubah Caption “Form1” menjadi

Audio Player”. Lalu pindah ke tab Events, kilk ganda pada Event

OnCreate sehingga tampil Code Editor dan ketikkan kode:

procedure TForm1.FormCreate(Sender: TObject);

var

busur:HRGN;

oke:HBRUSH;

setengah:HDC;

begin

busur:=createellipticrgn(200,200,500,500);

setwindowrgn(handle,busur,true);

deleteobject(busur);

end;

3. Tambahkan komponen TImage1 yang tedapat pada Component Pallete ke

dalam Form Designer. Tambahkan gambar pemandangan dengan

mengklik ganda property Picture. Ubah property Stretch menjadi true dan

visible menjadi true. Klik tab Events, lalu klik ganda pada OnMouseDown

dan tuliskan kode program:

procedure TForm1.Image1MouseDown(Sender: TObject; Button: TMouseButton;

Shift: TShiftState; X, Y: Integer);

const

sc_dragmove=$F012;

begin

releasecapture;

form1.Perform(wm_syscommand,sc_dragmove,0);

end;

4. Tambahkan 2 buah TButton. Ubah property Captionnya menjadi “Buka”

dan “Tutup”. Klik ganda tombol “Buka”, tuliskan kode:

procedure TForm1.Button1Click(Sender: TObject);

begin

if opendialog1.Execute then

begin

mediaplayer1.filename:=opendialog1.filename;

mediaplayer1.open;

mediaplayer1.play;

mediaplayer1.stop;

end

end;

Klik ganda tombol “Tutup” lalu tuliskan kode:

procedure TForm1.Button2Click(Sender: TObject);

begin

mediaplayer1.Close;

end;

5. Tambahkan 1 buah TSpeedButton, ubah property Caption menjadi “-“ dan

1 buah TPanel ubah menjadi “Keluar”. Klik ganda “Keluar”, tulis kode:

procedure TForm1.Panel1Click(Sender: TObject);

begin

Application.Terminate;

end;

6. Tambahkan 2 buah Tlabel. Caption “Label 1” dikosongkan dan “Label 2”

ubah menjadi “Audio Player”

7. Tambahkan 2 buah komponen TTimer.Atur property timer 1 dengan interval 700 dan timer 2 dengan interval 1000. Pada tab Events, klik ganda OnTimer lalu tuliskan kode program pada timer 1:

procedure TForm1.Timer1Timer(Sender: TObject);

begin

if label2.visible = true then

label2.visible := false

else

label2.visible := true;

end;

Dan tuliskan kode untuk timer 2:

procedure TForm1.Timer2Timer(Sender: TObject);

begin

label1.Caption:=timetostr(time);

end;

8. Letakkkan komponen TOpenDialog lalu atur property Filter ketikkan type *.mp3, *.wav dan *.avi. pada form.

9. Klik komponen TMediaPlayer yang ada di Commponen pallete untuk ditambahkan pada Form.

10. Untuk membuat pesan teks cursor berada di atas tombol, tuliskan pesan teks pada property hint dan atur property showhint menjadi true.

11. Atur property cursors untuk memberikan efek pada bentuk cursor.

12. Jalankan Program yang telah dibuat dengan menekan run