开启辅助访问 切换到宽版

精易论坛

 找回密码
 注册

QQ登录

只需一步,快速开始

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

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


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

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

查看: 4119|回复: 2
收起左侧

[图文资料] 谷歌语音识别源码易语言教学YY:130790

[复制链接]
头像被屏蔽
发表于 2014-6-8 06:04:50 | 显示全部楼层 |阅读模式   广东省深圳市
YY:130790易语言免费教学,每周一、三、五晚上8点上课
毅鹏教育论坛:
www.eduyipeng.com频道给力讲师


[e=2][/e].版本 2
.支持库 eMMedia
.程序集 窗口程序集1
.程序集变量 Temp, 文本型
.子程序 __启动窗口_创建完毕
Temp = 取临时文件名 ()  ' 创建临时文件
.子程序 _按钮1_被单击
.局部变量 采样率
.局部变量 WinHttp, 对象
.局部变量 中转站, 变体型
.局部变量 Text, 文本型
采样率 = 8000  ' 应该是值越高 越准确 但文件越大
.判断开始 (按钮1.标题 = “开始录制”)
    录音1.置格式 (1, 采样率, 16)
    录音1.录制 ()
    标签1.标题 = “ 请长官讲话”
    按钮1.标题 = “开始识别”
.判断 (按钮1.标题 = “开始识别”)
    录音1.停止 ()
    录音1.保存文件 (Temp, 真)
    标签1.标题 = “ 正在识别中 请稍后...”
    WinHttp.创建 (“WinHttp.WinHttpRequest.5.1”, )  ' 创建对象
    WinHttp.方法 (“Open”, “POST”, “http://www.google.com/speech-api/v1/recognize?xjerr=1&client=chromium&lang=zh-CN”, 假)  ' 打开
    WinHttp.方法 (“SetRequestHeader”, “Content-Type”, “audio/L16; rate=” + 到文本 (采样率))  ' 设置协议头
    中转站.赋值 (读入文件 (Temp), )
    WinHttp.方法 (“Send”, 中转站)  ' 发送识别数据
    Text = WinHttp.读文本属性 (“ResponseText”, )
    Text = 取指定内容 (Text, “[”, “]”)
    .如果 (Text ≠ “”)  ' confidence 是准确率 utterance识别结果
        Text = 取指定内容 (Text, “utterance” + #引号 + “:” + #引号, #引号 + “,” + #引号 + “confidence”)
        标签1.标题 = “ ” + Text
    .否则
        标签1.标题 = “ 报告长官识别失败”
    .如果结束
    WinHttp.清除 ()
    按钮1.标题 = “开始录制”
.默认
.判断结束

.子程序 __启动窗口_将被销毁
删除文件 (Temp)  ' 清理战场
.子程序 取指定内容, 文本型, 公开, 取出想要的内容
.参数 完整内容, 文本型, , 完整内容
.参数 左边文本, 文本型, 可空, 左边文本
.参数 右边文本, 文本型, 可空, 右边文本
.局部变量 临时位置, 整数型
.局部变量 总长度, 整数型
.局部变量 临时文本, 文本型
总长度 = 取文本长度 (完整内容)
.判断开始 (右边文本 = “”)
    .如果 (寻找文本 (完整内容, 左边文本, , 假) > -1)
        临时位置 = 寻找文本 (完整内容, 左边文本, , 假) + 取文本长度 (左边文本)
        临时文本 = 取文本中间 (完整内容, 临时位置, 总长度)
        返回 (临时文本)
    .否则
        返回 (“”)
    .如果结束
.判断 (左边文本 = “”)
    .如果 (寻找文本 (完整内容, 右边文本, , 假) > -1)
        临时位置 = 寻找文本 (完整内容, 右边文本, , 假) - 1  ' - 取文本长度 (右边文本)
        临时文本 = 取文本左边 (完整内容, 临时位置)
        返回 (临时文本)
    .否则
        返回 (“”)
    .如果结束
.判断 (左边文本 = “” 且 右边文本 = “ ”)
    返回 (“”)
.默认
    .如果 (寻找文本 (完整内容, 左边文本, , 假) > -1)
        临时位置 = 寻找文本 (完整内容, 左边文本, , 假) + 取文本长度 (左边文本)
        临时文本 = 取文本中间 (完整内容, 临时位置, 总长度)
        总长度 = 取文本长度 (临时文本)
        临时位置 = 寻找文本 (临时文本, 右边文本, , 假) - 1
        临时文本 = 取文本中间 (临时文本, 1, 临时位置)
        返回 (临时文本)
    .否则
        返回 (“”)
    .如果结束
.判断结束


结帖率:52% (15/29)
发表于 2014-6-8 08:38:03 | 显示全部楼层   巴拿马
不错
回复 支持 反对

使用道具 举报

头像被屏蔽
发表于 2014-6-8 07:54:50 | 显示全部楼层   河南省南阳市
不错。支持下。
回复 支持 反对

使用道具 举报

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

本版积分规则 致发广告者

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

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

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