Function 对接umiocr(图片路径)
Dim URL,JsonData,json,username,password,base64,节点数,ret
URL = "http://127.0.0.1:1224/api/ocr"
Import "SmHTTP.dll"
Import "SmWH.dll"
Set SmHTTP = CreateObject("SMWH.SmHTTP")
base64=Plugin.SMWH.Base64_File(图片路径)
JsonData = SmHTTP.JsonData( _
"base64",base64 , _
"Content-Type", "application/json" _
)
json = SmHTTP.HTTP_POST(URL, JsonData)
TracePrint json
//Call RunApp("notepad")
//SayString json
If SmHTTP.GetStatus() = 200 Then
If SmHTTP.GetJSON(json, "code")=100 Then
Dim x,t
t=Plugin.SmWeb.RunJS(1,"var json1="& json &";return json1.data.length;{alert(json1.data.length)};")
TracePrint "数组长度为:" & t
For i=0 to t-1
识别的文本 = SmHTTP.GetJSON(json, "data["& i &"]['text']")
TracePrint 识别的文本
对接umiocr="识别的文本:" & 识别的文本
next
Else
对接umiocr=-1
End If
Else
对接umiocr=-1
End If
End Function