• 设为首页
  • 点击收藏
  • 手机版
    手机扫一扫访问
    迪恩网络手机版
  • 关注官方公众号
    微信扫一扫关注
    公众号

Delphi多媒体设计之TMediaPlayer组件(七)

原作者: [db:作者] 来自: [db:来源] 收藏 邀请

用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


鲜花

握手

雷人

路过

鸡蛋
该文章已有0人参与评论

请发表评论

全部评论

专题导读
上一篇:
数字图像处理:图像的灰度变换(Matlab实现)发布时间:2022-07-18
下一篇:
matlab练习程序(灰度图直方图均衡化)发布时间:2022-07-18
热门推荐
阅读排行榜

扫描微信二维码

查看手机版网站

随时了解更新最新资讯

139-2527-9053

在线客服(服务时间 9:00~18:00)

在线QQ客服
地址:深圳市南山区西丽大学城创智工业园
电邮:jeky_zhao#qq.com
移动电话:139-2527-9053

Powered by 互联科技 X3.4© 2001-2213 极客世界.|Sitemap