可以脚本调用的简单OCR

 本文是在<我的简单OCR>基础上进行了com封装。可以供脚本调用。

代码位置：脚本调用的简单OCR 

 在下面页面可以看到: http://foolpanda1168.download.csdn.net/   因为才Sdn上传后处理太慢立马看不到，暂时这么写。 应该是这个地址http://download.csdn.net/source/1471497

脚本如下（以VBScript为例）

Function GetOcrString Dim objocr Dim astr Dim astrtt Dim idx astr=" " Set objocr = CreateObject("ocrcomp.TOCRComScript") astr=objocr.Bmp2WordEn("XXX2.bmp") astrtt=objocr.Bmp2WordEx("kqt.bmp",0,220) GetOcrString=astr+" and "+astrtt End Function astrn=GetOcrString() MsgBox "The word in bitmap: " & astrn Set objocr = Nothing

objocr.Bmp2WordEx("kqt.bmp",0,220) ，数字参数表示字前景色灰度值在区间[0，220]；

脚本中识别了两个图片中的字。

并且提供了com组件的源代码

下图是要识别的图片。

   

xxx2.bmp,kqt.bmp是用两种方法各识别的图片名称。

mychar.txt存放了要识别的字模，wchardecod.txt为新识别的字的图案，可以将其中的内容复制到mychar.txt，并说明是什么字，char=6就表示6的字模。 通过不断加字模就可以识别更多的字。识别采用的是近似算法。

Char=6 Row=0,Col=0 ptnum=67 @@@@@ @@@@@@@ @@@ @@@ @@@ @@@@@@ @@@@@@@ @@@ @@@ @@ @@ @@ @@@ @@@ @@@ @@@@@@@ @@@@@

具体见附件，下载地址

---

内附的XpOcrDemo.exe程序可以参看图片灰度直方图，菜单[OCR测试][直方图]