1,108
社区成员
发帖
与我相关
我的任务
分享请教，PB如何调用.wav音频文件，并且让此文件循环播放，在想让音频播放结束时，如何结束，在线等候，立即结账！！
请教，PB如何调用.wav音频文件，并且让此文件循环播放，在想让音频播放结束时，如何结束，在线等候，立即结账！！thanks!!
...全文
请发表友善的回复…
发表回复
侠雨飞飞 2003-02-21
- 打赏
- 举报
最省事的做法是
声明全局函数： FUNCTION ulong sndPlaySound(ref string lpszSoundName,ulong uFlags) LIBRARY
"winmm.dll" ALIAS FOR "sndPlaySoundA"
然后在timer中调用： sndPlaySound('msg.wav',3)
终止时将timer关闭即可
呵呵～
声明全局函数： FUNCTION ulong sndPlaySound(ref string lpszSoundName,ulong uFlags) LIBRARY
"winmm.dll" ALIAS FOR "sndPlaySoundA"
然后在timer中调用： sndPlaySound('msg.wav',3)
终止时将timer关闭即可
呵呵～
toutou 2003-01-12
- 打赏
- 举报
同意balloonman2002(唉，MM，啊) ，我也是这样做。
balloonman2002 2003-01-12
- 打赏
- 举报
Q : PB里面调用音乐（wav文件）的例子
主要解答者: songfrh 提交人: herotx
感谢: songfrh
审核者: wu_07 论坛对应贴子: 查看
A :
---------------------------------------------------------------
FUNCTION ulong waveOutGetNumDevs() LIBRARY "winmm.dll "
FUNCTION ulong sndPlaySound(ref string lpszSoundName,ulong uFlags) LIBRARY "winmm.dll " ALIAS FOR "sndPlaySoundA "
//播放wav文件
ulong ll_numdevs,ll_mode
ll_mode = 0
ll_numdevs = waveOutGetNumDevs()
if ll_numdevs > 0 then
sndPlaySound(as_wavfile,ll_mode)
end if
到网上搜索一下该API的参数即可实现循环、停止，，，
如果不行，那就用第三方控件吧，，，
主要解答者: songfrh 提交人: herotx
感谢: songfrh
审核者: wu_07 论坛对应贴子: 查看
A :
---------------------------------------------------------------
FUNCTION ulong waveOutGetNumDevs() LIBRARY "winmm.dll "
FUNCTION ulong sndPlaySound(ref string lpszSoundName,ulong uFlags) LIBRARY "winmm.dll " ALIAS FOR "sndPlaySoundA "
//播放wav文件
ulong ll_numdevs,ll_mode
ll_mode = 0
ll_numdevs = waveOutGetNumDevs()
if ll_numdevs > 0 then
sndPlaySound(as_wavfile,ll_mode)
end if
到网上搜索一下该API的参数即可实现循环、停止，，，
如果不行，那就用第三方控件吧，，，
erigido 2003-01-11
- 打赏
- 举报
up
bomber2001 2003-01-06
- 打赏
- 举报
up
killerdanny 2003-01-06
- 打赏
- 举报
今天还好，经常要出门的！
YewPu 2003-01-06
- 打赏
- 举报
killerdanny，你很少在这儿回答问题，是不是很忙啊！
killerdanny 2003-01-06
- 打赏
- 举报
http://www.liulee.net/shares/share_open.php?id=1020592713
用系统自带的media player
用系统自带的media player
