求OCR的调用资料(100分)

E

eaglepsm

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-03-11

• #1

我的程序中需要使用OCR功能，即在图形上画一个矩形，松开鼠标后探出一个窗口，里面就是识别出来的文字（包括中、英文、数字），我查询的结果是，清华、汉王和奥普有相应的dll调用接口，但太贵了，Pegasus.SmartScan.Xpress.ICR.OCR.OMR又不支持中文，我作的软件只是出于兴趣，没想要卖钱，也没那么多钱去买他们的dll，我记得subocr这个软件用的是超星的识别引擎，但没这方面的资料，有没有哪位知道怎么调用啊？
万分感谢！

 

A

antic_ant

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-03-13

• #2

你可以用office 2003中的功能呀。我正在看。
请参考 http://topic.csdn.net/t/20050423/16/3961143.html

 

E

eaglepsm

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-03-13

• #3

谢谢，正在研究。

 

E

eaglepsm

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-03-13

• #4

好像不能识别中英文混排的图形？

 

E

eaglepsm

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-03-13

• #5

test.bmp是中英文混排的图片，识别出的内容是错的，乱码
procedure TForm1.Button1Click(Sender: TObject);
var
doc :IDocument;
Img :IImage;
Layout :ILayout;
begin
doc := IDispatch(CreateOleObject('MODI.Document')) as IDocument;
doc.create('c:/test.bmp');
//doc.OCR(miLANG_ENGLISH,true,true); //英文
doc.OCR(miLANG_CHINESE_SIMPLIFIED,true,true); //简体中文
Img := IDispatch(doc.Images[0]) as IImage;
Layout := IDispatch(Img.Layout) as ILayout;
Memo1.Lines.Add(Layout.Text);
MiDocView1.Document := doc;
doc.Close(false);
Img := nil;
Layout := nil;
end;

 

E

eaglepsm

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-03-13

• #6

奇怪，图片如果高度较小，宽度较长时，放在MiDocView中是歪的？莫非它还有自动倾斜校正的功能？如果有，那岂不是自作聪明？我的图片明明是正的。

 

A

antic_ant

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-03-13

• #7

eaglepsm
在图形上画一个矩形识别出文字,你是怎么实现的？

 

E

eaglepsm

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-03-13

• #8

就使用你说的方法呀，老大，有没有搞错，我是向你学的，就是用上面的代码

 

A

antic_ant

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-03-13

• #9

OK。问题解决了。

 

E

eaglepsm

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-03-13

• #10

接受答案了.