(C) Зайцев Олег 1998-2000 |
Программирование на Delphi
|
Система | Реестр | Графика | Сети | Мультимедиа | WEB | Разработка_компонент | Железо | Прочее |
МультимедиаРабота с мультимедиа - базовые приемы, хитрости, примеры |
|
Как поместить в исполняемый файл wav-файл, и затем проиграть его? | * | * |
MYWAVE RCDATA LOADONCALL MyWave.wavФормат строки:
brcc32.exe MyWave.rc, получаем MyWave.res.3. Перемещаем полученный ресурс в папку проекта Затем в программе воспроизведение звука выглядит примерно так:
{$R MyWave.res} // Не забудем подключить наш ресурс 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('MyWave', 0, SND_NODEFAULT); finally FreeResource(hResource); end; end;
Задать вопрос | Наверх |
Я советую посетить и другие сайты, посвященные программированию. Это легко сделать по кольцу:
Algorithm project
: Кольцо сайтов, посвященных программированию (подробнее о проекте WebRing...) [ Предыдущие 5 сайтов | Предыдуший | Следующий | Следующие 5 сайтов | Выбрать сайт случайным образом | Список всех сайтов ]