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

Question

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

PlaySound('C:\Windows\Media\Windows 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 OS / iOS：
   音频格式：.mp3，.caf
   视频格式：.mov，.m4v，.mp4

     

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

快速举例：

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

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