有没有办法在Delphi XE5/Android平台上播放声音警报/蜂鸣声?
我想要实现的是如何使用 Beep 功能像 Windows 应用程序一样播放系统警报/蜂鸣声,或者至少找到系统音频文件的路径,以便我可以根据事件运行特定的音频文件。
我最终使用资源文件来播放我的自定义音频文件。
Steps:
- 从 Delphi IDE 单击“项目”。
- 然后选择“资源和图像...”。
- 选择您的媒体文件并将其设置为 RCDATA。
- 记住您的资源标识符。
Note:确保 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;
Usage:
PlayAudio('Resource_1');
本文内容由网友自发贡献,版权归原作者所有,本站不承担相应法律责任。如您发现有涉嫌抄袭侵权的内容,请联系:hwhale#tublm.com(使用前将#替换为@)