(C) Зайцев Олег 1998-2000

Программирование на Delphi
обмен опытом

Система | Реестр | Графика | Сети | Мультимедиа | WEB | Разработка_компонент | Железо | Прочее

Мультимедиа

Работа с мультимедиа - базовые приемы, хитрости, примеры

Возврат на главную страницу
Гостевая книга - отзывы, вопросы
TopList


Работа со звуком - хранение, воспроизведение ...



Как поместить в исполняемый файл wav-файл, и затем проиграть его? * *
1. Создаем файл MyWave.rc и пишем в него строчку:
MYWAVE RCDATA LOADONCALL MyWave.wav
Формат строки:
<имя> <тип> <опции> <имя файла>, где
Имя - уникальное имя ресурса, по которому мы затем будем с ним работать. Теоретически (да и практически) имя не чувствительно к регистру, но лучше не рисковать и всегда именовать ресурсы большими буквами
2. Компилируем ресурсный файл при помощи brcc32.exe (он лежит в папке BIN Delphi)
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;
Задать вопрос Наверх Наверх

Если Вам понравился мой сайт, то Вы можете проголосовать за него на Golden URL (заранее спасибо)

    Я советую посетить и другие сайты, посвященные программированию. Это легко сделать по кольцу:

Algorithm project: Кольцо сайтов, посвященных программированию (подробнее о проекте WebRing...) [ Предыдущие 5 сайтов | Предыдуший | Следующий | Следующие 5 сайтов | Выбрать сайт случайным образом | Список всех сайтов ]