开启辅助访问 切换到宽版

精易论坛

 找回密码
 注册

QQ登录

只需一步,快速开始

用微信号发送消息登录论坛

新人指南 邀请好友注册 - 我关注人的新帖 教你赚取精币 - 每日签到


求职/招聘- 论坛接单- 开发者大厅

论坛版规 总版规 - 建议/投诉 - 应聘版主 - 精华帖总集 积分说明 - 禁言标准 - 有奖举报

查看: 25099|回复: 91
收起左侧

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

[复制链接]
发表于 2020-6-26 23:17:50 | 显示全部楼层 |阅读模式   辽宁省鞍山市
分享例程
界面截图:
备注说明: 调用TTS SAPI.SpVoice和科大讯飞5.0,文本转语音,语音朗读,比较机读文本库更强大,更完善,中文易懂易用
本帖最后由 琪诺兔 于 2020-6-26 23:20 编辑

【Qn机读文本TTS SAPI.SpVoice和科大讯飞5.0模块
文本转语音 语音朗读 带标记回调 中文简单易懂易用带例程
【告!科大讯飞5.0依附于STTSApi.dll和iFlyTTS.dll
如模块无法使用请下载相应修复工具【winXP TTS补丁https://lanzoux.com/iczj19g工具源于网络不保证绝对安全
如模块无法使用请下载相应修复工具win7 TTS补丁 https://lanzoux.com/iczj1da】工具源于网络不保证绝对安全
【以下是使用例程】
请按照以下窗口创建组件
未标题-2.png
写下以下代码
  
窗口程序集名保 留  保 留备 注
窗口程序集1  Demo的窗口程序集
变量名类 型数组备 注
机读文本Qn机读文本  
语音库文本型0 
讯飞5Qn讯飞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多线程支持库
【模块下载 Qn机读文本.7z (568.34 KB, 下载次数: 527)

评分

参与人数 3好评 +3 精币 +8 收起 理由
acx525 + 1 + 2 虽然阅读语音还是比较机械。。 比在线的接口差很多。。还是顶一下.
易语言资源网 + 1 + 5 支持开源~!感谢分享
luckfish45 + 1 + 1 感谢分享,很给力!~

查看全部评分


友情提醒:请选择可信度高的模块,勿用未知模块,防止小人在模块内加入木马程序。【发现问题模块请到站务投诉】。
结帖率:0% (0/5)

签到天数: 11 天

发表于 2024-8-20 12:16:55 | 显示全部楼层   四川省成都市
换了几台电脑都无法使用。都报错,错误代码126 估计是缺少什么文件。
回复 支持 反对

使用道具 举报

结帖率:0% (0/5)

签到天数: 11 天

发表于 2024-8-20 11:20:55 | 显示全部楼层   四川省成都市
支持开源。下载试试。之前下了好多都是网页连接或是微软自带的语音引擎。试试这个
回复 支持 反对

使用道具 举报

结帖率:100% (9/9)
发表于 2024-8-2 12:09:15 | 显示全部楼层   广东省深圳市
谢谢大佬,感谢分享!!
回复 支持 反对

使用道具 举报

签到天数: 5 天

发表于 2024-7-11 20:05:27 | 显示全部楼层   陕西省咸阳市
支持开源~!感谢分享
回复 支持 反对

使用道具 举报

发表于 2024-6-2 00:02:40 | 显示全部楼层   安徽省阜阳市
感谢分享!!!1
回复 支持 反对

使用道具 举报

结帖率:0% (0/10)

签到天数: 1 天

发表于 2024-5-11 14:38:43 | 显示全部楼层   江西省上饶市
是离线的还是在线的
回复 支持 反对

使用道具 举报

发表于 2024-4-20 08:12:52 | 显示全部楼层   天津市天津市
666666666666666666
回复 支持 反对

使用道具 举报

结帖率:0% (0/1)
发表于 2024-2-19 08:51:15 | 显示全部楼层   安徽省安庆市
感谢分享
回复 支持 反对

使用道具 举报

结帖率:0% (0/1)
发表于 2024-2-10 15:54:13 | 显示全部楼层   安徽省安庆市
感谢分享
回复 支持 反对

使用道具 举报

您需要登录后才可以回帖 登录 | 注册

本版积分规则 致发广告者

发布主题 收藏帖子 返回列表

sitemap| 易语言源码| 易语言教程| 易语言论坛| 易语言模块| 手机版| 广告投放| 精易论坛
拒绝任何人以任何形式在本论坛发表与中华人民共和国法律相抵触的言论,本站内容均为会员发表,并不代表精易立场!
论坛帖子内容仅用于技术交流学习和研究的目的,严禁用于非法目的,否则造成一切后果自负!如帖子内容侵害到你的权益,请联系我们!
防范网络诈骗,远离网络犯罪 违法和不良信息举报电话0663-3422125,QQ: 793400750,邮箱:wp@125.la
Powered by Discuz! X3.4 揭阳市揭东区精易科技有限公司 ( 粤ICP备12094385号-1) 粤公网安备 44522102000125 增值电信业务经营许可证 粤B2-20192173

快速回复 返回顶部 返回列表