Question

怎样在vfp表单中插入视频文件啊，谢谢喽

Answer 1

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 &&&&调用打开过程

运行该表单时，利用三个命令按钮即可控制媒体的播放。