Ada kalanya kita membutuhkan efek suara dalam aplikasi yang kita buat.Bila menyertakannya secara terpisah dalam folder yang sama , tentu sedikit merepotkan dan ada kekhawatiran file suara tersebut terhapus atau hilang tanpa disengaja.Untuk itu , ada baiknya kita menyertakannya dalam file exe , sehingga lebih efisien dan fleksibel.
Begin ..
1.Buatlah sebuah file text menggunakan notepad atau apa saja sesuai selera anda lalu ketikan
1.WAVE "FileWavAnda".wav
Angka 1 adalah index dari file wav , dan kata WAVE menginformasikan bahwa resource yang akan dipakai adalah file wav.Simpan dengan nama WavSaya dengan ekstensi *.RC dengan file type all files pada local disk C , letakan file wav anda pada lokasi yang sama.
2.Gunakan Borland Resources Compiler , BRCC32.EXE untuk mengkompile file tadi.Caranya , buka MS-Command Prompt lalu ketikan
cd C:\
BRCC32 WavSaya.RC
Hal ini akan membuat file resources (*.res) dengan nama WavSaya.res.
Letakan file WavSaya.res satu folder dengan project anda.Lalu buat direktif resources pada pada kode program anda.Contohnya sebagai berikut
{$R *.DFM}
{$R WavSaya.RES}
Lalu tambahkan pada kode program anda sebagai berikut
procedure TForm1.Button1Click(Sender: TObject);
begin
PlaySound(PChar(1),HInstance, snd_ASync or snd_Memory or snd_Resource);
end;
Anda bisa menambahkan banyak file *.wav kedalam program anda hanya dengan menambahkan nomor index dari file *.wav dan memanggilnya menggunakan PChar(index).
Selesai sudah tutorial kali ini , semoga bermanfaat.Dengan adanya efek suara , program anda akan terasa lebih atraktif.
End.
7 komentar:
Wah keren ni artikel..
tapi kenapa error ya pada langkah kedua? Begini bunyinya :
"c:\>BRCC32 uzan.RC
Borland Resource Compiler Version 5.40
Copyright (c) 1990, 1999 Inprise Corporation. All rights reserved.
Fatal error File creation failed"
ada cara lain gak agar dapat file *.res nya?
thnkz be4... :)
cek mas apa langkahnya udah bener ato belum.
file wave sama file rc harus pada lokasi yang sama (dalam kasus ini drive C )
Setahu saya kalo pake delphi compiler ya kayak gitu , gak tau kalo comiler lain.
Sekedar membant ooom :) walau masih pemula
soalnya di "RUN" ga jalan...
untuk compile file wav.rc nya
vir0e5 WAVE test.wav
jalan pas buka FORM
procedure TForm1.FormCreate(Sender: TObject);
var
hFind, hRes: THandle;
wav: PChar;
begin
hFind := FindResource(HInstance, 'vir0e5', 'WAVE');
if hFind <> 0 then
begin
hRes := LoadResource(HInstance, hFind);
if hRes <> 0 then
begin
wav := LockResource(hRes);
if Assigned(wav) then sndPlaySound(wav, SND_ASYNC or SND_MEMORY);
UnlockResource(hRes);
end;
FreeResource(hFind);
end;
end;
Semoga membantu yang lain!!
eh ralat...ternyata bisa ooom hehehe...mklum masih bljar ane!!
tapi file wav.rc nya
1 WAVE filewav.wav
PlaySound(PChar(1),HInstance, snd_ASync or snd_Memory or snd_Resource);
hehe...thx infonya ooom ... explore terus ooom!!
Thanks gan :D
Kita belajar bareng , dan saling mengingatkan :)
kok ngompailnya salah gan, padahal step nya udah pas banget....???
mohon sarannya..!!!!
ko pake sourvode ini gk bisa terus ya kenapa...
PlaySound(PChar(1),HInstance, snd_ASync or snd_Memory or snd_Resource);
Posting Komentar