0

我用来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 起）上播放此视频？

4

1 回答 1

0

获取madexcept或任何其他类似工具并发布应用程序的堆栈。此外，这应该是机器上安装的编解码器和其他应用程序的问题，即使电影是在 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并且不要混合这两个。（我只是怀疑你正在这样做，所以没有代码我无法确定......）

于 2013-04-07T11:05:50.923 回答