微软OCR控件 vb 调用 modi

利用微软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

  • 0
    点赞
  • 1
    收藏
    觉得还不错? 一键收藏
  • 3
    评论
评论 3
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

当前余额3.43前往充值 >
需支付:10.00
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、付费专栏及课程。

余额充值