为编程爱好者分享易语言教程源码的资源网
三叶资源网易语言免费公开课
三叶资源网官方③群:33301895 三叶资源网解压密码 C全站文字广告,诚邀与您合作 三叶资源网培训教程视频 三叶资源网官方③群:33301895
三叶资源网官方③群:33301895 三叶资源网访问导航 B全站文字广告,诚邀与您合作 三叶资源网培训教程视频 三叶资源网官方③群:33301895

网站首页 易语言相关 网络相关源码 正文

谷歌云识别易语言源码

三叶资源网 2013-03-02 网络相关源码 190 ℃ 0 评论

源码通过创建HTTP对象实现了谷歌识别功能。可以看看源码学习下。

@黑客易语言源码

.版本 2
.支持库 eMMedia

.程序集 窗口程序集1
.程序集变量 Temp, 文本型

.子程序 __启动窗口_创建完毕

Temp = 取临时文件名 ()  ' 创建临时文件

.子程序 _按钮1_被单击
.局部变量 采样率
.局部变量 WinHttp, 对象
.局部变量 中转站, 变体型
.局部变量 Text, 文本型

采样率 = 8000  ' 应该是值越高 越准确 但文件越大
.判断开始 (按钮1.标题 = “开始录制”)
    ' 三叶资源网(www.sanye.cx)
    录音1.置格式 (1, 采样率, 16)
    录音1.录制 ()
    标签1.标题 = “ 请长官讲话”
    按钮1.标题 = “开始识别”
.判断 (按钮1.标题 = “开始识别”)
    ' 三叶资源网(www.sanye.cx)
    录音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”, 中转站)  ' 发送识别数据
    ' 三叶资源网(www.sanye.cx)
    Text = WinHttp.读文本属性 (“ResponseText”, )
    Text = 取指定内容 (Text, “[”, “]”)
    .如果 (Text ≠ “”)  ' confidence 是准确率 utterance识别结果
        Text = 取指定内容 (Text, “utterance” + #引号 + “:” + #引号, #引号 + “,” + #引号 + “confidence”)
        标签1.标题 = “ ” + Text
    .否则
        标签1.标题 = “ 报告长官识别失败”
    .如果结束
    ' 三叶资源网(www.sanye.cx)
    WinHttp.清除 ()
    按钮1.标题 = “开始录制”
.默认

.判断结束


.子程序 __启动窗口_将被销毁

删除文件 (Temp)  ' 清理战场

.子程序 取指定内容, 文本型, 公开, 取出想要的内容
.参数 完整内容, 文本型, , 完整内容
.参数 左边文本, 文本型, 可空, 左边文本
.参数 右边文本, 文本型, 可空, 右边文本
.局部变量 临时位置, 整数型
.局部变量 总长度, 整数型
.局部变量 临时文本, 文本型

总长度 = 取文本长度 (完整内容)
.判断开始 (右边文本 = “”)
    .如果 (寻找文本 (完整内容, 左边文本, , 假) > -1)
        临时位置 = 寻找文本 (完整内容, 左边文本, , 假) + 取文本长度 (左边文本)
        临时文本 = 取文本中间 (完整内容, 临时位置, 总长度)
        返回 (临时文本)
    .否则
        返回 (“”)
    .如果结束
    ' 三叶资源网(www.sanye.cx)
.判断 (左边文本 = “”)
    .如果 (寻找文本 (完整内容, 右边文本, , 假) > -1)
        临时位置 = 寻找文本 (完整内容, 右边文本, , 假) - 1  ' - 取文本长度 (右边文本)
        临时文本 = 取文本左边 (完整内容, 临时位置)
        返回 (临时文本)
    .否则
        返回 (“”)
    .如果结束
    ' 三叶资源网(www.sanye.cx)
.判断 (左边文本 = “” 且 右边文本 = “ ”)
    返回 (“”)
.默认
    .如果 (寻找文本 (完整内容, 左边文本, , 假) > -1)
        临时位置 = 寻找文本 (完整内容, 左边文本, , 假) + 取文本长度 (左边文本)
        临时文本 = 取文本中间 (完整内容, 临时位置, 总长度)
        总长度 = 取文本长度 (临时文本)
        临时位置 = 寻找文本 (临时文本, 右边文本, , 假) - 1
        临时文本 = 取文本中间 (临时文本, 1, 临时位置)
        返回 (临时文本)
    .否则
        返回 (“”)
    .如果结束
    ' 三叶资源网(www.sanye.cx)
.判断结束

   

文件下载


Tags:易语言资源网

来源:三叶资源网,欢迎分享,公众号:iisanye,(三叶资源网官方③群:33301895

本文暂时没有评论,来添加一个吧(●'◡'●)

欢迎 发表评论:

百度站内搜索
交流QQ群:33301895
三叶资源网官方③群:33301895
加群全凭信仰,群里有的资源网站也会有。
群里只是能及时交流,群主会尽力解答一些会的问题。
设置付费入群,只是为了过滤一些小号无意义广告。
所以不必要为了1块钱加群又退出
群主在群内发的红包都够你抢回来还有的多,更何况还能交流学习。
网站分类
随机tag
POST递归算法常量支持库保护壳引流软件源码支持库源码Safenginesocket5易语言5.8反汇编httpwacth程序调试UDP订单监控JSON次世代Accessible接口http按键精灵软件加密
最新评论