|
============程序1
OptionExplicit
'
'利用微软OCR控件,只需要不到10行代码就能够实现自已的OCR文字识别软件.
'1. 添加控件,需要安装office2003,没有安装office2003的可以从别人机子上拷贝相关文件,注册regsvr32.exe mdivwctl.dll,
'控件一般在这个目录下:C:Program FilesCommon FilesMicrosoft SharedMODI.0,只需要相关的几个文件就可以了,此文件夹全部文件大概在21M左右.
'2.工程->部件->添加这个控件:Microsoft Office Document Imaging 11.0 Type Library
'OCR的主要功能
PrivateFunctionOCRImageFile(ByVal strNameAsString)AsBoolean
DimmiDocAsObject
'初始化并加载文档
SetmiDoc=CreateObject("MODI.Document")'创建对象
miDoc.Create App.Path&"1.bmp"'加载图片文件
Screen.MousePointer=vbHourglass'设置光标忙
'识别
Err.Clear
miDoc.Images(0).OCR2052,True,True
Text1.Text=miDoc.Images(0).Layout.Text
OCRImageFile=True
End Function
PrivateSubCommand1_Click()
DimbolPAsBoolean
bolP=OCRImageFile(App.Path&"1.bmp")
End Sub
===================== 程序2
OptionExplicit
'
'利用微软OCR控件,只需要不到10行代码就能够实现自已的OCR文字识别软件.
'1. 添加控件,
'控件一般在这个目录下:C:Program FilesCommon FilesMicrosoft SharedMODI.0,此文件夹全部文件大概在21M左右.
'2.工程->部件->添加这个控件:Microsoft Office Document Imaging 11.0 Type Library
'OCR的主要功能
PrivateFunctionOCRImageFile(ByVal strNameAsString)AsBoolean
DimmodiDocumentAsNewMODI.Document
DimmodiImagesAsNewMODI.Images
DimmodiImageAsNewMODI.Image
DimmodiLayoutAsNewMODI.Layout
DimImageCountAsInteger
DimiAsInteger
modiDocument.OCR miLANG_CHINESE_SIMPLIFIED,False,False
SetmodiImage=modiDocument.Images
Fori=0ToImageCount
SetmodiImage=modiImages.Item(i)
SetmodiLayout=modiImage.Layout
Text1.Text=modiLayout.Text
Nexti
modiDocument.CloseFalse:SetmodiDocument=Nothing
IfImageCount>0Then
OCRImageFile=True
Else
OCRImageFile=False
EndIf
End Function
PrivateSubCommand1_Click()
DimbolPAsBoolean
bolP=OCRImageFile(App.Path&"1.bmp")
End Sub （编辑：李大同）
【声明】本站内容均来自网络，其相关言论仅代表作者个人观点，不代表本站立场。若无意侵犯到您的权利，请及时与联系站长删除相关内容!
|
