Работа со звуком

[Cepreu^]

Доброго времени суток !

Пытаюсь проиграть музыку в проекте при нажатии на кнопку. Не выходит. Помогите разобраться , что я делаю не так.

Подобрал WAV файл. Я назвал его Sound01. Создал в директории своего проекта текстовый файл со следующим содержанием:
Sound01 RCDATA LOADONCALL Sound01.wav

Переименовал текстовый файл в "Sound.rc".
Скомпилировал через BRCC32.exe, выполнив строку:
C:\-директория Delphi-\BIN\BRCC32.EXE C:\-директория проекта-\Sound.rc
Появился файл "Sound.res".
В проекте после строки {$R *.dfm} добавил строку {$R Sound.res} .
Добавил в раздел uses ещё один модуль MMSystem,
для воспроизведения WAV-файлов.
Написал процедуру воспроизведения файла из ресурсов. У меня она получилась вот такой :

 procedure PlayWAVfromRES(name:PAnsiChar); 
  var 
   hResource: THandle; 
   pData: Pointer;                // указатель на ресурс 
 begin 
   hResource:= LoadResource( hInstance, FindResource( hInstance, name,    
                                                                                   RT_RCDATA ) ); 
   pData:= LockResource( hResource ); 
   SndPlaySound( pData, SND_MEMORY ); 
   FreeResource( hResource ); 
 end;

Добавил к форме кнопочку и создал обработчик нажатия этой кнопки:

PlayWAVfromRES('Sound01');


И блин , после нажатия кнопки ничего не слышно !

Помогите плuз !

[саша40]

Наверное SndPlaySound подходит для Windows 95/98/2000/Xp

[s-andriano]

Это все очень здорово, но чтобы понять, в чем проблема, нужно проверять значения, возвращаемые: FindResource, LoadResource, pData, и, если возникают проблемы, запросить у системы код ошибки.
Да и длину ресурса неплохо было бы выяснить.

[Cepreu^]

Да, применил просто SndPlaySound( 'Sound01', SND_ASYNC + SND_NODEFAULT ) вместо своей процедуры PlayWAVfromRES и зазвучало . Кстати ещё раньше применял вместо PlayWAVfromRES и PlaySond и PlaySoundW тоже не работало.
В обчем спасибо. А знаете как сделать так , чтобы после создания формы начиналась фоновая музыка и крутилась до закрытия формы ? При этом по ходу работы была возможность проигрывать параллельно ещё один короткий звук ( например при нажатии кнопки ) не прерывая фоновой музыки.

Спасибо , но вроде проще решение нашёл ( для короткого звука ). И кстати до сих пор не играет длинная фоновая музыка ( в ресурсе она занимает больше 30 метров ), может подскажете как с этим бороться ? И ещё , если не трудно подскажите как сделать так , чтобы после создания формы начиналась фоновая музыка и крутилась до закрытия формы ? При этом по ходу работы была возможность проигрывать параллельно ещё один короткий звук ( например при нажатии кнопки ) не прерывая фоновой музыки.

[s-andriano]

Сообщение от Cepreu^

При этом по ходу работы была возможность проигрывать параллельно ещё один короткий звук ( например при нажатии кнопки ) не прерывая фоновой музыки.

Мне кажется, что это делается либо путем низкоуровневой работы с буферами в mmsystem, либо средствами DirectSound (для чего он, собственно, и создавался).
Но с последним я не разбирался.

[Пепел Феникса]

Сообщение от Cepreu^

Спасибо , но вроде проще решение нашёл ( для короткого звука ). И кстати до сих пор не играет длинная фоновая музыка ( в ресурсе она занимает больше 30 метров ), может подскажете как с этим бороться ? И ещё , если не трудно подскажите как сделать так , чтобы после создания формы начиналась фоновая музыка и крутилась до закрытия формы ? При этом по ходу работы была возможность проигрывать параллельно ещё один короткий звук ( например при нажатии кнопки ) не прерывая фоновой музыки.

аудиобиблиотек и готового кода масса.
тот же BASS как пример.

[Cepreu^]

Сообщение от s-andriano

Мне кажется, что это делается либо путем низкоуровневой работы с буферами в mmsystem, либо средствами DirectSound (для чего он, собственно, и создавался).
Но с последним я не разбирался.

Попробую разобраться с DirectSound , спасибо !

[Cepreu^]

Сообщение от Пепел Феникса

аудиобиблиотек и готового кода масса.
тот же BASS как пример.

Пробую разобраться с BASS , спасибо.