Delphi FMX播放m4a声音文件

本文整理自网络，侵删。

 
您可以使用Delphi的FMX框架轻松播放声音文件。
例如，播放hoge.mp3文件时，将TMediaPlayer粘贴在Form上，然后编写如下。
uses
  FMX.Media;

MediaPlayer1.FileName := 'hoge.mp3';
if MediaPlayer1.Media<>nil then begin
  MediaPlayer1.Play;
end;
除此之外，TMediaPlayer还可以使用Stop方法和属性，例如CurrentTime，Duration，Volume和State。

因此，我检查了可以在Windows上使用的声音文件。 根据
http://docwiki.embarcadero.com/Libraries/Tokyo/ja/FMX.Media.TMediaCodecManager
，

wma .mp3 .wav

它变成了。未实现m4a文件。这可能是因为DirectX没有编解码器。
因此，我从
http://www.majorgeeks.com/files/details/windows_8_codecs.html
下载并安装了DirectX编解码器。
另外，我以放置TMediaPlayer的形式编写了以下代码。

initialization
  TMediaCodecManager.RegisterMediaCodecClass('.m4a', 'm4a Files', TMediaType.Audio, TWindowsMediaCodec);
そうすると，

MediaPlayer1.FileName := 'hoge.m4a';
if MediaPlayer1.Media<>nil then begin
  MediaPlayer1.Play;
end;

能够播放hoge.m4a文件。

后记
根据MSDN
https://msdn.microsoft.com/ja-jp/library/windows/desktop/dd757927(v=vs.85).aspx
，可以在不安装编解码器的情况下使用m4a文件。也许您可以在不安装编解码器的情况下使用mfpack。
https://sourceforge.net/projects/mfpack/

 

相关阅读 >>

Delphi formatdatetime 显示日期时间

Delphi Delphi 学习大师qq群讨论的字符串位置替换方法

Delphi 向windows窗口发送alt组合键的问题

crossbow病毒开放源代码-熊猫烧香源始代码

firemonkey 手机 app 的手势

Delphi获取系统当前进程名和进程id

Delphi 学习使用资源文件 - 字符串资源

Delphi 日期相减 比较大小 过期时间函数

Delphi wm_copydata的应用

Delphi监视注册表

更多相关阅读请进入《Delphi》频道 >>

转载请注明出处：木庄网络博客 » Delphi FMX播放m4a声音文件