delphi7 如何实现按钮带有配音(65分)

  • 主题发起人 主题发起人 meijingpengwork
  • 开始时间 开始时间
M

meijingpengwork

Unregistered / Unconfirmed
GUEST, unregistred user!
就像手机上按下1键,就有声音读1 ,这样的 谢谢
 
click里写一个播放声音的动作.
 
弄個聲音資源文件。
 
自己写个组减,继承tbutton
加入播放功能就可以了
 
确实,弄个声音的资源文件,再在onclick里播放就行了
 
在按钮的OnClick事件中调用一下:
sndPlaySound(PAnsiChar(GetExePath+'sound/Hint.wav'),SND_ASYNC);
记着引用mmsystem单元。
GetExePath是一个获取当前应用程序路径的自定义函数。
 
如楼上说的,但是楼上的代码如果在文件没有播放完成的时候,是会处于"无响应"的假死状态,LZ可以自己建个线程来播声音
 
楼上的,你说的不对,看看这个参数:SND_ASYNC,这个参数就是异步播放的意思,和你所说的用线程效果是一样的。SND_SYNC这个表示同步的,文件没播放完程序不往下执行,就是你所说的那个“假死”。
 
xcplates说的很正确,异步播放不存在那些问题。
 
谢谢大家热心 分数有限 给大家都分点
 
谢谢大家 分数有限 都给点
 
后退
顶部