谁能指点一句,循环播放声音(10分)

  • 主题发起人 主题发起人 zjc
  • 开始时间 开始时间
Z

zjc

Unregistered / Unconfirmed
GUEST, unregistred user!
我用delphi的mediaplayer控件播放声音,谁能告诉我一个最简单的办法,设置为循环播放
这个小的问题也麻烦大家,不好意思。可我真没找到,谢谢了。
 
sndplaysound('reminder.wav',SND_LOOP+SND_ASYNC);
 
你的意思是不用mediaplayer控件,直接用API,可我记得SNDPLAYSOUND只能播放不大于100K
的文件。我的WAV有7M多,做背景音乐。不知是不是这样
 
SORRY,没有玩过那个控件
 
没有简单的属性设置吗
要是有类似VB中的done 事件也行。可这我也没找到。大家帮帮忙。不会是因为分太少吧
我的问题太多了,我又挣不来分。唉,真没办法。
 

好像没有直接的属性可以利用,可以用别的办法解决

1. 加一个定时器,时间设为你的播放一次的时间+1秒,Play
2. 在MediaPlayer.OnNotify中, If Stopped then Play;
 
哇,干吗要用那么大的文件???
嘻嘻~~

我也不会。。。。。。
 
谢谢康夫,这个方法我知道。我觉得麻烦。要不然我用wint的语句试试
可是我用如下语句sndplaysound(AppPath+'1.wav',SND_ASYNC+SND_LOOP)
编译错误。pchar与string 不兼容。如何把string转化为pchar
烦劳wint再指教
 
谢谢康夫,这个方法我知道。我觉得麻烦。我用wint的方法,语句如下
sndplaysound(AppPath+'1.wav',SND_ASYNC+SND_LOOP)
编译错误。提示pchar 与string类型不兼容
如何把string转化为pchar,烦劳wint指教
 
多人接受答案了。
 
pchar(AppPath+'1.wav')
 

Similar threads

D
回复
0
查看
2K
DelphiTeacher的专栏
D
D
回复
0
查看
1K
DelphiTeacher的专栏
D
D
回复
0
查看
1K
DelphiTeacher的专栏
D
S
回复
0
查看
1K
SUNSTONE的Delphi笔记
S
后退
顶部