Есть ли воспроизведение звука WAV на Mac из Delphi XE2?

Есть ли какие-либо учебные пособия или примеры того, как воспроизводить файлы WAV на Mac из приложения, созданного Delphi XE2 FireMonkey?

Я спрашиваю, потому что этот код не работает:

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. Так что проблема где-то в моем использовании NSSound. Не мог бы кто-нибудь предоставить несколько рабочих примеров воспроизведения звука Delphi XE2 на Mac?

5
задан Andreas Rejbrand 12 February 2012 в 17:52
поделиться