Cara memutar music di delphi

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.

Berikut gambarnya

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.

Salam,
Agus Minanur Rohman