如何制作基本的媒体播放器来播放avi格式的视频？

Question

我想在Delphi中播放视频。这是我得到的代码：

if OpenDialog1.Execute  then
 begin
  MediaPlayer1.FileName:=OpenDialog1.FileName;
  MediaPlayer1.Open;
  MediaPlayer1.Display:=pnlVideo;
  MediaPlayer1.Play;
 end;

但是我收到一条错误消息：'指定的文件无法在指定的MCI设备上播放。该文件可能已损坏，格式不正确，或者该格式没有可用的文件处理程序。'我使用的视频格式为avi。感谢所有帮助。

Answer 1

我们的“现代”计算机上的Delphi中的媒体播放器组件存在兼容性问题。我对问题到底是什么不懂技术：P。最好在Delphi中制作自己的组件来播放媒体。

此链接可以帮助您制作Windows Media Player组件，也可以对其进行调整以制作另一个活动的X Media Player组件-例如VLC。

https://chapmanworld.com/windows-media-player-in-delphi/

我希望这会有所帮助。 ：D