android - 在 Delphi XE5/Android 平台上播放声音提示/哔哔声

Question

有没有办法在Delphi XE5/Android平台上播放声音提示/提示音？

我想要实现的是如何使用 Beep 功能像 Windows 应用程序一样播放系统警报/哔声，或者至少找到系统音频文件的路径，以便我可以根据事件运行特定的音频文件。

Answer 1

我最终使用资源文件来播放我的自定义音频文件。

步骤:

1. 在 Delphi IDE 中单击“项目”。
2. 然后选择“资源和图像...”。
3. 选择您的媒体文件并将其设置为 RCDATA。
4. 记住您的资源标识符。

注意:请确保 TMediaPlayer 支持媒体类型，否则它将无法运行。

德尔福程序:

procedure PlayAudio(ResourceID: string);
var
  ResStream: TResourceStream;
  TmpFile: string;
begin
  ResStream := TResourceStream.Create(HInstance, ResourceID, RT_RCDATA);
  try
    TmpFile := TPath.Combine(TPath.GetTempPath, 'tmp.mp3');

    ResStream.Position := 0;
    ResStream.SaveToFile(TmpFile);
    MediaPlayer1.FileName := TmpFile;

    MediaPlayer1.Play;

  finally
    ResStream.Free;
  end;
end;

用法:

PlayAudio('Resource_1');