Option Explicit
'利用MS Office 2003/2007的OCR控件, 对图片进行OCR识别
'在VB中,只需要不到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
'3.需要注意的一点是,在Windows2003 Server上,如果用Office自带的识别软件,会报错:
' "在一页或多页上执行 OCR 不成功(未找到文本)"的错误,但用VB写的测试程序识别是正常的。
'OCR的主要功能
Private Function OCRImageFile(ByVal strImageFileName As String) As Boolean
Dim miDoc As Object
'初始化并加载文档
Set miDoc = CreateObject("MODI.Document") '创建对象
miDoc.Create(strImageFileName) '加载图片文件
Screen.MousePointer = vbHourglass '设置沙漏光标
'识别
Err.Clear
miDoc.Images(0).OCR 2052, True, True
Text1.Text = miDoc.Images(0).Layout.Text
OCRImageFile = True
Screen.MousePointer = vbArrow '恢复箭头光标
End Function
Private Sub cmdOCR_Click()
Dim bolP As Boolean
Dim strFileName as String
strFileName = "c:\test.tif"
bolP = OCRImageFile(strFileName)
End Sub
分享到:
相关推荐
本话题聚焦于如何利用Office 2003自带的OCR组件,结合VB6.0(Visual Basic 6.0)编程语言来实现文字识别功能。以下是对这个主题的详细讲解: 首先,我们需要理解OCR组件的工作原理。OCR技术通过分析图像中的字符...
### 微软OCR控件vb调用MODI详解 #### 一、概述 OCR(Optical Character Recognition,光学字符识别)技术是计算机视觉领域的重要应用之一,它能够将图像中的文字转换为可编辑的文本格式。微软提供的OCR控件MODI...
在本文中,我们将深入探讨如何利用Microsoft Office 2003自带的OCR(光学字符识别)组件进行文字识别,并结合PowerBuilder 9.0(PB9.0)编写代码实现这一功能。OCR技术允许我们将图像中的印刷或手写文本转换为可编辑...
2. OCR引擎接口调用:VB代码需要加载OCR DLL,并通过适当的方法调用OCR引擎提供的接口,如初始化引擎、设置识别参数、执行识别等。 3. 区域选择:如果需要,可能还需要对图像进行裁剪或选择特定区域进行识别。 4. ...
2017年存储技术变革与发展的趋势.pdf
毕业论文-qing游戏风格 商业版(GBK)-整站商业源码.zip
实训商业源码-效能-毕业设计.zip
平台跳跃游戏的核心魅力在于重力与控制的精妙平衡。本文将构建角色运动的微分方程模型,解析空中机动算法,并揭示关卡设计中的隐式引力场理论,展现2D平台游戏背后的复杂物理模拟系统。
实训商业源码-签到工具-毕业设计.zip
nsync///////
实训商业源码-票务高级版4.2.9-毕业设计.zip
运算符重载函数(友元函数).cpp
ABAQUS模型定义.pdf
FreeRTOS计数信号量的使用,模拟停车场运行逻辑
毕业论文-方熊表单V1.0.0 开源版-整站商业源码.zip
毕业论文-多商户线下积分商城会员群发V2.5.11 原版-整站商业源码.zip
实训商业源码-新材料-毕业设计.zip
毕业论文-活码自动进群V1.0.0 开源版-整站商业源码.zip
毕业论文-红包拓客生意宝2.0.3 开源版-整站商业源码.zip
Baidunetdisk_AndroidPhone_1023843j (6).apk