android+警告声音,在Delphi XE5 / Android平台上播放声音警报/哔哔声

有没有办法在Delphi XE5 / Android平台上播放声音警报/哔哔声？

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

解决方法:

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

脚步：

>从Delphi IDE中单击“Project”.

>然后选择“资源和图像……”.

>选择媒体文件并将其设置为RCDATA.

>记住您的资源标识符.

注意：确保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');

标签：android,delphi,delphi-xe5

来源： https://codeday.me/bug/20190517/1121016.html