Question

我用delphi7.0编一个简单的AVI播放器 ，结果无法打开文件，求高手指点迷津

部分代码如下
procedure TforMain.Button1Click(Sender: TObject);
begin
OpenDialog1.Filter:='AVI文件(*.avi)|*.avi';
if OpenDialog1.Execute then
begin
Animate1.FileName:=OpenDialog1.FileName;
Animate1.Open:=true;
Animate1.Play(1,0,0);
Button2.Enabled:=true;
Button3.Enabled:=false;
Button4.Enabled:=false;
end;
end;
点击button1后出现打开文件对话框，选择.avi文件后，程序终止出现如图，然后程序中止在 Animate1.Open:=true;求指导啊

Answer 1

播放AVI貌似使用的控件是TMediaPlayer，TAnimate打不开AVI吧

追问

TAnimate是打开avi 的，我很肯定，烦恼啊

追答

查看了下资料，解答如下：

1. Animate控件只能播放全帧无压缩的AVI 你要放压缩过的AVI 这个控件不行 。

2. Animate控件只是一个很简单的控件，不能解决复杂的视频播放，所以即使你找到了相应的视频解码器，也未必能被TAnimate控件所使用。

3. TMediaPlayer控件是一个真正的媒体播放控件，只要系统支持它就能播放各种AVI。

所以，推荐你使用TMediaPlayer控件进行AVI播放。