an OCR component

Nehuen

hi, i need a free OCR (Optical Character Recogntion) component, some help?

it's important.
thanks

nelson_mig_l

: hi, i need a free OCR (Optical Character Recogntion) component, some help?
:
: it's important.
: thanks
:
Try to use the Active X given with Microsoft Office named Microsoft Office Document Imaging.

1) Click menu "Component" > "Import ActiveX control".
2) Select the "Microsoft Office Document Imaging 11.0 Type Library"
3) Click "Create unit".

After doing so, the component will be in the ActiveX component page.

Add "ComObj, MODI_TLB" to the uses clause.

Drop "MiDocView" to the form.

procedure TForm.Button1Click(Sender: TObject);
Var
doc :IDocument;
Img :IImage;
Layout :ILayout;
begin
doc := IDispatch(CreateOleObject('MODI.Document')) as IDocument;
doc.create(c: est.bmp);
doc.ocr(miLANG_ENGLISH,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;

You can find more information at http://msdn.microsoft.com/

Nehuen

sorry for the delay,
the code works, but now I have another problem....
the TIF to analize has low resolution (96 dpi), so I need to add pixels, I suppose...I'm going to search now. thanks for answer

Dewaldv

: : hi, i need a free OCR (Optical Character Recogntion) component, some help?
: :
: : it's important.
: : thanks
: :
: Try to use the Active X given with Microsoft Office named Microsoft Office Document Imaging.
:
: 1) Click menu "Component" > "Import ActiveX control".
: 2) Select the "Microsoft Office Document Imaging 11.0 Type Library"
: 3) Click "Create unit".
:
: After doing so, the component will be in the ActiveX component page.
:
: Add "ComObj, MODI_TLB" to the uses clause.
:
: Drop "MiDocView" to the form.
:
: procedure TForm.Button1Click(Sender: TObject);
: Var
: doc :IDocument;
: Img :IImage;
: Layout :ILayout;
: begin
: doc := IDispatch(CreateOleObject('MODI.Document')) as IDocument;
: doc.create(c: est.bmp);
: doc.ocr(miLANG_ENGLISH,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;
:
: You can find more information at http://msdn.microsoft.com/
:

Hi,

This solution works better than some other "free" ocr tools! Just one question: Is it possible to expand on how it can be modified to accept a PDF file and ocr it?

Thanks in advance
Dewald V

zibadian

: : : hi, i need a free OCR (Optical Character Recogntion) component, some help?
: : :
: : : it's important.
: : : thanks
: : :
: : Try to use the Active X given with Microsoft Office named Microsoft Office Document Imaging.
: :
: : 1) Click menu "Component" > "Import ActiveX control".
: : 2) Select the "Microsoft Office Document Imaging 11.0 Type Library"
: : 3) Click "Create unit".
: :
: : After doing so, the component will be in the ActiveX component page.
: :
: : Add "ComObj, MODI_TLB" to the uses clause.
: :
: : Drop "MiDocView" to the form.
: :
: : procedure TForm.Button1Click(Sender: TObject);
: : Var
: : doc :IDocument;
: : Img :IImage;
: : Layout :ILayout;
: : begin
: : doc := IDispatch(CreateOleObject('MODI.Document')) as IDocument;
: : doc.create(c: est.bmp);
: : doc.ocr(miLANG_ENGLISH,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;
: :
: : You can find more information at http://msdn.microsoft.com/
: :
:
: Hi,
:
: This solution works better than some other "free" ocr tools! Just one question: Is it possible to expand on how it can be modified to accept a PDF file and ocr it?
:
: Thanks in advance
: Dewald V
:
:
PDF files can be read by an acrobat OLE object. Then all you need to do is to "take a picture" of that object and feed it into the OCR.

Dewaldv

: : : : hi, i need a free OCR (Optical Character Recogntion) component, some help?
: : : :
: : : : it's important.
: : : : thanks
: : : :
: : : Try to use the Active X given with Microsoft Office named Microsoft Office Document Imaging.
: : :
: : : 1) Click menu "Component" > "Import ActiveX control".
: : : 2) Select the "Microsoft Office Document Imaging 11.0 Type Library"
: : : 3) Click "Create unit".
: : :
: : : After doing so, the component will be in the ActiveX component page.
: : :
: : : Add "ComObj, MODI_TLB" to the uses clause.
: : :
: : : Drop "MiDocView" to the form.
: : :
: : : procedure TForm.Button1Click(Sender: TObject);
: : : Var
: : : doc :IDocument;
: : : Img :IImage;
: : : Layout :ILayout;
: : : begin
: : : doc := IDispatch(CreateOleObject('MODI.Document')) as IDocument;
: : : doc.create(c: est.bmp);
: : : doc.ocr(miLANG_ENGLISH,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;
: : :
: : : You can find more information at http://msdn.microsoft.com/
: : :
: :
: : Hi,
: :
: : This solution works better than some other "free" ocr tools! Just one question: Is it possible to expand on how it can be modified to accept a PDF file and ocr it?
: :
: : Thanks in advance
: : Dewald V
: :
: :
: PDF files can be read by an acrobat OLE object. Then all you need to do is to "take a picture" of that object and feed it into the OCR.
:

Thanks, I managed to install the Acrobat Type Library and load and open the PDF file. How can a "picture" be taken from this?

Dewald V

zengfanxiang

: : : : : hi, i need a free OCR (Optical Character Recogntion) component, some help?
: : : : :
: : : : : it's important.
: : : : : thanks
: : : : :
: : : : Try to use the Active X given with Microsoft Office named Microsoft Office Document Imaging.
: : : :
: : : : 1) Click menu "Component" > "Import ActiveX control".
: : : : 2) Select the "Microsoft Office Document Imaging 11.0 Type Library"
: : : : 3) Click "Create unit".
: : : :
: : : : After doing so, the component will be in the ActiveX component page.
: : : :
: : : : Add "ComObj, MODI_TLB" to the uses clause.
: : : :
: : : : Drop "MiDocView" to the form.
: : : :
: : : : procedure TForm.Button1Click(Sender: TObject);
: : : : Var
: : : : doc :IDocument;
: : : : Img :IImage;
: : : : Layout :ILayout;
: : : : begin
: : : : doc := IDispatch(CreateOleObject('MODI.Document')) as IDocument;
: : : : doc.create(c: est.bmp);
: : : : doc.ocr(miLANG_ENGLISH,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;
: : : :
: : : : You can find more information at http://msdn.microsoft.com/
: : : :
: : :
: : : Hi,
: : :
: : : This solution works better than some other "free" ocr tools! Just one question: Is it possible to expand on how it can be modified to accept a PDF file and ocr it?
: : :
: : : Thanks in advance
: : : Dewald V
: : :
: : :
: : PDF files can be read by an acrobat OLE object. Then all you need to do is to "take a picture" of that object and feed it into the OCR.
: :
:
: Thanks, I managed to install the Acrobat Type Library and load and
: open the PDF file. How can a "picture" be taken from this?
:
: Dewald V
:
when i use this ACTivex ,the delphi reports errors


---------------------------
Debugger Exception Notification
---------------------------
Project prjOcrTest2.exe raised exception class EOleException with message '??????'. Process stopped. Use Step or Run to continue.
---------------------------
OK Help
---------------------------
and i don't know why?
ps:the delphi version is 6