导航
  • 主页
  • API 调用
  • 基础类
  • 控件与界面
  • 数据库相关
  • DataWindow
  • 项目管理
  • Web 应用
  • 脚本语言

请教,PB如何调用.wav音频文件,并且让此文件循环播放,在想让音频播放结束时,如何结束,在线等候,立即结账!!

zhangxf2000 2003-01-06 10:11:34
请教,PB如何调用.wav音频文件,并且让此文件循环播放,在想让音频播放结束时,如何结束,在线等候,立即结账!!thanks!!
...全文
7 点赞 收藏 8
写回复
8 条回复
切换为时间正序
请发表友善的回复…
发表回复
侠雨飞飞 2003-02-21
最省事的做法是
声明全局函数: 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的参数即可实现循环、停止,,,

如果不行,那就用第三方控件吧,,,
回复
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
回复
发动态
发帖子
PowerBuilder
创建于2007-09-28

809

社区成员

PowerBuilder 相关问题讨论
申请成为版主
社区公告
暂无公告