原创力文档- 1、本文档共4页，可阅读全部内容。
- 2、原创力文档（book118）网站文档一经付费（服务费），不意味着购买了该文档的版权，仅供个人/单位学习、研究之用，不得用于商业用途，未经授权，严禁复制、发行、汇编、翻译或者网络传播等，侵权必究。
- 3、本站所有内容均由合作方或网友上传，本站不对文档的完整性、权威性及其观点立场正确性做任何保证或承诺！文档内容仅供研究参考，付费前请自行鉴别。如您付费，意味着您自己接受本站规则且自行承担风险，本站不退款、不进行额外附加服务；查看《如何避免下载的几个坑》。如果您已付费下载过本站文档，您可以点击 这里二次下载。
- 4、如文档侵犯商业秘密、侵犯著作权、侵犯人身权等，请点击“版权申诉”（推荐），也可以打举报电话：400-050-0827(电话支持时间：9:00-18:30)。
TTS在PB中的应用。
1、先声明实例变量
oleobjecttts
2、窗口打开时，实例化变量
?//调用SAPI语音,前提已装好SAPI
?longll_status
?tts=CREATEOLEObject
?ll_status=tts.ConnectToNewObject(SAPI.SpVoice)
?
?IFll_status0THEN
??messagebox(调用错误,您可能还未安装语音库!)
??tts.DisconnectObject()
??DESTROYtts
?else
??wf_ini()
?endif
?//其中，Wf_ini为窗口函数
?/取得当前安装的语音引擎和输出的音频设备?
?//注意,像VB等语言,数组下标以0开始
?//返回1,正常;返回0,取得引擎失败;返回-1,取得音频设备失败(可能未安装声卡)
?integern,m
?stringls_desp
?//取得引擎列表
?m=integer(tts.GetVoices.Count)
?ifm1thenreturn0
?forn=1tom
??ls_desp=string(tts.GetVoices.Item[n-1].GetDescription())
??ifn=1then?ddlb_voice.text=ls_desp
??ddlb_voice.additem(ls_desp)
?next
?//取得音频输出列表
?m=tts.GetAudioOutputs.count
?ifm1thenreturn-1
?forn=1tom
??ls_desp=string(tts.GetAudioOutputs.Item[n-1].GetDescription())
???ifn=1then?ddlb_audio_out.text=ls_desp
???ddlb_audio_out.additem(ls_desp)
?next
?return1
3、朗读
?stringls_read
?integerli_ret
?//终止先前朗读,如果有
?li_ret=tts.speak(,2)
?
?//异步朗读
?li_ret=tts.speak(mle_read.text,1)
?
4、暂停/继续
?//cb_read,cb_stop为朗读和停止朗读按钮
?if?this.text=暂停then
??tts.pause()
??this.text=继续
??cb_read.enabled=false
??cb_stop.enabled=false
?else
??tts.resume()
??this.text=暂停
??cb_read.enabled=true
??cb_stop.enabled=true
?endif
5、停止朗读
?tts.speak(,2)
6、增加音量
?if?tts.Volume100then?tts.Volume=tts.Volume+10;
7、减少音量
?if?tts.Volume9thentts.Volume=tts.Volume-10;
8、增加语速
?iftts.Rate10then?tts.Rate=tts.Rate+1;
9、降低语速
?iftts.Rate-10then?tts.Rate=tts.Rate-1
10、改变朗读引擎
?//在下拉列表的改变事件中执行
?ifindex0thentts.Voice=tts.GetVoices.Item[index-1]
11、改变音频输出设备
?//在下拉列表的改变事件中执行
?ifindex0thentts.AudioOutput=tts.GetAudioOutputs.Item[index-1]
12、释放内存
?//在窗口closequery事件中执行
?ifisvalid(tts)then?DESTROYtts
文档评论（0）