首页 诗词 字典 板报 句子 名言 友答 励志 学校 网站地图
当前位置: 首页 > 教程频道 > 数据库 > VFP >

求教,用VFP9 播放MP3文件!该如何处理

2012-09-20 
求教,用VFP9 播放MP3文件!MMCONTROL行吗,怎么做?或有什么其他更好的办法,API不会![解决办法]SQL codevfp播

求教,用VFP9 播放MP3文件!
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 

热点排行