為編程愛好者分享易語言教程源碼的資源網
挂機,挂機器人服務器88一年 收QQ協議|PC協議|安卓協議 收購QQ通訊協議|點擊聯系 收PCQQ協議|安卓QQ協議|聯系我 收易語言QQ協議|你有就找我 每日必買商品
注冊機|遊戲腳本|透視輔助|視頻教程 收QQ協議|PC協議|安卓協議 收購QQ通訊協議|點擊聯系 收PCQQ協議|安卓QQ協議|聯系我 收易語言QQ協議|你有就找我 挂機,挂機器人服務器88一年
易語言|按鍵精靈|app逆向|微信hook 收QQ協議|PC協議|安卓協議 收購QQ通訊協議|點擊聯系 收PCQQ協議|安卓QQ協議|聯系我 收易語言QQ協議|你有就找我 A全站文字廣告,誠邀與您合作

網站首頁 易語言相關 網絡相關源碼 正文

谷歌雲識别易語言源碼

三葉資源網 2013-03-02 網絡相關源碼 431 ℃ 0 評論

源碼通過創建HTTP對象實現了谷歌識别功能。可以看看源碼學習下。

@黑客易語言源碼

.版本 2
.支持庫 eMMedia

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

.子程序 __啟動窗口_創建完畢

Temp = 取臨時文件名 ()  ' 創建臨時文件

.子程序 _按鈕1_被單擊
.局部變量 采樣率
.局部變量 WinHttp, 對象
.局部變量 中轉站, 變體型
.局部變量 Text, 文本型

采樣率 = 8000  ' 應該是值越高 越準确 但文件越大
.判斷開始 (按鈕1.标題 = “開始錄制”)
    ' 三葉資源網(juhua445643.cn)
    錄音1.置格式 (1, 采樣率, 16)
    錄音1.錄制 ()
    标簽1.标題 = “ 請長官講話”
    按鈕1.标題 = “開始識别”
.判斷 (按鈕1.标題 = “開始識别”)
    ' 三葉資源網(juhua445643.cn)
    錄音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”, 中轉站)  ' 發送識别數據
    ' 三葉資源網(juhua445643.cn)
    Text = WinHttp.讀文本屬性 (“ResponseText”, )
    Text = 取指定内容 (Text, “[”, “]”)
    .如果 (Text ≠ “”)  ' confidence 是準确率 utterance識别結果
        Text = 取指定内容 (Text, “utterance” + #引号 + “:” + #引号, #引号 + “,” + #引号 + “confidence”)
        标簽1.标題 = “ ” + Text
    .否則
        标簽1.标題 = “ 報告長官識别失敗”
    .如果結束
    ' 三葉資源網(juhua445643.cn)
    WinHttp.清除 ()
    按鈕1.标題 = “開始錄制”
.默認

.判斷結束


.子程序 __啟動窗口_将被銷毀

删除文件 (Temp)  ' 清理戰場

.子程序 取指定内容, 文本型, 公開, 取出想要的内容
.參數 完整内容, 文本型, , 完整内容
.參數 左邊文本, 文本型, 可空, 左邊文本
.參數 右邊文本, 文本型, 可空, 右邊文本
.局部變量 臨時位置, 整數型
.局部變量 總長度, 整數型
.局部變量 臨時文本, 文本型

總長度 = 取文本長度 (完整内容)
.判斷開始 (右邊文本 = “”)
    .如果 (尋找文本 (完整内容, 左邊文本, , 假) > -1)
        臨時位置 = 尋找文本 (完整内容, 左邊文本, , 假) + 取文本長度 (左邊文本)
        臨時文本 = 取文本中間 (完整内容, 臨時位置, 總長度)
        返回 (臨時文本)
    .否則
        返回 (“”)
    .如果結束
    ' 三葉資源網(juhua445643.cn)
.判斷 (左邊文本 = “”)
    .如果 (尋找文本 (完整内容, 右邊文本, , 假) > -1)
        臨時位置 = 尋找文本 (完整内容, 右邊文本, , 假) - 1  ' - 取文本長度 (右邊文本)
        臨時文本 = 取文本左邊 (完整内容, 臨時位置)
        返回 (臨時文本)
    .否則
        返回 (“”)
    .如果結束
    ' 三葉資源網(juhua445643.cn)
.判斷 (左邊文本 = “” 且 右邊文本 = “ ”)
    返回 (“”)
.默認
    .如果 (尋找文本 (完整内容, 左邊文本, , 假) > -1)
        臨時位置 = 尋找文本 (完整内容, 左邊文本, , 假) + 取文本長度 (左邊文本)
        臨時文本 = 取文本中間 (完整内容, 臨時位置, 總長度)
        總長度 = 取文本長度 (臨時文本)
        臨時位置 = 尋找文本 (臨時文本, 右邊文本, , 假) - 1
        臨時文本 = 取文本中間 (臨時文本, 1, 臨時位置)
        返回 (臨時文本)
    .否則
        返回 (“”)
    .如果結束
    ' 三葉資源網(juhua445643.cn)
.判斷結束

   

文件下載


Tags:易語言資源網

來源:三葉資源網,歡迎分享,公衆号:iisanye,(三葉資源網④群:72857039

本文暫時沒有評論,來添加一個吧(●'◡'●)

歡迎 發表評論:

百度站内搜索
關注微信公衆号
三葉資源網④群:三葉資源網③群

網站分類
随機tag
PDO數據JBec無限加好友發送郵件内存枚舉類函數找色拼多多下單彈幕解析音頻處理JS分析滑塊坐标識别sqlite3藍奏雲彩票開獎遺漏組合分析支持庫源碼社會網絡一條遊走的龍易語言客戶端控制托盤圖标
最新評論