如何在vfp中插入视频

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

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

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

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

你既然要录入数据，那么肯定要先建立一个表，这个没问题吧？

在建表的过程中，一定要注意在你要录入视频的那个字段的类型中选择通用型（这个你都不理解的话建议你去看看基础），表建立完成以后，提示是否输入数据，选择否，然后在命令窗口输入browse，浏览表,这个时候按组合键CTRL+Y，进行数据的输入，这时候你会发现被设置成了通用型的字段的记录是gen，双击gen，会d出一个窗口，在这个窗口你不能直接输入数据，而要在编辑菜单中选择插入对象，接下来的你应该知道怎么做了

---