请问题各路高手：VFP6中如何播放.AVI格式的文件！

[sengye]

我现在有一个.avi的文件，希望用VFP6播放，请高手指点,谢谢！

急！谢谢

[philozz]

请参考：
利用microsoft Multimedia control多媒体控件进行播放

1、首先应通过“工具”菜单下的“选项”将Multimedia控件添加到控件箱中
2、在表单中加入一个microsoft Multimedia control多媒体控件
假设其Name属性为Olecontrol1。
3、在适当的地方加入以下代码：
&&设置多媒体控件管理的设备类型
Thisform.Olecontrol1.DeviceType='avivideo'
&&设置播放的视频文件
Thisform.Olecontrol1.FileName='c:\temp\print31.avi'
&&打开设备
Thisform.Olecontrol1.Command='Open'
4、运行该表单时，利用多媒体控件的固有按钮控制播放。

[philozz]

方法二请参考：


1、FORM.INIT：
set library to HOME()+foxtools.fll ADDITIVE
public playfavi
playfavi=regfn("MCISendString","CCII","I","MMSYSTEM")

2、打开视频文件：
avifname=play.avifile
=callfn(playfavi,"Open &avifname alias AVI Type AVIVideo ","",0,0)
=callfn (playfavi,"put AVI window at 160 100 320 240","",0,0)
thisform.Refresh()

说明：160,100为窗口左上角坐标，320,240为窗口大小，也可用坐标变量的方式确定视频播放窗口的位置及大小。

3、播放AVI文件：
=callfn(playfavi,"Play AVI","",0,0)

4、回到片头操作：
=callfn(playfavi,"SEEK AVI TO START","",0,0)

5、转到片尾操作：
=callfn(playfavi,"SEEK AVI TO END","",0,0)

6、显示视频处理配置操作：
=callfn (playfavi,"configure avi ","",0,0)

7、关闭视频文件操作：
=callfn(playfavi,"close AVI","",0,0)

[meetyyl]

to zengzhe:利用microsoft Multimedia control多媒体控件进行播放

1、首先应通过“工具”菜单下的“选项”将Multimedia控件添加到控件箱中
这一步怎么做。具体点。

[philozz]

请参考：
1、在菜单 工具->选项 控件页框 点击activex控件
复选 microsoft Multimedia control
2、modi form myform1后
打开 表单控制 工具栏
第二个按纽 查看类 activex控件