OcrEx文字识别(增强版)
返回指定区域内所有识别到的文本,无需自制字库,识别范围越小,效率越高,结果越准确
注意:安卓版按键APP需在设置页下载安装【ocrEx组件库】,如主程序(不含插件、命令库)使用到该函数,则在打包小精灵时会自动添加组件,无需自行下载,但包体会有所变大,如在插件、命令库中使用,可在主程序中加入以下代码实现小精灵添加组件:
sub 占位() ocrEx(0,0,0,0) end sub
支持版本:手机助手v4.0.0、iOS新版v2.0.0、安卓版v3.8.0及以上版本
支持系统:iOS14、安卓5及以上版本系统
result = OcrEx (left,top,right,bottom[,mode] [,language])
参数名 | 参数类型 | 是否必选 | 参数说明 |
---|---|---|---|
left | int | 是 | 识别区域的左上角x坐标 |
top | int | 是 | 识别区域的左上角y坐标 |
right | int | 是 | 识别区域的右下角x坐标 |
bottom | int | 是 | 识别区域的右下角y坐标 |
mode | int | 否 | 识别模式,0:精准模式,1:快速模式,默认:0 |
language | string | 否 | 识别语种,支持多语种,分隔符”,“,默认:”0” “0”:中文+英文 “1”:中文 “2”:英文 |
返回名 | 返回类型 | 返回说明 |
---|---|---|
result | table | 返回响应结果信息的含有数组的键值表,如存在n个结果,则table长度为n |
result 包含的字段
字段名 | 字段类型 | 字段说明 |
---|---|---|
x | int | 识别到文本区域的左上角x坐标 |
y | int | 识别到文本区域的左上角y坐标 |
h | int | 识别到文本区域的高度 |
w | int | 识别到文本区域的宽度 |
score | float | 识别到文本区域的可信度 |
//识别返回全屏范围内的文本,默认模式(精准)、默认语种(中文+英文)
Dim ranTime = tickCount(),ret = ocrEx(140,208,247,296)
"识别耗时:" & TickCount() - ranTime & "ms"
TracePrint If Len(ret) = 1 and ret[1]["text"] = "" Then
"没有识别到文本"
TracePrint Else
For i = 1 to len(ret)
If ret[i]["text"] <> "" Then
"识别到文本" & i & ":" & ret[i]["text"] &_
TracePrint ",左上角x坐标:" & ret[i]["x"] &_
",左上角y坐标:" & ret[i]["y"] &_
",区域宽:" & ret[i]["w"] &_
",区域高:" & ret[i]["h"] &_
",可信度:" & ret[i]["score"]
End If
Next
End If
//识别返回全屏范围内的文本,快速模式、中文+英文
ranTime = tickCount()
ret = ocrEx(0, 0, 0, 0, 1, "1,2")
"识别耗时:" & TickCount() - ranTime & "ms"
TracePrint If Len(ret) = 1 and ret[1]["text"] = "" Then
"没有识别到文本"
TracePrint Else
For i = 1 to len(ret)
If ret[i]["text"] <> "" Then
"识别到文本" & i & ":" & ret[i]["text"] &_
TracePrint ",左上角x坐标:" & ret[i]["x"] &_
",左上角y坐标:" & ret[i]["y"] &_
",区域宽:" & ret[i]["w"] &_
",区域高:" & ret[i]["h"] &_
",可信度:" & ret[i]["score"]
End If
Next
End If