Интеграция звукового файла WAV в исполняемый файл на Delphi: единый статический исполняемый файл

Delphi , Мультимедиа , Запись звука

Статья "Интеграция звукового файла WAV в исполняемый файл на Delphi: единый статический исполняемый файл"

Оригинальный заголовок: Использование файла wave из проекта

Введение: Разработчики, использующие среду разработки Delphi для создания приложений, часто сталкиваются с необходимостью включения ресурсов, таких как звуковые файлы, в исполняемый файл. Это позволяет создать единый статический исполняемый файл (single static executable), который не требует дополнительных файлов для своей работы.

Проблема: Вопрос пользователя заключается в возможности воспроизведения фонового звука из встроенного WAV-файла, который находится внутри компилируемого исполняемого файла. В частности, рассматривается версия Delphi XE2.

Текущий код:

SndPlaySound('.\Raw.wav', SND_ASYNC or SND_LOOP);

Этот код воспроизводит WAV-файл, который расположен рядом с программой, что не соответствует желаемому результату.

Решение проблемы:

1. Использование TResourceStream и RC_DATA: Можно добавить файл WAV как ресурс проекта через меню Project -> Resources and Images, выбрав тип данных RC_DATA и имя ресурса, которое будет использоваться в коде. Затем, для воспроизведения звука, используется код:

   pascal procedure TForm2.Button1Click(Sender: TObject); var Res: TResourceStream; begin Res := TResourceStream.Create(HInstance, 'APPLAUSE', 'RC_DATA'); try Res.Position := 0; SndPlaySound(Res.Memory, SND_MEMORY or SND_ASYNC or SND_LOOP); finally Res.Free; end; end;

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

1. Использование PlaySound с SND_RESOURCE: Вместо использования TResourceStream можно воспроизвести звук напрямую из его ресурса, используя функцию PlaySound с флагом SND_RESOURCE:

   pascal PlaySound('resourceIndentifierName', 0, SND_RESOURCE or SND_ASYNC);

При добавлении WAV-файла в редактор ресурсов (Delphi 10, Project, Resources and Images) необходимо указать тип ресурса как "WAVE".

Заключение: Используя один из предложенных методов, разработчики могут легко интегрировать звуковой файл WAV в исполняемый файл на Delphi, создавая единый статический исполняемый файл без необходимости располагать WAV-файл отдельно от программы. Это упрощает распространение приложения и его установку.

Примечание: Для полноценного примера кода рекомендуется обратиться к документации по использованию функций SndPlaySound, FindResource, LoadResource, LockResource, UnlockResource и FreeResource, а также классу TResourceStream.

Создано по материалам из источника по ссылке.

Описание контекста: Статья посвящена интеграции звукового файла WAV в исполняемый файл, созданный с использованием Delphi, чтобы создать единый автономный исполняемый файл без необходимости внешних звуковых файлов.

Комментарии и вопросы

Получайте свежие новости и обновления по Object Pascal, Delphi и Lazarus прямо в свой смартфон. Подпишитесь на наш Telegram-канал delphi_kansoftware и будьте в курсе последних тенденций в разработке под Linux, Windows, Android и iOS

:: Главная :: Запись звука ::