Pada pertemuan ke lima kemaren kami belajar tentang component mediaplayer untuk
memutar file music.
Untuk memutar sebuah musi di Delphi kita membutuhkan komponen MediaPlayer.
berikut langkah-langkahnya :
Pertama buat project delphi baru
dalam Form1 tambahkan komponen Mediaplayer dengan pada bagian menu
toolbar component pilih System =>
tambahkan komponen media player dengan memilih icon media player.
Berikut gambarnya :
Pada bagian Properties pada komponen mediaplayer1 masukkan file *.mp3 yang akan
di putar dengan cara memilih FileName dan masukkan filenya.
Masih pada menu properties pada bagian AutoOpen rubah value
menjadi tipe True
Berikut gamabarnya :
Selanjutnya Buat component mediaplayer1 menjadi tersembunyi dengan cara merubah
value visible mediaplayer1 menjadi False
berikut langkahnya :
Dan tambahkan component button1 seperti pada gambar berikut ini :
Untuk codenya sebagai berikut
pada bagian Var tambahkan variabel button dengan tipe boolean
dan set nilainya menjadi False.
tombol:boolean=false;
Pada prosedur button1 ketikkan code berikut ini ;
procedure TForm1.Button1Click(Sender: TObject);
begin
tombol:= not tombol;
if tombol = true then
begin
button1.Caption := 'Music stop';
mediaplayer1.Play;
end
else
begin
button1.Caption := 'Music play';
mediaplayer1.Stop;
end
end;
end.
Keterangan :
tombol:= not tombol;
// Untuk mengganti nilai variabel tombol menjadi True dan False bergantian
mediaplayer1.Play;
// Untuk memutar file music
mediaplayer1.Stop;
// Untuk mematikan file music
Berikut catatan singkat saya tentang cara memutar file music menggunakan
component mediaplayer pada delphi. semoga bermanfaat.