在Windows XP上的Firemonkey中播放视频

Question

我使用TMediaPlayerControl在我的应用程序中显示视频。

这是我的代码来显示视频:

TrailerMediaPlayer.FileName := GetcurrentDir + 'TrailerTrailer.avi';
if (TrailerMediaPlayer.State = TMediaState.Stopped) and
  (TrailerMediaPlayer.CurrentTime < TrailerMediaPlayer.Duration) then
begin
  TrailerMediaPlayer.Play;
  PositionTrackBar.Max := TrailerMediaPlayer.Duration;
end
else
begin
  TrailerMediaPlayer.CurrentTime := 0;
end;

它适用于Windows 7/8，但在Windows XP我得到unsupported media file错误!

注意，Windows媒体播放器播放我的预告片。

我如何在没有任何额外组件的情况下在每个Windows操作系统(从XP开始)上播放这个视频?

Answer 1

获取maexcept或任何其他类似的工具，并发布应用程序的堆栈。此外，这应该是机器上安装的编解码器和其他应用程序的问题，即使电影是在XP的Windows Media Player中播放的。

有几个建议:使用Windows Media Player ActiveX或VideoLan的ActiveX插件。

也一定要遵循这个http://docwiki.embarcadero.com/Libraries/XE3/en/FMX.Media.TMediaPlayerControl和http://docwiki.embarcadero.com/RADStudio/XE3/en/Building_a_Basic_Media_Player

PS:注意FireMonkey不是VCL - http://docwiki.embarcadero.com/RADStudio/XE3/en/Converting_from_VCL_to_FireMonkey，不要把这两者混在一起。(我只是怀疑你在做它，所以没有代码我不能确定它…)