[教程源码] 云识别字库ocr(包含市面上所有字体,毫秒级别)

Import "ShanHai.lua"
Import "zm.luae"
do
    TracePrint 查找文字 (667,1586,722,1919)
Loop 
Function 查找文字(x1, y1, x2, y2)
    SnapShot "/sdcard/测试.png",x1,y1,x2,y2
    dim b64 = zm.FileReadBinaryBase64("/sdcard/测试.png")
    dim Json字符串= 文字识别(b64,"中",1,"0")
    dim 键值表 = Encode.JsonToTable(Json字符串)
    Dim 去字
    去字 = 键值表["Result"]["Words_data"][1]["content"]
     //提取识别后结果
    TracePrint 去字
End Function
Function 文字识别(b64,语言,模式,旋转)
    Dim 键值表
    If 语言 = "中" Then
        语言 = "ch"
    ElseIf 语言 = "日" Then
        语言 = "japan"
    ElseIf 语言 = "韩" Then
        语言 = "korean"
    ElseIf 语言 = "英" Then
        语言 = "en"
    Else
        语言 = "ch"
    End If
    If 模式 = 1 Then
        模式 = "m"
    ElseIf 模式 = 2 Then
        模式 = "h"
    Else
        模式 = "m"
    End If
    If 旋转 = "右" Then
        旋转 = "90"
    elseIf 旋转 = "左" Then
        旋转 = "-90"
    elseIf 旋转 = "1" Then
        旋转 = "180"
    else
        旋转 = "0"
    End If
    b64=Replace(b64,"+","%2b")
    b64=Replace(b64,"/", "%2f")
    b64 = Replace(b64, "=", "%3d")
    dim formStr = "img=" & b64 & "&lan=" &语言 & "&model="&模式&"&rotate="&旋转
    Dim  xv
    dim MyTime = TickCount()
    xv = URL.Post("http://103.100.211.60:5689/report", formStr)
    键值表 = Encode.JsonToTable(xv)
    If 键值表["Result"]["Words_data"][1] =null Then 
        TracePrint "无内容"
        文字识别 = ""
    Else 
        文字识别 =  xv        
    End If
    TracePrint   "请求用时:"&  TickCount() -MyTime
End Function