Не проигрывается аудио-файл.

[xakero4ek]

Здравствуйте. Решил в программе встроить муз.файлы в ехешник, заархивировал как надо файлы в *.res

подключил к программе {$R music2.res}
В uses подрубил мод (библиотеку, как угодно) MMSystem

Далее пишу код вызова архива и извлечения оттуда музыки.

 var
hResource: THandle; 
pData: Pointer;//music2.res
begin
hResource:=LoadResource( hInstance, FindResource(hInstance, SND1, RT_RCDATA));
pData := LockResource(hResource);
SndPlaySound(pData, SND_MEMORY);
FreeResource(hResource);
end;

где SND1 название аудио файла в формате WAV.

Далее, собственно, создаю Button1 (кнопочку) для начала воспроизведения:

procedure TForm1.Button1Click(Sender: TObject);
begin
PlayWAVfromRES('SND1');
end;

При открытии программы и нажатии на кнопку - воспроизведения нету.
Я думаю, что-то напутал с переменной Pointer,
либо файл врубается и сразу останавливается, ну или попросту не хватает какой-либо библиотеки.

Помогите, есть ли предложения?

[Прик]

Пример, который работает (только что проверено).
строка в файле snd.rc:
WAVE1 RCDATA LOADONCALL 001.wav
Запуск в программе:

{$R snd.res}
...
procedure PlayMyWave;
var
  hResource: THandle;
  pData: Pointer;
begin
  hResource:=LoadResource(hInstance, FindResource(hInstance, 'WAVE1', RT_RCDATA));
  try
    pData := LockResource(hResource);
    if pData = nil then Exit;
    sndPlaySound(pData, snd_Memory or SND_ASYNC);
  finally
    FreeResource(hResource);
  end;
end;

[xakero4ek]

Ух. Благодарю. Даже в высшем учебном заведении мне не смогли помочь. Следовательно для запуска файла нужно использовать PlayMyWave; и дальше от этой команды отталкиваться...

[Прик]

Не знаю что подразумевается под словами "от этой команды отталкиваться..", но PlayMyWave это не команда, а просто процедура, в которой извлекается звук из ресурса в память и запускается на проигрывание.
Если заметили, что процедура вами приведенная ничем не отличается от той, которая приведена в моем посте. Отсюда можно привести массу версий от чего звук не слышен ("не проигрывается"):
- не работает звуковая плата;
- не установлен драйвер этой платы;
- не подключены колонки;
- колонки подключены, но не включены в сеть;
- регулятор громкости выведен на "нуль";
- заложены уши после бодуна (ну, тут скорее, по собственному опыту);
и, наконец, неправильно скомпилирован ресурс (не зря приведена строка для компиляции).
Впрочем, могут найтись еще масса причин.

[xakero4ek]

Ну в принципе все работает Еще раз спасибо за пояснение)
Сейчас там разбираюсь в некоторых ньюансах.

Кстати, не могли бы вы пояснить, почему мой код не работал? Ведь они почти идентичны)

Тему можно будет закрыть.

[Прик]

Кстати, если интересно, есть более простая конструкция проигрывания файлов формата WAV из ресурсов.

procedure TForm1.Button1Click(Sender: TObject);
begin
  PLaySound('WAVE1', hInstance, SND_RESOURCE or SND_ASYNC);
end;

Строка в файле для компиляции ресурса:
WAVE1 SOUND 003.wav
Первый параметр - свое имя ресурса
Второй - ключевое слово (одно из зарезервированных)
Третий - имя компилируемого файла.

Применять нужно более "продвинутую" функцию PlaySound, а функция API sndPlaySound - это ее подмножество и оставлена для совместимости.

[xakero4ek]

Сообщение от Прик

Строка в файле для компиляции ресурса:
WAVE1 SOUND 003.wav
Первый параметр - свое имя ресурса
Второй - ключевое слово (одно из зарезервированных)
Третий - имя компилируемого файла.

Применять нужно более "продвинутую" функцию PlaySound, а функция API sndPlaySound - это ее подмножество и оставлена для совместимости.

Благодарю, буду знать на будущее. Комплимировал сначала я так же, как описанно выше.

В случае проблем каких-либо буду апать темку.