Memutar File Sound Di Lazarus

Posting kali ini saya tujukan khusus untuk Mbak Farida, dan umumnya untuk temen-temen yang ingin mencoba. Untuk memutar sound ketika sebuah event kita jalankan, untuk mencoba silahkan buat form seperti dibawah ini. Download File untuk mencoba, exstrak di drive D, kemudian jalankan.Download di sini

sound1

Kemudian klik 2x pada button play, isikan kode berikut, catatan file sound berextensi wav ya, untuk mp3 belum bisa. File sound saya simpan di D:\mas-adi\lazarus\Sound\1212.wav 

Fungsi SN_Loop paling belakang mempunyai fungsi untuk memutar ulang saound yang kita putar, untuk memutar sekali saja, silahkan hilangkan fungsi SN_loop yang ada pada baris perintah di bawahsound2procedure TForm1.Button1Click(Sender: TObject); begin   sndPlaySound(‘D:\mas-adi\lazarus\Sound\1212.wav ‘,   SND_NODEFAULT Or SND_ASYNC Or SND_LOOP); end;         

2 Responses to “Memutar File Sound Di Lazarus”

  1. Muslim Says:

    Suaranya berulang-ulang ya mas kalau sekali tekan lalu satu suara tanpa ber ulang2 gimana codenya? Ohya kalau load file html di lazarus gimana ya mas ? biasa di delpi pake webbrowser kala dilajarus saya cari ga ketemu.

    • maseadi Says:

      Buat mas Muslim..
      Untuk memutar sound hanya sekali saja, hilangkan kode Loop nya, itu perintah untuk mengulang putar sound.

      sndPlaySoundW(‘D:\mas-adi\lazarus\Sound\1212.wav’,
      SND_NODEFAULT Or SND_ASYNC);

      Semoga bermanfaat


Leave a Reply

Fill in your details below or click an icon to log in:

WordPress.com Logo

You are commenting using your WordPress.com account. Log Out / Change )

Twitter picture

You are commenting using your Twitter account. Log Out / Change )

Facebook photo

You are commenting using your Facebook account. Log Out / Change )

Google+ photo

You are commenting using your Google+ account. Log Out / Change )

Connecting to %s