Di postingan kali ini ane mau berbagi snippet sederhana di delphi untuk memutar file audio (WAV) tanpa menggunakan komponen-komponen Media player. Langsung saja disimak :happy

---

• Jalankan aplikasi delphi lalu buat Project baru.
• Letakkan 2 buah Button dan 1 Edit Text pada Form. Button pertama beri caption Play dan Button kedua beri caption Stop.
  
  
• Tambahkan MMSystem pada bagian uses.
  
  
• Masukkan coding seperti berikut pada Button Play dan Stop.
  
  Select Code

  Delphi Script

  procedure TForm1.Button1Click(Sender: TObject);
  begin
     sndPlaySound(Pchar(edit1.Text), SND_ASYNC OR SND_LOOP);
  end;
  
  procedure TForm1.Button2Click(Sender: TObject);
  begin
     sndPlaySound(nil, 0);
  end;
• Jalankan program dengan menekan tombol F9 pada keyboard. Setelah itu masukan path file WAV yang ingin diplay. Misalnya C:\Windows\Media\Ring08.wav. Kemudian klik tombol play.
  
  

---

Tambahan

• Jika ingin audionya hanya jalan sekali saja, ganti SND_ASYNC OR SND_LOOP menjadi SND_NODEFAULT.
• Jika ingin path file dimasukkan tanpa edit text dapat digunakan kode berikut :
  sndPlaySound('lokasi file'), SND_ASYNC OR SND_LOOP); .

Referensi

http://stackoverflow.com/questions/246723/how-to-play-a-wav-file-in-delphi

---

Nah sekian dulu untuk tutorial kali ini. Semoga bermanfaat dan dapat membantu :wonderful. Jika ingin memberikan kritik dan saran atau bertanya silahkan tinggalkan komentar dibawah. :brave.
:foreveralone