应用 Microsoft TTS 语音引擎的 Delphi 语言实例 建立一个单窗体工程,添加一个 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.
zhangking: 你说在windows下有一个speech目录,但在我的 windows xp 的windows目录下并没有找到这个speech目录。并且,我在 windows xp 的安装盘下并没有找到你提到的 Vtxtauto.tlb 文件。 但我在 windows xp 的安装盘下的 F:\Program Files\Common Files\Microsoft Shared 目录中找到一个speech 目录,但并没有 Vtxtauto.tlb 文件。
建立一个单窗体工程,添加一个 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.
你说在windows下有一个speech目录,但在我的 windows xp 的windows目录下并没有找到这个speech目录。并且,我在 windows xp 的安装盘下并没有找到你提到的 Vtxtauto.tlb 文件。
但我在 windows xp 的安装盘下的
F:\Program Files\Common Files\Microsoft Shared 目录中找到一个speech
目录,但并没有 Vtxtauto.tlb 文件。