利用微软OCR控件, 只需要不到10行代码就能够实现自已的OCR文字识别软件. 1. 添加控件,需要安装office2003, 没有安装office2003的可以从别人机子上拷贝相关文件,注册regsvr32.exe mdivwctl.dll, 控件一般在这个目录下:C:/Program Files/Common Files/Microsoft Shared/MODI.0, 只需要相关的几个文件就可以了, 此文件夹全部文件大概在21M左右. 2.工程->部件->添加这个控件:Microsoft Office Document Imaging 11.0 Type Library
Option Explicit 'OCR的主要功能 Private Function OCRImageFile(ByVal strName As String) As Boolean Dim modiDocument As New MODI.Document Dim modiImages As New MODI.Images Dim modiImage As New MODI.Image Dim modiLayout As New MODI.Layout Dim ImageCount As Integer Dim i As Integer modiDocument.OCR miLANG_CHINESE_SIMPLIFIED, False, False Set modiImage = modiDocument.Images
For i = 0 To ImageCount Set modiImage = modiImages.Item(i) Set modiLayout = modiImage.Layout Text1.Text = modiLayout.Text Next i modiDocument.Close False: Set modiDocument = Nothing If ImageCount > 0 Then OCRImageFile = True Else OCRImageFile = False End If End Function