比机读文本库更强大TTS SAPI.SpVoice 文本转语音 带标记回调 中文简单易懂易用带例程

琪诺兔

【比机读文本库更强大的TTS SAPI.SpVoice模块】

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

如模块无法使用请下载相应修复工具【winXP TTS补丁】【win7 TTS补丁】修复工具来源于网络不保证绝对安全

【以下是使用例程】

请按照以下窗口创建组件

写下以下代码

  

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

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

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

机读文本.创建 ()  ' 创建一个Qn机读文本
机读文本.列举库 (语音库)  ' 列举系统安装的语音库
调试输出 (语音库)
计次循环首 (机读文本.取人数 (), i)
音库列表.加入项目 (语音库 [i], )  ' 将列举的语音库填充到组合框
计次循环尾 ()

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

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

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

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

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

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

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

机读文本.继续 ()  ' 在开始新的朗读前应先将暂停状态还原到朗读状态
机读文本.停止 ()  ' 在开始新的朗读前应先停止朗读
机读文本.朗读 (编辑框.内容)  ' 这里很好理解不解释
' 程序集_机读文本.等待 (-1)' 这个你们取消注释看看就知道了
启动线程 (&回调线程, , )  ' 让回调线程在其他线程执行否则会焦点错误

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

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

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

机读文本.暂停 ()

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

机读文本.继续 ()

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

机读文本.停止 ()

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

机读文本.置音库 (音库列表.取项目文本 (音库列表.现行选中项))  ' 通过组合框的现行选中项取到项目文本[语音库名称]并设置发音人

子程序名	返回值类型	公开	备 注
_语速_位置被改变			这里很好理解不解释

判断 (语速.位置 ＝ 1)
机读文本.置语速 (-10)
判断 (语速.位置 ＝ 2)
机读文本.置语速 (-9)
判断 (语速.位置 ＝ 3)
机读文本.置语速 (-8)
判断 (语速.位置 ＝ 4)
机读文本.置语速 (-7)
判断 (语速.位置 ＝ 5)
机读文本.置语速 (-6)
判断 (语速.位置 ＝ 6)
机读文本.置语速 (-5)
判断 (语速.位置 ＝ 7)
机读文本.置语速 (-4)
判断 (语速.位置 ＝ 8)
机读文本.置语速 (-3)
判断 (语速.位置 ＝ 9)
机读文本.置语速 (-2)
判断 (语速.位置 ＝ 10)
机读文本.置语速 (-1)
判断 (语速.位置 ＝ 11)
机读文本.置语速 (0)
判断 (语速.位置 ＝ 12)
机读文本.置语速 (1)
判断 (语速.位置 ＝ 13)
机读文本.置语速 (2)
判断 (语速.位置 ＝ 14)
机读文本.置语速 (3)
判断 (语速.位置 ＝ 15)
机读文本.置语速 (4)
判断 (语速.位置 ＝ 16)
机读文本.置语速 (5)
判断 (语速.位置 ＝ 17)
机读文本.置语速 (6)
判断 (语速.位置 ＝ 18)
机读文本.置语速 (7)
判断 (语速.位置 ＝ 19)
机读文本.置语速 (8)
判断 (语速.位置 ＝ 20)
机读文本.置语速 (19)
判断 (语速.位置 ＝ 21)
机读文本.置语速 (10)

子程序名	返回值类型	公开	备 注
_语调_位置被改变			这里很好理解不解释

机读文本.置音量 (语调.位置)

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

