在Delphi XE5 / Android平台上播放声音警报/哔哔声

发布时间：2020-12-15 09:30:19 所属栏目：大数据来源：网络整理

导读：有没有办法在Delphi XE5 / Android平台上播放声音警报/哔哔声？我想要实现的是如何使用Beep功能播放系统警报/哔声,如Windows应用程序或至少找到系统音频文件的路径,以便我可以根据事件运行特定的音频文件. 解决方法我最终使用资源文件来播放我的自定义音频

有没有办法在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');

（编辑：李大同）

【声明】本站内容均来自网络，其相关言论仅代表作者个人观点，不代表本站立场。若无意侵犯到您的权利，请及时与联系站长删除相关内容!