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

Question

我想在Windows和MAC OS X中播放系统声音。要在Windows中播放声音，请使用类似的东西：

PlaySound('C:WindowsMediaWindows Default.wav', 0, SND_FILENAME + SND_ASYNC);

我确信我必须使用TMediaPlayer。

Answer 1

您是正确的，您可以使用TMediaPlayer组件，文档清楚地说明：

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

为了指定当前TMediaPlayer要播放的媒体文件，设置FileName属性。文件名必须包含文件，这样它就可以在内存和扩展名上进行本地化。呼叫播放和停止方法开始播放媒体文件，或停止或暂停正在运行的媒体文件。当前位置通过指定CurrentTime属性。

TMediaPlayer还公开媒体文件属性，如持续时间、视频大小、音量或状态。

关于支持的文件格式（TMediaCodecManager）。

文件说明如下：

使用TMediaCodecManager访问、管理和注册要播放媒体文件时使用。

支持的媒体文件格式是每个文件的本机格式平台：

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

对于Mac操作系统/iOS：
音频格式：.mp3、.caf
视频格式：.mov、.m4v、.mp4

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

快速示例：

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

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