Delphi多媒体设计之TMediaPlayer组件（七）

AVI视频

用TMediaPlayer播放AVI视频，选择AVI文件，并调用Play方法（或者点击Play按钮），如果使用默认的MediaPlayer设置，将会出现一个单独的窗口播放AVI视频。如下图：

也可以设置TMediaPlayer的Display属性为任何窗口组件（Windowed component），视频播放将会在这个组件的客户区（client area）中出现。

例如，在窗体上有一个pnl1的面板，想在这个pnl1面板上显示AVI视频，这时，应该按下面的代码设置Display属性：

mp1.Display := pnl1;

当AVI播放时，它将显示在面板中。如果视频大于面板矩形，视频将会被裁剪到面板大小。如下图：

可以通过设置DisplayRect属性来放大或缩小视频，代码如下：

mp1.DisplayRect := pnl1.ClientRect;

播放后效果如下：

---

AVI视频格式有很多种，并不是所有的AVI都可以播放的。为了放映特定的视频编码格式需要用户安装相应的解码器。为了安全起见，用标准的Microsoft AVI视频格式。用户几乎都安装了该编码器。

Note

TAnimate组件（在Win32标签下）用于播放你在操作Windows时看到的小的视频，例如在Windows资源管理中拷贝文件或移动文件时看到的动画，如下图：

再例如查找文件时，查找对话框的动画。用TAnimate组件播放的AVI必须是未压缩的或仅进行过RLE压缩，其他的压缩形式都是不允许的。AVI中也不可以包含音频。

---

以上代码均在Delphi 7下测试通过，示例代码下载：AVIPlayer.rar

示例AVI视频下载地址：http://kuai.xunlei.com/d/RFJZWJPHLOIG