TTS在PB中的应用文档.doc

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