VFP 开发视频播放三例
我们在利用 VFP 开发多媒体应用程序时,常常需要播放诸如 AVI、MPG 等格式 的视频文件。笔者在编程实践中摸索出几种播放视频文件的方法,下面介绍各种 方法以播放 C 盘根目录下的 wj.avi 文件为例。
直接调用媒体播放器进行播放
在
程序设计时, 可以调用超级解霸、 媒体播放器等多种视频播放器播放视频文件。 具体实现方法如下:
在一个表单中添加一个命令按钮,其 Name 属性为 CmdPlay。为事件 CmdPlay_Click 写入以下代码:
Run c:\sthvcd60\mmxvcd c:\wj.avi &;&;&;&;调用超级解霸或 Run c:\ProgramFiles\WindowsMediaPlayer\mplayer2 c:\wj.avi &;&;&;&;调用媒体播放 器。
运行该表单时,利用超级解霸或媒体播放器固有的功能按钮控制播放。
利用 Multimedia 多媒体控件进行播放
在
设计时, 首先应通过“工具”菜单下的“选项”将 Multimedia 控件添加到控件箱中。 然后,在一个表单中加入一个 Multimedia 多媒体控件,其 Name 属性为 Olecontrol1。并为事件 Form1_Activate 加入以下代码:
Thisform.Olecontrol1.DeviceType='avivideo'
&;&;&;&;设置多媒体控件管理的设备类型
Thisform.Olecontrol1.FileName='c:\wj.avi' &;&;&;&;设置播放的视频文件
Thisform.Olecontrol1.Command='Open' &;&;&;&;打开设备
运行该表单时,利用多媒体控件的固有按钮控制播放。
利用可视类 Videoframe 进行播放
在实现时,首先通过“查看类”下的“添加”项,将 Samples 类加入,然后,在一个 表单中添加 Videoframe 对象,其 Name 属性为 Videoframe1,再添加三个命令 按钮,其 Name 属性分别为 CmdPlay、CmdPause、CmdClose。并为各个事件 写入代码:
在 CmdPlay_ Click 事件中:
Thisform. Videoframe1.VideoFile='c:\wj.avi'
&;&;&;&;设置播放文件
Thisform. Videoframe1.OpenVideo &;&;&;&;调用打开过程
运行该表单时,利用三个命令按钮即可控制媒体的播放。