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
posted on 2012-07-20 10:13 pchmonster 阅读(6834) 评论(0) 编辑 收藏 举报