微軟遵照COM的標準,提供了一套SpeechAPI來對MSTTS進行程式設計。要在程式中使用這套API,必須確保系統已經安裝了MSTTS和Spchapi軟體包。
SpeechAPI可以作為型別庫引用到Delphi中,方法是:開啟Project選單下的ImportTypeLitrary,點選“Add”加入Windows\Speech目錄下的Vtxauto.tlb檔案,在Delphi的Import目錄中就會生成VTxtAuto—TLB.pas檔案,其中定義了VTxtAuto—TLB單元,把它加到Uses成員中來。設計如圖2所示的視窗,定義全域性變數:
varVoTxt:IVTxtAuto;
然後在Form的OnCreate事件中加入:
VoTxt:=CoVTxtAuto_.Create;
VoTxt.Register(′′,′SpeechTest′);{註冊}
VoTxt.Speak(Memo1.Lines.Text,10);{朗讀}
VoTxt.StopSpeaking;{停止朗讀}
至此,應用程式已具有朗讀功能,10表示使用普通語氣。借住VoTxt的屬性和方法,我們還可以控制閱讀速度和語氣,實現暫停、跳句等功能。
微軟遵照COM的標準,提供了一套SpeechAPI來對MSTTS進行程式設計。要在程式中使用這套API,必須確保系統已經安裝了MSTTS和Spchapi軟體包。
SpeechAPI可以作為型別庫引用到Delphi中,方法是:開啟Project選單下的ImportTypeLitrary,點選“Add”加入Windows\Speech目錄下的Vtxauto.tlb檔案,在Delphi的Import目錄中就會生成VTxtAuto—TLB.pas檔案,其中定義了VTxtAuto—TLB單元,把它加到Uses成員中來。設計如圖2所示的視窗,定義全域性變數:
varVoTxt:IVTxtAuto;
然後在Form的OnCreate事件中加入:
VoTxt:=CoVTxtAuto_.Create;
VoTxt.Register(′′,′SpeechTest′);{註冊}
VoTxt.Speak(Memo1.Lines.Text,10);{朗讀}
VoTxt.StopSpeaking;{停止朗讀}
至此,應用程式已具有朗讀功能,10表示使用普通語氣。借住VoTxt的屬性和方法,我們還可以控制閱讀速度和語氣,實現暫停、跳句等功能。