Delphi 在Windows XP上的Firemonkey中播放视频

我使用

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;

TrailerMediaPlayer.FileName:=GetcurrentDir+'\Trailer\Trailer.avi'；
如果（TrailerMediaPlayer.State=TMediaState.Stopped）和
（TrailerMediaPlayer.CurrentTime

它在Windows 7/8上工作，但在Windows XP中，我得到了

不支持的媒体文件

错误

请注意，Windows Media Player在Windows XP中播放my Trailer.avi

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

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

建议：使用Windows Media Player ActiveX或来自VideoLan的

另外，请务必遵循以下步骤和步骤

---

注：请注意FireMonkey不是VCL，并且不要将这两者混用。（我只是怀疑你在这么做，所以如果没有代码，我不能确定它…

我在中做所有事情，但是在新的Windows XP（没有任何编解码器）中，应用程序抛出一个异常，即媒体文件不受支持，但媒体播放器播放了它！！！即使我不喜欢那些感叹号，你能像我在回答中建议你做的那样，发布一个你所做的事情和异常堆栈的小例子吗？我没有更重要的代码。我问题中的代码在

PlayButtonClick

事件中，它在我的Windows 8上工作。您没有说您的视频是什么编解码器isMy视频是未压缩的avi。我在Windows7的示例视频中尝试了这个，但效果不太好