按键精灵_百度ORC识别API

Function Baiduocr(api, Secret, 路径)
    CheckUpdate()
    TracePrint "开始识别请耐心等待..."
    Dim token=url.get("https://aip.baidubce.com/oauth/2.0/token?grant_type=client_credentials&client_id="&api&"&client_secret="&secret)
    dim mytoken=Encode.JsonToTable(token)
    Dim base64=ShanHai.ReadFileBase(路径)
    Dim 图片=ShanHai.CharToUrl(base64)
    Dim post内容="access_token="&mytoken["access_token"]&"&Content-Type=application/x-www-form-urlencoded&image="&图片&"&detect_direction=true"
    Dim myjson=url.post("https://aip.baidubce.com/rest/2.0/ocr/v1/general_basic",post内容)
    myjson = Encode.JsonToTable(myjson)
    Dim ret
    For i = 1 To UBOUND(myjson["words_result"])+1
        ret=ret&myjson["words_result"][i]["words"]
    Next
    Baiduocr=ret
End Function