免费提供 ocr 识别源码

Question

我有一个基于MS office2003 的ocr 识别的vb源代码，现在免费提供给大家。
使用此程序之前要先安装office2003 中的一个Document image的组件。
下面是简单调用的VB源代码。我试过完全可以用。
Private Sub Command1_Click()
 Dim mm As New modi.Document    mm.Create "c:\1.tif"
    mv.Document = mm 'mv 是组件中带的类似 Image 的控件，须手工加到窗体上
    'mv.Refresh
    mm.OCR miLANG_CHINESE_SIMPLIFIED, True, True
    mv.SelectAll 0
    Debug.Print mv.TextSelection.Text
    Exit Subend sub麻烦那位大侠能帮我把此程序改为Delphi调用吗？
谢谢了

Answer 1

var
   mm   ：modi.Document
begin 
   mm:=modi.Document.Create('c:\1.tif'); 
   mv.Document:=mm;   //mv   是组件中带的类似   Image   的控件，须手工加到窗体上 mv.Refresh 
   mm.OCR(miLANG_CHINESE_SIMPLIFIED,   True,   True); 
   mv.SelectAll(0); 
end;

Answer 2

看看我的有用没 呵呵http://topic.csdn.net/u/20071204/17/fa192944-6c04-4875-af1e-150212553503.html

Answer 3

我这里有个图文识别的Delphi源码，

Answer 4

delphi调用出现“未注册”的错误，很不好用，