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

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

去发现同类优质开源项目:https://gitcode.com/

简介

本仓库提供了Delphi环境下开发的中英文语音朗读程序，包含所有必要的控件和源码。程序基于Microsoft Speech SDK 5.1，能够实现文本到语音的转换功能。

安装说明

1. 安装Microsoft Speech SDK 5.1：首先需要安装Microsoft Speech SDK 5.1。安装过程简单，只需按照提示一步一步安装即可。

2. 加载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控件是我们将要使用的。

控件和源码

• 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：阻塞进程，直到声音播放完毕或者超时。

注意事项

• 请确保已正确安装Microsoft Speech SDK 5.1。
• 使用前请仔细阅读控件和源码的文档和示例。

此程序已调试OK，可以直接使用或进一步开发。

去发现同类优质开源项目:https://gitcode.com/