如何通过VB6实现读取TIF的文字

Question

具体一点，你这个需求比较类似 OCR （Optical Character Recognition，光学字符识别）。目前市场上都是中等规模的软件。你看能否找到一款 OCR 软件的接口，你解析 TIF 文件，转换出它需要的扫描信息。不过，许多 OCR 软件还是需要人工干预的，比如它列出一些图像识别出的可选字符，比如“已、己、巳、巴”之类，让你选。一页文本可能有多处。

Answer 1

+1,我还是建议楼主去购买现成的OCX识别插件，自己写的话，估计你要花很长很长的时间。
我给你推荐按键精灵社区里面的商业插件，不贵，2，300吧

Answer 2

 传真机TIF档解析度过低，
即使市售OCX效果也未必OK。

Answer 3

尚书七号的OCR是足够强大了，问题是如何调用它

Answer 4

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

Answer 5

从内心里，很BS，这里的带星专家
近年来很少上CSDN了，没想到越来越烂！如果简单的问题，楼上那么多的带星专家，作为VB版块的专家，竟然没有一个人有提供一个方向性的意见
我找呀找资料，一下子就找到上面的代码了。我该怎么说呢？