三三言情小说

手机浏览器扫描二维码访问

第18部分（第4页）

begin

close；

end

104；Q：应用　　Microsoft　　TTS　　语音引擎的　　Delphi　　语言实例

A：建立一个单窗体工程，添加一个　　Edit　　和　　2　　个　　Button　　控件，分别命名为　　Edit1、btnSpeak、btnStop。

然后安装引用　　TTS　　的　　vtxtauto。

tlb　　类库文件，方法是点击菜单“工程…Import　　Type　　Library”

，点“add”

按钮，然后选中　　Windowsspeech　　下的　　Vtxtauto。

tlb　　文件，放入安装包后，再将其添加成　　Delphi　　的一个　　Unit，自动产生的名字为“VTxtAuto_TLB”

。

然后，在主　　Unit　　的　　Uses　　里引用　　VTxtAuto_TLB，即在　　Uses　　后添加字串“VTxtAuto_TLB”

。

最后参考以下代码：

……

procedure　　TfrmSpeech。

FormCreate（Sender：　　TObject）；

begin

vtxt：=CoVTxtAuto_。

Create；

vtxt。

Register（；Speech）；

Edit1。

Text：=I　　am　　a　　chinese；　　I　　love　　my　　homeland　　very　　much；　　and　　you？

end；

procedure　　TfrmSpeech。

btnSpeakClick（Sender：　　TObject）；

begin

vtxt。

Speed：=100；

vtxt。

Speak（trim（Edit1。

Text）；10）；

end；

procedure　　TfrmSpeech。

btnStopClick（Sender：　　TObject）；

begin