VFP怎么调用mp3文件
VFP如何调用mp3文件
表单上有2个按钮,
点击后播放音乐。
点停止后就停止播放。
set bell to 好何只支持wav
有好的办法吗?
使用wmplayer 的话,如何对方机器没有这个控件怎么办?
求解?
------解决思路----------------------
DECLARE LONG mciSendString IN Winmm STRING, LONG, LONG, LONG
播放("C:\TEMP\Test\洗衣歌.mp3")
MESSAGEBOX("暂停播放")
暂停播放()
MESSAGEBOX("继续播放")
继续播放()
MESSAGEBOX("停止播放")
停止播放()
MESSAGEBOX("关闭播放")
关闭播放()
CLEAR ALL
RETURN
FUNCTION 播放(sz音乐文件名)
IF FILE(sz音乐文件名)
mciSendString("open " + sz音乐文件名 + " alias MyPlay", 0, 0, 0)
mciSendString("play MyPlay", 0, 0, 0)
**mciSendString("play MyPlay repeat", 0, 0, 0) && 重复播放
ELSE
MESSAGEBOX(sz音乐文件名 + "...文件不存在")
ENDIF
ENDFUNC
FUNCTION 暂停播放()
mciSendString("pause MyPlay", 0, 0, 0)
ENDFUNC
FUNCTION 继续播放()
mciSendString("resume MyPlay", 0, 0, 0)
ENDFUNC
FUNCTION 停止播放()
mciSendString("stop MyPlay", 0, 0, 0)
ENDFUNC
FUNCTION 关闭播放()
mciSendString("close MyPlay", 0, 0, 0)
ENDFUNC
表单上有2个按钮,
点击后播放音乐。
点停止后就停止播放。
set bell to 好何只支持wav
有好的办法吗?
使用wmplayer 的话,如何对方机器没有这个控件怎么办?
求解?
------解决思路----------------------
DECLARE LONG mciSendString IN Winmm STRING, LONG, LONG, LONG
播放("C:\TEMP\Test\洗衣歌.mp3")
MESSAGEBOX("暂停播放")
暂停播放()
MESSAGEBOX("继续播放")
继续播放()
MESSAGEBOX("停止播放")
停止播放()
MESSAGEBOX("关闭播放")
关闭播放()
CLEAR ALL
RETURN
FUNCTION 播放(sz音乐文件名)
IF FILE(sz音乐文件名)
mciSendString("open " + sz音乐文件名 + " alias MyPlay", 0, 0, 0)
mciSendString("play MyPlay", 0, 0, 0)
**mciSendString("play MyPlay repeat", 0, 0, 0) && 重复播放
ELSE
MESSAGEBOX(sz音乐文件名 + "...文件不存在")
ENDIF
ENDFUNC
FUNCTION 暂停播放()
mciSendString("pause MyPlay", 0, 0, 0)
ENDFUNC
FUNCTION 继续播放()
mciSendString("resume MyPlay", 0, 0, 0)
ENDFUNC
FUNCTION 停止播放()
mciSendString("stop MyPlay", 0, 0, 0)
ENDFUNC
FUNCTION 关闭播放()
mciSendString("close MyPlay", 0, 0, 0)
ENDFUNC