delphi中开发需要先导入TTS的ActiveX控件, 方法如下:在Delphi开发界面的Project菜单下Import Type Library, 对话框里会有一个 Micosoft Speech Object Library Version5.1 的ActiveX组件,导入, 生成SpeechLib_TLB单元, 在ActiveX组件中加入19个sp系列组件, 其中有这个代码中用到的SpVoice.
代码实现可以自由选取语音库, 自由选取语音设备, 控制语速, 控制音量等功能.朗读中文需要例如NeoSpeech.TTS系列等的中文语音库.
1