语音卡电话自助

语音卡电话自助 欢迎访问: 欢迎下载:bfmssloveycc上传的文章， 更多免费的豆丁资源，请访问: 谢谢欣赏 本实例是一个提高效率、人性化的程序 实例002 语音卡电话自助 实例位置:光盘\mingrisoft\01\001 002-A 语音卡是现在IT行业中很有 发展前景的一项技术，目前社会 上的所有关于电话服务的业务基 本都是由语音卡来实现的。这个 113电话自助系统就是仿照电话 业务实现的。当有电话拔进时在 内容中会提示你输入113，当你在 电话上按完113三个键时，在电 话中就会听到系统播放的音乐或 其它声音。 002-B 图1.1 语音卡实现来电显示 在这个实例中主要用到了几个控播放制声音的函数:1) rsetindexplayfile 这个函数是用来清空存放声音文件的缓冲区，准备存放新的声音文件。2)addindexplayfile 这个函数是用来向声音缓冲区中增加新的声音文件。3)startindexplayfile 这个函数是用来播放声音缓冲区中的声音文件。 注意:在获取声音文件时最好不要写全路径～要写当前路径要不然文件放到别的盘中就找不到了。 002-C (1)新建一个标准工程，创建一个新窗体，默认名为Form1。 (2) 在BDE的Data Controls标签页中选择DBGrid控件放在Form1窗体上，并设置DBGrid的Align属性为alTop。 (3)在BDE的Standard标签页中选择Button控件放在Form1窗体上。 (4)在BDE的System标签面中选择Timer控件放在Form1窗体上。 (5)播放声音文件的主要程序代码。 procedure TForm1.Timer1Timer(Sender: TObject); var i:Integer; begin push_play; feedsigfunc; 欢迎访问: Visual Basic范例大典 for i:=0 to channelcount-1 do begin if channel[i].playing then begin //如果为外线并有忙音，以挂机 if (checkchtypenew(i)=CHTYPE_TRUNK) and (sig_checkbusy(i)=1) then // if detect the busy tone , reset the trunk begin //reset trunk channel[i].Step:=0; channel[i].Idcount:=0; channel[i].Pwdcount:=0; hangup(i); startsigcheck(i);//开始新的信号检测 Sig_ResetCheck(i);//在挂机后执行，清空忙音缓冲区 initdtmfbuf(i); channel[i].Playing:=false; exit; end; //内线，没有响铃 if (ringdetect(i)=false) and (checkchtypenew(i)=CHTYPE_USER) then//IF USER HOOK IS ON THEN RESET USER begin channel[i].Step:=0; channel[i].Idcount:=0; channel[i].Pwdcount:=0; startsigcheck(i); StartPlaySignal(i, SIG_STOP);//停止播放信号音 initdtmfbuf(i); channel[i].Playing:=false; exit; end; paymsg(i); end else begin if RingDetect(i) then begin startsigcheck(i); resetcalleridbuffer(i); channel[i].playing:=True; channel[i].Step:=0; starttimer(i,4); paymsg(i); end; end; end; end; 002-D 根据本实例，读者可以开发: 用语音卡实现产品介绍～可通过按键实现不同产品的介绍。 用语音卡实现电话点拔歌曲～通过按键的选择点拔自已喜爱的歌曲。 用语音卡实现产品报介～通过按键实现某些产品的报介。 – 2 –