Скачать: CL | DM;

*.WAV наткнулась на один пример, но он у меня не работает   Найти похожие ветки 

← →
Оля   (2002-11-15 17:08) [0]

ВОПРОС:
Можно ли сделать так, чтобы в исполняемом файле программы находился какой-нибудь звук в формате .wav, и можно было бы проиграть этот звук?

ОТВЕТ:
В файл MyWave.rc пишешь:

MyWave RCDATA LOADONCALL MyWave.wav

brcc32.exe MyWave.rc, получаешь MyWave.res.

В своей программе пишешь:

{$R MyWave.res}

Все!

Предупреждая следующий твой вопрос "а как прочитать wave-файл из
исполняемого файла?"

procedure RetrieveMyWave;
var
hResource: THandle;
pData: Pointer;
begin
hResource:=LoadResource( hInstance, FindResource(hInstance, "MyWave", RT_RCDATA));
try
pData := LockResource(hResource);

if pData = nil then
raise Exception.Create("Cannot read MyWave");

// Здесь pData указывает на MyWave
// Теперь можно, например, проиграть его (Win32):
PlaySound(pData, 0, SND_MEMORY);
finally
FreeResource(hResource);
end;
end;
=================
Я сделала все как сдесь сказано, от себя ничего не добовляла,
а при компиляции выскакивает такая штука:
[Error] nay.pas(793): Undeclared identifier: "PlaySound"
[Error] nay.pas(793): Undeclared identifier: "SND_MEMORY"
Что делать? хелп ми плиз энибоди

---

← →
Игорь Шевченко ©   (2002-11-15 17:12) [1]

uses
MMSystem;

---

← →
Оля   (2002-11-15 17:29) [2]

все ок
спасибо

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.012 c