我的代码在使用了 OpenCV封装的函数 在调试时正常执行 简直完美 但在模拟器运行时报错 说OpenCV没有定义 明明时一个方法 为什么报错没有定义 以及如何解决 求求大哥们如何解决 以下是我的代码 有需要的伙伴也可以拿去用 已经封装好了
Function cv返回最佳(x1,y1,x2,y2,图片名,相似度,缩放小,缩放大,步长) Dim ret, 识别成功
识别成功 = False ' 默认未识别到
' 调用OpenCV最佳匹配（步长参数未使用，保留仅兼容调用）
ret = OpenCV.FindImgBest(x1,y1,x2,y2,"Attachment:"&图片名&".png", 相似度,缩放小,缩放大, 10,{"isGray":true})
If ret["code"] = 0 Then
' 检查是否有匹配数据（避免空数据）
If Len(ret["data"]) > 0 Then
识别成功 = True ' 识别到则标记为True
' 打印匹配详情
For i = 1 to len(ret["data"])
TracePrint "识别到图片：" & ret["data"]["pic"] &_
",左上角x坐标：" & ret["data"]["x"] &_
",左上角y坐标：" & ret["data"]["y"] &_
",区域宽：" & ret["data"]["w"] &_
",区域高：" & ret["data"]["h"] &_
",可信度：" & ret["data"]["score"] &_
",图片序号：" & ret["data"]["index"]
Next
End If
Else
TracePrint "识别失败原因：" & ret["msg"]
End If
' 关键：返回识别结果（True/False）
cv返回最佳 = 识别成功
End Function
闽公网安备 35010002000112号