Delphi中英文语音朗读程序(含控件及源码)调试OK

时间:2013-07-10 17:12:10
【文件属性】:

文件名称:Delphi中英文语音朗读程序(含控件及源码)调试OK

文件大小:348KB

文件格式:RAR

更新时间:2013-07-10 17:12:10

Delphi中英文语音朗读程序

Delphi中英文语音朗读程序(控件及源码)调试OK 先安装Microsoft Speech SDK 5.1,这是微软的声音支持控件 前面安装不多做介绍,一步一步安装即可 安装完成后,需要加载Delphi控件 在Delphi IDE中选择菜单Project,Import Type Library—点击按钮Add(C:\Program Files\Common Files\Microsoft Shared\Speech\ sapi.dll)—点击按钮Install-在Install对话框中点击按钮OK—在Confirm对话框中点击按钮Yes—在对话框中点击按钮OK。至此,共19个控件被添加到Delphi组件板ActiveX页上。其中spvoice控件是我们要使用的 Microsoft Speech SDK 5.1下载地址:http://intraweb.5d6d.com/thread-280-1-1.html SpVoice详解 属性 描述 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 阻塞进程,直到声音播放完毕或者超时。


【文件预览】:
codefans.net
----读者语音源码()
--------Project1.dof(1KB)
--------xpmenu()
--------Unit1.dcu(40KB)
--------Unit1.dfm(18KB)
--------Project1.cfg(374B)
--------Project1.dpr(226B)
--------Unit1.pas(31KB)
--------Project1.res(876B)
--------VOLUME()
--------Unit1.ddp(51B)

网友评论

  • 谢谢分享 先学下下
  • 实现的不错!
  • 还可以,能用,不过声音有点奇怪。。。
  • 有参考价值,能解决基本的应用
  • 非常感谢,值得参考
  • 谢谢分享,下载看看先
  • 有参考价值,能解决基本的应用
  • 非常不错!
  • 谢谢分享,下载看看先
  • 还没来的及验证
  • 不错,可以使用,谢谢分享
  • 装完SDK 5.1,没找到 sapi.dll,所以就不知道怎么编译过去。。。
  • 不错,很值得学习
  • 有参考价值,能解决基本的应用
  • 不错,*的软件值得收藏。
  • 有参考价值,能解决基本的应用
  • 还可以,就是感觉有点乱
  • 调试通过搞定,非常感谢!
  • 没敢用它,不知道什么情况
  • 还可以,就是音质不好!
  • 不错很好用,只是语音发音不够好听。
  • 有一定的参考价值
  • 有参考价值,能解决基本的应用!!!
  • 有参考价值,能解决基本的应用
  • 为啥我的是没有 “找不到指定的模块。.”提示呢。请给说一下可以吗 qq908085643,谢谢了。
  • 下载下来了,还没时间去测试呢,应该可以用吧,好多朋友都反馈过了。
  • 有一定的参考价值
  • 经过努力的测试可以了
  • 还不错 挺好用的
  • 感觉不错,做为急需用是一个很好的参考