Question

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

这是我展示视频的代码：

TrailerMediaPlayer.FileName := GetcurrentDir + '\Trailer\Trailer.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 Media Player在Windows XP中播放我的Trailer.avi。

如何在没有任何额外组件的情况下在每个Windows操作系统（自XP上）播放此视频？

Answer 1

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

有几个建议：使用Windows Media Player ActiveX或VideoLan中的ActiveX plugin。

另请务必遵循此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并且不要混用这两个。（我只是怀疑你在做这件事，所以没有代码，我无法确定它......）

在Windows XP上使用Firemonkey播放视频

1 个答案: