Question

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

Answer 1

先通过Delphi中的Project中的Import Type Library添加 C:\windows\Speech中的Vtxtauto.tlbDelphi生成一个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

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

Answer 3

电脑报上不是有这方面的一个例子吗？