如何在 Delphi FireMonkey XE4 中播放系统声音？

Question

我想在 Windows 和 MAC OS X 中播放系统声音。要在 Windows 中播放声音，使用 something 像这样：

PlaySound('C:\Windows\Media\Windows Default.wav', 0, SND_FILENAME + SND_ASYNC);

我确定我必须使用 TMediaPlayer。

Answer 1

您是对的，您可以使用TMediaPlayer 组件，文档明确指出：

TMediaPlayer 播放音频文件和视频的音频组件 文件。

指定当前TMediaPlayer要播放的媒体文件， 设置 FileName 属性。文件名必须包含 文件，因此可以在内存和扩展名上进行本地化。称呼 Play 和 Stop 方法开始播放媒体文件，或停止或 暂停正在运行的媒体文件。当前位置是通过指定的 当前时间属性。

TMediaPlayer 也暴露了媒体文件 持续时间、视频大小、音量或状态等属性。

关于支持的文件格式(TMediaCodecManager).

文档说明如下：

使用 TMediaCodecManager 访问、管理和注册编解码器 播放媒体文件时使用。

支持的媒体文件格式是每个文件的原生格式 平台：

对于 Windows：
音频格式：.wma、.mp3、.wav
视频格式：.avi,.wmv

对于 Mac OS/iOS：
音频格式：.mp3、.caf
视频格式：.mov、.m4v、.mp4

使用 TMediaCodecManager，可以注册自定义 媒体编解码器以扩展音频/视频功能支持。

快速示例：

procedure TForm1.Button1Click(Sender: TObject);
begin
 MediaPlayer1.FileName := 'D:\test.mp3';
 MediaPlayer1.Play;
end;

您应该能够跨平台在 Firemonkey 中播放 mp3 文件，但这超出了本问题的范围。