.版本 2<br /> .支持库 spec<br /> .支持库 EThread<br /> <br /> .程序集 窗口程序集1, , , Demo的窗口程序集<br /> .程序集变量 机读文本, Qn机读文本<br /> .程序集变量 语音库, 文本型, , "0"<br /> <br /> .子程序 __启动窗口_创建完毕<br /> .局部变量 i, 整数型<br /> <br /> 机读文本.创建 ()  ' 创建一个Qn机读文本<br /> 机读文本.列举库 (语音库)  ' 列举系统安装的语音库<br /> 调试输出 (语音库)<br /> .计次循环首 (机读文本.取人数 (), i)<br />     音库列表.加入项目 (语音库 <i>, )  ' 将列举的语音库填充到组合框<br /> .计次循环尾 ()<br /> <br /> .子程序 回调函数, , , 朗读回调子程序<br /> .参数 是否完成, 逻辑型<br /> .参数 朗读位置, 整数型<br /> .参数 朗读长度, 整数型<br /> <br /> .如果真 (是否完成 ＝ 假)<br />     编辑框.起始选择位置 ＝ 朗读位置<br />     编辑框.被选择字符数 ＝ 朗读长度<br /> .如果真结束<br /> <br /> <br /> .子程序 _到文本_被单击, , , 这里很好理解不解释<br /> <br /> 启动线程 (&到文件线程, , )<br /> ' 程序集_机读文本.到文件 (编辑框1.内容, 音库列表.取项目文本 (音库列表.现行选中项), 取运行目录 () ＋ “\测试.wav”)<br /> <br /> <br /> .子程序 到文件线程<br /> <br /> 机读文本.到文件 (编辑框.内容, 音库列表.取项目文本 (音库列表.现行选中项), 取运行目录 () ＋ “\测试.wav”)<br /> <br /> .子程序 _开始阅读_被单击<br /> <br /> 机读文本.继续 ()  ' 在开始新的朗读前应先将暂停状态还原到朗读状态<br /> 机读文本.停止 ()  ' 在开始新的朗读前应先停止朗读<br /> 机读文本.朗读 (编辑框.内容)  ' 这里很好理解不解释<br /> ' 程序集_机读文本.等待 (-1)' 这个你们取消注释看看就知道了<br /> 启动线程 (&回调线程, , )  ' 让回调线程在其他线程执行否则会焦点错误<br /> <br /> .子程序 回调线程, , , 这里很好理解不解释<br /> <br /> 机读文本.回调 (&回调函数)  ' 给回调提供一个&回调函数<br /> <br /> .子程序 _暂停_被单击, , , 这里很好理解不解释<br /> <br /> 机读文本.暂停 ()<br /> <br /> .子程序 _继续_被单击, , , 这里很好理解不解释<br /> <br /> 机读文本.继续 ()<br /> <br /> .子程序 _停止_被单击, , , 这里很好理解不解释<br /> <br /> 机读文本.停止 ()<br /> <br /> .子程序 _音库列表_列表项被选择<br /> <br /> 机读文本.置音库 (音库列表.取项目文本 (音库列表.现行选中项))  ' 通过组合框的现行选中项取到项目文本[语音库名称]并设置发音人<br /> <br /> .子程序 _语速_位置被改变, , , 这里很好理解不解释<br /> <br /> .判断开始 (语速.位置 ＝ 1)<br />     机读文本.置语速 (-10)<br /> .判断 (语速.位置 ＝ 2)<br />     机读文本.置语速 (-9)<br /> .判断 (语速.位置 ＝ 3)<br />     机读文本.置语速 (-8)<br /> .判断 (语速.位置 ＝ 4)<br />     机读文本.置语速 (-7)<br /> .判断 (语速.位置 ＝ 5)<br />     机读文本.置语速 (-6)<br /> .判断 (语速.位置 ＝ 6)<br />     机读文本.置语速 (-5)<br /> .判断 (语速.位置 ＝ 7)<br />     机读文本.置语速 (-4)<br /> .判断 (语速.位置 ＝ 8)<br />     机读文本.置语速 (-3)<br /> .判断 (语速.位置 ＝ 9)<br />     机读文本.置语速 (-2)<br /> .判断 (语速.位置 ＝ 10)<br />     机读文本.置语速 (-1)<br /> .判断 (语速.位置 ＝ 11)<br />     机读文本.置语速 (0)<br /> .判断 (语速.位置 ＝ 12)<br />     机读文本.置语速 (1)<br /> .判断 (语速.位置 ＝ 13)<br />     机读文本.置语速 (2)<br /> .判断 (语速.位置 ＝ 14)<br />     机读文本.置语速 (3)<br /> .判断 (语速.位置 ＝ 15)<br />     机读文本.置语速 (4)<br /> .判断 (语速.位置 ＝ 16)<br />     机读文本.置语速 (5)<br /> .判断 (语速.位置 ＝ 17)<br />     机读文本.置语速 (6)<br /> .判断 (语速.位置 ＝ 18)<br />     机读文本.置语速 (7)<br /> .判断 (语速.位置 ＝ 19)<br />     机读文本.置语速 (8)<br /> .判断 (语速.位置 ＝ 20)<br />     机读文本.置语速 (19)<br /> .判断 (语速.位置 ＝ 21)<br />     机读文本.置语速 (10)<br /> .默认<br /> <br /> .判断结束<br /> <br /> <br /> .子程序 _语调_位置被改变, , , 这里很好理解不解释<br /> <br /> 机读文本.置音量 (语调.位置)

【模块下载 Qn机读文本.zip (9.99 KB, 下载次数: 150)

2020-5-25 17:05 上传

点击文件名下载附件 】

【例程下载 Qn机读文本例程.e (17.7 KB, 下载次数: 143)

2020-5-25 17:05 上传

点击文件名下载附件 】

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

补充内容 (2020-7-2 16:41):
模块已经更新https://bbs.125.la/forum.php?mod ... 14591212&extra=

530278137

66666666666666666666666666

jingyi11023995

_语速_位置被改变

这里写成一行就行了：
机读文本.置语速（语速.位置 - 11）

zangchao

正好需要

zhangshangbin33

阿萨飒飒啊飒飒阿萨

zhangshangbin33

阿萨飒飒飒飒撒阿萨是

471868859

555555555555555555555555

471868859

厉害666666666

471868859

555555555555555555555555

471868859

66666666666666