德尔福的跨平台音频支持

Question

我正在运行Delphi Tokyo，我正在寻找一种在Windows和Android上播放音频的方法(也许在某个时候是iOS(。

在Windows上，我可以用类似PlaySound(PChar(ResourceName), 0, SND_RESOURCE or SND_ASYNC)的东西，但我被困在Android上。 我试过 TMediaPlayer，但它需要大约一秒钟才能开始播放，这对于鼠标单击或屏幕点击来说太长了。

基本上我已经建立了一个扫雷克隆，我正在寻找声音支持(如果你想知道背景(。

建议？

Answer 1

有一些街机游戏演示具有您可以使用的音频类。 见 https://github.com/Embarcadero/DelphiArcadeGames

您还可以查看 TMediaPlayer 是否有多平台快速音效的替代方案？，了解这些演示中 Android 音频管理类遇到的一些问题。

使用游戏示例中提供的最新版本的音频管理器，开发人员只需删除所有通知/检查音频文件是否已实际加载并准备好播放。我个人不喜欢简单地期望音频准备好播放的想法。

我的音频管理课程有点太复杂了，无法简单地发布，但如果您需要此功能，希望这段伪代码可以提供一些线索，说明我如何解决游戏演示中提供的AudioManager的缺点。

这个想法是在我的主应用程序中创建一个回调，当音频文件准备好播放时调用。通过一些网络搜索，我发现以下链接是我的实现的有用参考：

https://developer.android.com/reference/android/media/SoundPool

https://www.101apps.co.za/articles/using-android-s-soundpool-class-a-tutorial.html

1 - 定义一个通知类型，该类型将提供有关准备播放的音频文件的足够信息。 我的看起来像这样：

TSoundLoadedEvent = procedure(Sender: TObject; ASoundID: integer; AStatus: Integer) of object;

2 - 根据文档，定义一个处理JSoundPool_OnLoadCompleteListener的类。 请注意，该类利用我们定义为TSoundLoadedEvent的自定义事件，这意味着AudioManager必须实现此回调：

TMyAudioLoadedListener = class(TJavaLocal, JSoundPool_OnLoadCompleteListener)
private
FSoundPool       : JSoundPool;
FOnJLoadCompleted : TSoundLoadedEvent;
public
procedure onLoadComplete(soundPool: JSoundPool; sampleId,status: Integer); cdecl;
property  OnLoadCompleted: TSoundLoadedEvent read FOnJLoadCompleted write FOnJLoadCompleted;
property  SoundPool: JSoundPool read FSoundPool;
end;
...
procedure TMyAudioLoadedListener.onLoadComplete(soundPool: JSoundPool; sampleId, status: Integer);
begin
FSoundPool := soundPool;
if Assigned(FOnJLoadCompleted) then
FOnJLoadCompleted(Self, sampleID, status);
end;

3 - 修改音频管理器类以实现侦听器：

TAudioManager = Class
Private
fAudioMgr              : JAudioManager;
fSoundPool             : JSoundPool;
fmyAudioLoadedListener : TMyAudioLoadedListener;
fOnPlatformLoadComplete : TSoundLoadedEvent;
Public
Constructor Create; override;
...
procedure DoOnLoadComplete(Sender: TObject; sampleId: Integer; status: Integer);
...
property  OnLoadComplete: TSoundLoadedEvent read fOnPlatformLoadComplete write fOnPlatformLoadComplete;

4 - 实现JSoundPool侦听器并将从侦听器的回调连接到我们的AudioManager：

constructor TAudioManger.Create;
begin
...
//create our listener
fmyAudioLoadedListener := TMyAudioLoadedListener.Create;
// set the listener callback 
fmyAudioLoadedListener.OnLoadCompleted := DoOnLoadComplete;
// inform JSoundPool that we have a listener
fSoundPool.setOnLoadCompleteListener( fmyAudioLoadedListener ); 
...

和

procedure TAudioManager.DoOnLoadComplete(Sender: TObject; sampleId: Integer; status: Integer);
begin
if Succeeded(status) then  //remove this if you want all notifications
begin
if Assigned(Self.fOnPlatformLoadComplete) then
fOnPlatformLoadComplete( self, sampleID, status );
end;
end;

5 - 最后一件事是在主应用程序中实现回调：

TMainForm = class(TForm)
...
fAudioMgr   :  TAudioManager;
...
procedure OnSoundLoaded(Sender: TObject; ASoundID: integer; AStatus: integer);

然后，在创建AudioManager的位置，将新TSoundLoadedEvent分配给我调用OnSoundLoaded的本地过程：

procedure TMainForm.FormCreate(Sender: TObject);
...
begin
...
fAudioMgr := TAudioManager.Create;
fAudioMgr.OnSoundLoaded := OnSoundLoaded;

现在，当音频文件准备好播放时，您应该会收到通知：

procedure TMainForm.OnSoundLoaded(Sender: TObject; ASoundID: integer; AStatus: integer);
begin
// track IDs when loading sounds to identify which one is ready
// check status to confirm that the audio was loadded successfully
end;

这绝对只是零碎的，但希望能有所帮助。