MMCONTROL行吗,怎么做?
或有什么其他更好的办法,API不会!
------解决方案--------------------------------------------------------
- SQL code
vfp播放AVI,同样也可以播放MP3*---------------------------------------方法一: (需要mci32.ocx) 利用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、运行该表单时,利用多媒体控件的固有按钮控制播放。 方法二: Declare INTEGER mciSendString IN winmm.DLL STRING ,STRING @,INTEGER ,INTEGER Buffer=SPACE(100)CAVINAME='d:\FILEMOVE.AVI'=mcisendstring("Open "+Caviname+" alias AVI Type AVIVideo ",@BUFFER,0,0)=mcisendstring("put AVI window at 160 100 320 240",@BUFFER,0,0)*160,100为窗口左上角坐标,320,240为窗口大小*播放AVI=mcisendstring("Play AVI",@BUFFER,0,0)WAIT*回到片头=mcisendstring("SEEK AVI TO START",@BUFFER,0,0)WAIT*转到片尾=mcisendstring("SEEK AVI TO END",@BUFFER,0,0)WAIT*关闭AVI=mcisendstring("close AVI",@BUFFER,0,0)*清除DLL的函数Clear DLLS