Delphi中英文语音朗读程序(控件及源码)调试OK先安装MicrosoftSpeechSDK5.1,这是微软的声音支持控件前面安装不多做介绍,一步一步安装即可安装完成后,需要加载Delphi控件在DelphiIDE中选择菜单Project,ImportTypeLibrary—点击按钮Add(C:\ProgramFiles\CommonFiles\MicrosoftShared\Speech\sapi.dll)—点击按钮Install-在Install对话框中点击按钮OK—在Confirm对话框中点击按钮Yes—在对话框中点击按钮OK。
至此,共19个控件被添加到Delphi组件板ActiveX页上。
其中spvoice控件是我们要使用的MicrosoftSpeechSDK5.1下载地址:http://intraweb.5d6d.com/thread-280-1-1.htmlSpVoice详解属性描述AlertBoundary取得或设置停顿分界线。
AllowAudioOutputFormatChangesOnNextSet设置是否允许声音自动调整到合适状态以适应其音频输出。
AudioOutput.取得或设置当前声音使用的的音频输出对象AudioOutputStream取得或设置当前声音使用的的音频输出流对象。
EventInterests取得或设置当前声音返回的事件类型。
Priority取得或设置声音的优先级。
Rate取得或设置阅读的速度。
Status返回一个ISpeechVoiceStatus对象用于显示当前阅读和事件的状态SynchronousSpeakTimeout取得或设置一个时间间隔,用于标识多久未获得一个输出设备后,一个同步的Speak和SpeakStream将终止,以毫秒计算。
Voice取得或设置发音对象。
Volume取得或设置声音的大小。
方法描述DisplayUI是否在控制面板中展示详细设置。
GetAudioOutputs返回一个可用的音频输出标记。
GetVoices返回一个可用的发音对象。
IsUISupported决定是否能通过控制棉板的音频设置来控制。
Pause暂停朗读。
.Resume恢复暂停,继续播放。
Skip在当前输入的文本流中向前或向后跳一定距离再播放。
Speak阅读一个字符串。
SpeakCompleteEvent得到一个朗读完毕的时间句柄SpeakStream朗读一个文本流或一个声音文件。
WaitUntilDone阻塞进程,直到声音播放完毕或者超时。
1