Воспроизведение WAV на Mac: Delphi XE2 FireMonkey и NSSound

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

Прежде чем приступить к написанию статьи, мне необходимо уточнить некоторые детали. Например, требуется ли в статье разъяснение терминов и понятий, связанных с Object Pascal (Delphi), или же предполагается, что читатель уже имеет определенный уровень знаний? Также важно знать, какие разделы статей обычно присутствуют на сайте: например, теоретическая часть, практические примеры кода, рекомендации и т.д.

Тем не менее, я могу начать написание статьи с учетом предоставленной информации о проблеме воспроизведения звука в формате WAV на MacOS из приложения, созданного с использованием Delphi XE2 FireMonkey. Статья будет ориентирована на разработчиков, знакомых с Object Pascal и имеющих опыт работы с Delphi.

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

Описание проблемы

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

var
  //fWaves head and data is initialized and plays properly on Win through OpenAL
  fWaves: array of record
    Head: TWAVHeaderEx;
    Data: array of byte;
  end;
  D: NSData;
  N: NSSound;
begin
  D := TNSData.Wrap(TNSData.Create.initWithBytes(@fWaves[0].Head, SizeOf(fWaves[0].Head) + fWaves[0].Head.DataSize));
  ShowMessage(IntToStr(D.length)); //--Length is correct
  N := TNSSound.Wrap(TNSSound.Create.initWithData(D));
  ShowMessage(FloatToStr(N.Duration)); //--Displays 0
  if N.play then
    ShowMessage('Yes')
  else
    ShowMessage('No'); //--Always returns NO
end;

Как видно из примера, код загружает заголовок и данные WAV-файла из памяти и корректно работает с OpenAL в Windows, но при воспроизведении на MacOS через NSSound возникают проблемы.

Поиск решения

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

Альтернативные подходы

В качестве альтернативного решения рассматривается возможность использования OpenAL, который является кросс-платформенным решением и может быть использован как на Windows, так и на MacOS. Также упоминается, что в Lazarus существует единица "macosall.pas", которая может быть полезной для вызова нативных функций OS X.

Подтвержденное решение

В итоге разработчики приходят к выводу, что использование OpenAL является наиболее надежным решением. Несмотря на то, что в будущем Embarcadero может исправить проблемы с доступом к NSSound, на данный момент рекомендуется использовать именно OpenAL для воспроизведения звука.

Данная статья предназначена для разработчиков, столкнувшихся с аналогичными проблемами при работе со звуком в Delphi XE2 FireMonkey. В ней представлены основные моменты, которые необходимо учитывать при работе со звуковыми файлами на MacOS, а также примеры некорректного использования кода и альтернативное решение проблемы с использованием OpenAL.

Для более глубокого понимания темы рекомендуется ознакомиться с документацией Apple Developer и изучить QuickTime API, который является центральным хабом для работы со мультимедиа на устройствах Apple.

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

Проблема воспроизведения звука в формате WAV на компьютерах MacOS из приложений, созданных с использованием Delphi XE2 FireMonkey и объектов NSSound.

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

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

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