OCR识图技术 （Java/C#/VB/VB.NET/C/C++(VC)/C++ Builder/Delphi/易语言）

注：该程序不能识别出 汉字

参考网址：http://asprise.com/product/ocr/selector.php

 

易语言实现方法：

1、在参考网址中下载 VB ORC SDK-----Visual Basic 6 (VB) OCR SDK for Windows XP 32bit

2、将下载后的文件解压；在文件夹中找到 AspriseOCR.dll、DevIL.dll、ILU.dll、AspriseVB.dll、VBWrapperNew.dll（这5个文件）；拷贝到 系统\WINDOWS\system32 文件夹下

 

易语言程序实现代码

1、DLL命令

------------------------------------------------------------------------------------------------------------

.DLL命令 OCR, 文本型, "AspriseVB.dll", "OCR"
    .参数 file, 文本型
    .参数 imageType, 整数型

------------------------------------------------------------------------------------------------------------

.DLL命令 OCRBarCodes, 文本型, "VBWrapper.dll", "OCRBarCodes"
    .参数 file, 文本型
    .参数 imageType, 整数型

------------------------------------------------------------------------------------------------------------

.DLL命令 OCRpart, 文本型, "VBWrapper.dll", "OCRpart"
    .参数 file, 文本型
    .参数 imageType, 整数型
    .参数 startX, 整数型
    .参数 startY, 整数型
    .参数 width, 整数型
    .参数 height, 整数型

------------------------------------------------------------------------------------------------------------

2、程序调用代码

------------------------------------------------------------------------------------------------------------

识别出来的字符串 ＝ OCR (“图片文件路径”, -1)

 

注：该OCR图片识别技术在实现时会由DLL自动弹出对话框

关闭DLL对话框方法：

1、DLL命令

------------------------------------------------------------------------------------------------------------

.DLL命令 FindWindowEx, 整数型, , "FindWindowExA"
    .参数 hwndParent, 整数型
    .参数 hwndChildAfter, 整数型
    .参数 lpszClass, 整数型
    .参数 lpszWindow, 文本型
------------------------------------------------------------------------------------------------------------

.DLL命令 SendMessage, 整数型, , "SendMessageA"
    .参数 hwnd, 整数型
    .参数 wMsg, 整数型
    .参数 wParam, 整数型
    .参数 lParam, 整数型
------------------------------------------------------------------------------------------------------------

2、程序代码

 ------------------------------------------------------------------------------------------------------------

创建一个时钟控件，在控件中加入如下命令：

.子程序 _时钟1_周期事件
.局部变量 句柄, 整数型

句柄 ＝ 取句柄 (, , “All rights reserved. Lab Asprise! (c) 1998-2008”)
.如果真 (句柄 ≠ 0)
    句柄 ＝ FindWindowEx (句柄, 0, 0, “否(&N)”)
    .如果真 (句柄 ≠ 0)
        SendMessage (句柄, 245, 0, 0)

'其它语言实现时'SendMessage'命令中的'245'常量可改为'BM_CLICK' -------其它常量对应值待查

'该程序用的易语言第三方模块（Super-EC3.8破解版.ec）中的“取句柄()”