[更新]Qn机读文本模块TTS SAPI.SpVoice科大讯飞5文本转语音 中文简单易懂易用带例程

琪诺兔

【Qn机读文本TTS SAPI.SpVoice和科大讯飞5.0模块】

【文本转语音 语音朗读 带标记回调 中文简单易懂易用带例程】

【告！科大讯飞5.0依附于STTSApi.dll和iFlyTTS.dll】

如模块无法使用请下载相应修复工具【winXP TTS补丁https://lanzoux.com/iczj19g】工具源于网络不保证绝对安全

如模块无法使用请下载相应修复工具【win7 TTS补丁 https://lanzoux.com/iczj1da】工具源于网络不保证绝对安全

【以下是使用例程】

请按照以下窗口创建组件

写下以下代码

  

窗口程序集名	保 留	保 留	备 注
窗口程序集1			Demo的窗口程序集
变量名	类 型	数组	备 注
机读文本	Qn机读文本
语音库	文本型	0
讯飞5	Qn讯飞5机读
TTS	逻辑型

子程序名	返回值类型	公开	备 注
__启动窗口_创建完毕

变量名	类 型	静态	数组	备 注
i	整数型

机读文本.创建 ()  ' 创建一个Qn机读文本
机读文本.列举库 (语音库)  ' 列举系统安装的语音库
调试输出 (语音库)
TTS ＝ 真
如果真 (取反 (讯飞5.创建 ()))
信息框 (“错误码：” ＋ 到文本 (讯飞5.取错误 ()), #错误图标, “讯飞5无法初始化”, )
计次循环首 (机读文本.取人数 (), i)
TTS音库列表.加入项目 (语音库 [i], )  ' 将列举的语音库填充到组合框
计次循环尾 ()

子程序名	返回值类型	公开	备 注
回调函数			朗读回调子程序
参数名	类 型	参考	可空	数组	备 注
是否完成	逻辑型
朗读位置	整数型
朗读长度	整数型

如果真 (是否完成 ＝ 假)
编辑框.起始选择位置 ＝ 朗读位置
编辑框.被选择字符数 ＝ 朗读长度

子程序名	返回值类型	公开	备 注
_到文本_被单击			这里很好理解不解释

启动线程 (&到文件线程, , )
' 程序集_机读文本.到文件 (编辑框1.内容, 音库列表.取项目文本 (音库列表.现行选中项), 取运行目录 () ＋ “\测试.wav”)

子程序名	返回值类型	公开	备 注
到文件线程

变量名	类 型	静态	数组	备 注
句柄	整数型			用于储存讯飞5的链接句柄

如果 (TTS)
机读文本.到文件 (编辑框.内容, TTS音库列表.取项目文本 (TTS音库列表.现行选中项), 取运行目录 () ＋ “\测试.wav”)


句柄 ＝ 0
句柄 ＝ 讯飞5.连接 (, )  ' 链接讯飞5引擎
讯飞5.置音量 (句柄, )  ' 设置发音人音量用于参数与SPTTS的参数不一样要操作一堆东西懒得写了相信大家都是小机灵鬼肯定很好理解的
讯飞5.置语速 (句柄, )  ' 设置发音人语速用于参数与SPTTS的参数不一样要操作一堆东西懒得写了相信大家都是小机灵鬼肯定很好理解的
讯飞5.置声调 (句柄, )  ' 设置发音人声调用于参数与SPTTS的参数不一样要操作一堆东西懒得写了相信大家都是小机灵鬼肯定很好理解的
讯飞5.置音库 (句柄, 多项选择 (讯飞5音库列表.现行选中项 ＋ 1, #讯飞5_发音人_女_小燕_中普, #讯飞5_发音人_女_小美_中英粤, #讯飞5_发音人_男_小宇_中普, #讯飞5_发音人_女_Sherri_英文, #讯飞5_发音人_女_小倩_中普, #讯飞5_发音人_女_小琳_台普 ))  ' 设置发音人
讯飞5.导出_字符串 (句柄, 编辑框.内容, 取运行目录 () ＋ “\测试.wav”)
如果真 (句柄 ≠ 0)
讯飞5.断开 (句柄)

子程序名	返回值类型	公开	备 注
_开始阅读_被单击

变量名	类 型	静态	数组	备 注
句柄	整数型			用于储存讯飞5的链接句柄

机读文本.继续 ()  ' 在开始新的朗读前应先将暂停状态还原到朗读状态
机读文本.停止 ()  ' 在开始新的朗读前应先停止朗读
讯飞5.停止 ()  ' 在开始新的朗读前应先停止朗读
如果 (TTS)  ' 处于标准TTS形态时使用对应的操作指令
机读文本.置音量 (音量.位置)  ' 设置本次朗读的音量
机读文本.置语速 (语速.位置 － 10)  ' 设置本次朗读的语速
机读文本.朗读 (机读文本.置声调 (编辑框.内容, 语调.位置 － 10))  ' 设置本次让你的声调并开始朗读
' 程序集_机读文本.等待 (-1)' 这个你们取消注释看看就知道了
启动线程 (&回调线程, , )  ' 让回调线程在其他线程执行否则会焦点错误
句柄 ＝ 0  ' 让句柄处于零状态
句柄 ＝ 讯飞5.连接 (, )  ' 链接讯飞5引擎
讯飞5.置音量 (句柄, )  ' 设置发音人音量用于参数与SPTTS的参数不一样要操作一堆东西懒得写了相信大家都是小机灵鬼肯定很好理解的
讯飞5.置语速 (句柄, )  ' 设置发音人语速用于参数与SPTTS的参数不一样要操作一堆东西懒得写了相信大家都是小机灵鬼肯定很好理解的
讯飞5.置声调 (句柄, )  ' 设置发音人声调用于参数与SPTTS的参数不一样要操作一堆东西懒得写了相信大家都是小机灵鬼肯定很好理解的
讯飞5.置音库 (句柄, 多项选择 (讯飞5音库列表.现行选中项 ＋ 1, #讯飞5_发音人_女_小燕_中普, #讯飞5_发音人_女_小美_中英粤, #讯飞5_发音人_男_小宇_中普, #讯飞5_发音人_女_Sherri_英文, #讯飞5_发音人_女_小倩_中普, #讯飞5_发音人_女_小琳_台普 ))  ' 设置发音人
讯飞5.朗读_字符串 (句柄, 编辑框.内容, 假)  ' 开始朗读
如果真 (句柄 ≠ 0)  ' 如果句柄不等于零就断开当前链接
讯飞5.断开 (句柄)  ' 断开当前链接

子程序名	返回值类型	公开	备 注
回调线程			这里很好理解不解释

机读文本.回调 (&回调函数)  ' 给回调提供一个&回调函数

子程序名	返回值类型	公开	备 注
_暂停_被单击			这里很好理解不解释

机读文本.暂停 ()  ' 讯飞5没有暂停的接口

子程序名	返回值类型	公开	备 注
_继续_被单击			这里很好理解不解释

机读文本.继续 ()  ' 讯飞5没有继续的接口

子程序名	返回值类型	公开	备 注
_停止_被单击			这里很好理解不解释

如果 (TTS)  ' 处于标准TTS形态时使用对应的操作指令
机读文本.停止 ()
讯飞5.停止 ()

子程序名	返回值类型	公开	备 注
_TTS音库列表_列表项被选择

讯飞5音库列表.现行选中项 ＝ -1
机读文本.置音库 (TTS音库列表.取项目文本 (TTS音库列表.现行选中项))  ' 通过组合框的现行选中项取到项目文本[语音库名称]并设置发音人
TTS ＝ 真  ' 确定使用的是标准TTS

子程序名	返回值类型	公开	备 注
_讯飞5音库列表_列表项被选择

TTS音库列表.现行选中项 ＝ -1
TTS ＝ 假

i支持库列表	支持库注释
spec	特殊功能支持库
EThread	多线程支持库

.版本 2<br /> .支持库 spec<br /> .支持库 EThread<br /> <br /> .程序集 窗口程序集1, , , Demo的窗口程序集<br /> .程序集变量 机读文本, Qn机读文本<br /> .程序集变量 语音库, 文本型, , "0"<br /> .程序集变量 讯飞5, Qn讯飞5机读<br /> .程序集变量 TTS, 逻辑型<br /> <br /> .子程序 __启动窗口_创建完毕<br /> .局部变量 i, 整数型<br /> <br /> 机读文本.创建 ()  ' 创建一个Qn机读文本<br /> 机读文本.列举库 (语音库)  ' 列举系统安装的语音库<br /> 调试输出 (语音库)<br /> TTS ＝ 真<br /> .如果真 (取反 (讯飞5.创建 ()))<br />     信息框 (“错误码：” ＋ 到文本 (讯飞5.取错误 ()), #错误图标, “讯飞5无法初始化”, )<br /> .如果真结束<br /> .计次循环首 (机读文本.取人数 (), i)<br />     TTS音库列表.加入项目 (语音库 <i>, )  ' 将列举的语音库填充到组合框<br /> .计次循环尾 ()<br /> <br /> .子程序 回调函数, , , 朗读回调子程序<br /> .参数 是否完成, 逻辑型<br /> .参数 朗读位置, 整数型<br /> .参数 朗读长度, 整数型<br /> <br /> .如果真 (是否完成 ＝ 假)<br />     编辑框.起始选择位置 ＝ 朗读位置<br />     编辑框.被选择字符数 ＝ 朗读长度<br /> .如果真结束<br /> <br /> <br /> .子程序 _到文本_被单击, , , 这里很好理解不解释<br /> <br /> 启动线程 (&到文件线程, , )<br /> ' 程序集_机读文本.到文件 (编辑框1.内容, 音库列表.取项目文本 (音库列表.现行选中项), 取运行目录 () ＋ “\测试.wav”)<br /> <br /> .子程序 到文件线程<br /> .局部变量 句柄, 整数型, , , 用于储存讯飞5的链接句柄<br /> <br /> .如果 (TTS)<br />     机读文本.到文件 (编辑框.内容, TTS音库列表.取项目文本 (TTS音库列表.现行选中项), 取运行目录 () ＋ “\测试.wav”)<br /> .否则<br /> <br />     句柄 ＝ 0<br />     句柄 ＝ 讯飞5.连接 (, )  ' 链接讯飞5引擎<br />     讯飞5.置音量 (句柄, )  ' 设置发音人音量用于参数与SPTTS的参数不一样要操作一堆东西懒得写了相信大家都是小机灵鬼肯定很好理解的<br />     讯飞5.置语速 (句柄, )  ' 设置发音人语速用于参数与SPTTS的参数不一样要操作一堆东西懒得写了相信大家都是小机灵鬼肯定很好理解的<br />     讯飞5.置声调 (句柄, )  ' 设置发音人声调用于参数与SPTTS的参数不一样要操作一堆东西懒得写了相信大家都是小机灵鬼肯定很好理解的<br />     讯飞5.置音库 (句柄, 多项选择 (讯飞5音库列表.现行选中项 ＋ 1, #讯飞5_发音人_女_小燕_中普, #讯飞5_发音人_女_小美_中英粤, #讯飞5_发音人_男_小宇_中普, #讯飞5_发音人_女_Sherri_英文, #讯飞5_发音人_女_小倩_中普, #讯飞5_发音人_女_小琳_台普))  ' 设置发音人<br />     讯飞5.导出_字符串 (句柄, 编辑框.内容, 取运行目录 () ＋ “\测试.wav”)<br />     .如果真 (句柄 ≠ 0)<br />         讯飞5.断开 (句柄)<br />     .如果真结束<br /> <br /> .如果结束<br /> <br /> <br /> .子程序 _开始阅读_被单击<br /> .局部变量 句柄, 整数型, , , 用于储存讯飞5的链接句柄<br /> <br /> 机读文本.继续 ()  ' 在开始新的朗读前应先将暂停状态还原到朗读状态<br /> 机读文本.停止 ()  ' 在开始新的朗读前应先停止朗读<br /> 讯飞5.停止 ()  ' 在开始新的朗读前应先停止朗读<br /> .如果 (TTS)  ' 处于标准TTS形态时使用对应的操作指令<br />     机读文本.置音量 (音量.位置)  ' 设置本次朗读的音量<br />     机读文本.置语速 (语速.位置 － 10)  ' 设置本次朗读的语速<br />     机读文本.朗读 (机读文本.置声调 (编辑框.内容, 语调.位置 － 10))  ' 设置本次让你的声调并开始朗读<br />     ' 程序集_机读文本.等待 (-1)' 这个你们取消注释看看就知道了<br />     启动线程 (&回调线程, , )  ' 让回调线程在其他线程执行否则会焦点错误<br /> .否则<br />     句柄 ＝ 0  ' 让句柄处于零状态<br />     句柄 ＝ 讯飞5.连接 (, )  ' 链接讯飞5引擎<br />     讯飞5.置音量 (句柄, )  ' 设置发音人音量用于参数与SPTTS的参数不一样要操作一堆东西懒得写了相信大家都是小机灵鬼肯定很好理解的<br />     讯飞5.置语速 (句柄, )  ' 设置发音人语速用于参数与SPTTS的参数不一样要操作一堆东西懒得写了相信大家都是小机灵鬼肯定很好理解的<br />     讯飞5.置声调 (句柄, )  ' 设置发音人声调用于参数与SPTTS的参数不一样要操作一堆东西懒得写了相信大家都是小机灵鬼肯定很好理解的<br />     讯飞5.置音库 (句柄, 多项选择 (讯飞5音库列表.现行选中项 ＋ 1, #讯飞5_发音人_女_小燕_中普, #讯飞5_发音人_女_小美_中英粤, #讯飞5_发音人_男_小宇_中普, #讯飞5_发音人_女_Sherri_英文, #讯飞5_发音人_女_小倩_中普, #讯飞5_发音人_女_小琳_台普))  ' 设置发音人<br />     讯飞5.朗读_字符串 (句柄, 编辑框.内容, 假)  ' 开始朗读<br /> .如果结束<br /> .如果真 (句柄 ≠ 0)  ' 如果句柄不等于零就断开当前链接<br />     讯飞5.断开 (句柄)  ' 断开当前链接<br /> .如果真结束<br /> <br /> <br /> .子程序 回调线程, , , 这里很好理解不解释<br /> <br /> 机读文本.回调 (&回调函数)  ' 给回调提供一个&回调函数<br /> <br /> .子程序 _暂停_被单击, , , 这里很好理解不解释<br /> <br /> 机读文本.暂停 ()  ' 讯飞5没有暂停的接口<br /> <br /> .子程序 _继续_被单击, , , 这里很好理解不解释<br /> <br /> 机读文本.继续 ()  ' 讯飞5没有继续的接口<br /> <br /> .子程序 _停止_被单击, , , 这里很好理解不解释<br /> <br /> .如果 (TTS)  ' 处于标准TTS形态时使用对应的操作指令<br />     机读文本.停止 ()<br /> .否则<br />     讯飞5.停止 ()<br /> .如果结束<br /> <br /> <br /> .子程序 _TTS音库列表_列表项被选择<br /> <br /> 讯飞5音库列表.现行选中项 ＝ -1<br /> 机读文本.置音库 (TTS音库列表.取项目文本 (TTS音库列表.现行选中项))  ' 通过组合框的现行选中项取到项目文本[语音库名称]并设置发音人<br /> TTS ＝ 真  ' 确定使用的是标准TTS<br /> <br /> .子程序 _讯飞5音库列表_列表项被选择<br /> <br /> TTS音库列表.现行选中项 ＝ -1<br /> TTS ＝ 假

【模块下载 Qn机读文本.7z (568.34 KB, 下载次数: 527)

2020-6-26 23:13 上传

点击文件名下载附件 】

【例程下载 Qn机读文本例程2.2.e (36.74 KB, 下载次数: 425)

2020-6-26 23:13 上传

点击文件名下载附件 】

【最后希望本模块可以为你的程序添加一些色彩】

补充内容 (2020-7-2 16:37):
这里不提供语音TTS库下载和讯飞5.0下载但是既然我这个时间发了模块放在这里就肯定是好使的请大家TTS库和讯飞5.0百d绝对是有的请大家加加由自己解决一下感谢理解

redpiggy

换了几台电脑都无法使用。都报错，错误代码126 估计是缺少什么文件。

redpiggy

支持开源。下载试试。之前下了好多都是网页连接或是微软自带的语音引擎。试试这个

hxdqdqp

谢谢大佬，感谢分享！！

xiaoheshang

支持开源~！感谢分享

夜已沉默

感谢分享!!!1

cdmass

是离线的还是在线的

gch_1

666666666666666666

1300886755

感谢分享

1300886755

感谢分享