应用 Microsoft TTS 语音引擎的 Delphi 语言实例

来源：互联网发布：新加坡服务业数据查询编辑：程序博客网时间：2024/05/21 19:37

建立一个单窗体工程，添加一个 Edit 和 2 个 Button 控件，分别命名为 Edit1、btnSpeak、btnStop。然后安装引用 TTS 的 vtxtauto.tlb 类库文件，方法是点击菜单“工程-Import Type Library”，点“add”按钮，然后选中 Windows/speech 下的 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
      vtxt.StopSpeaking;
    end;
    end.