Delphi XE2 FireMonkey tarafından oluşturulan uygulamada Mac'te WAV dosyalarını nasıl oynatılacağınıza ilişkin örnekler veya örnekler var mı? Bu kod çalışmaz çünküMac'te Delphi XE2'den herhangi bir WAV ses çalma var mı?
soruyorum:
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;
ben bellekten WAV dosya başlığını ve verilerin yüklenmesi ediyorum ve OpenAL'le ince oynar. Yani sorun NSSound kullanımımda bir yer. Herkes, Mac üzerinde Delphi XE2 ses çalma ile ilgili bazı çalışma örnekleri sunabilir mi?
Bir fwaves kaydının formatının gerçek bir WAV dosyasının formatıyla tam olarak eşleşmediğini tahmin ediyorum. Dosyadan ham bayt kullanmayı deneyin. –
Bunu denedim initFromFile (path_to_aiff) denedim. Hiçbir şey yardımcı olmadı. Bu yüzden sonunda OpenAL'e geçtim. – Kromster