怎样用Delphi利用MsTTS实现对英文朗读功能？

Question

最简单的方法是将 MS Text-To-Speech 导入为 OCX 控件，然后就像一般的控件一样在 Delphi 中使用就行了。

Answer 1

先通过Delphi中的Project中的Import Type Library添加 C:\windows\Speech中的Vtxtauto.tlb
Delphi生成一个VTxtAuto_tlb;在程序中：Uses
 ……
 VtxtAuto_TLB
 ……Var  
 ……
 My_TTS:IVTxtAuto;
 ……FormCreate中添加
My_TTS:=CoVTxtAuto_.Create;
My_TTS.Register('Txt_TTS','Txt_TTS');朗读：
My_TTS.Speak(DBMEnglish.Text,vtxtst_READING);  //vtxtst_READING 还有几种只可以使用停止：
My_TTS.StopSpeaking;获取速度：
My_TTS.Get_Speed;调整速度：
My_TTS.Speed:=……
  
  

Answer 2

我有源代码，有兴趣跟我联系[email protected]