ActiveDelphi

[yywander]

Boa tarde amigos do deplhi!
Preciso colher informações sobre OCR (Reconhecimento Optico de Caractere), gastaria de saber mais a nivel de programação a teoria ja tenho, se ha algum componente disponivel, se tem algum nativo no delphi!!!?
Obrigado!

[joemil]

da uma olhada neste link:

http://www.torry.net/pages.php?id=1547
_________________
<b>SEMPRE COLOQUE [RESOLVIDO] NO SEU POST</b>
Enviar imagens: http://tinypic.com/

[yywander]

Obrigado por responder, estive uns dias sem acessar o forum, mas eu ja consegui fazer o OCR da imagem de um documento...!
Se alguem quiser saber postai!!!!

[renaldocorreia]

sim, gostaria de saber.
Por favor poste a receita.
Obrigado
Renaldo Correia

[wwwww]

[abagattini]

que onda!
ai pessoal resolvi um problema geral da comunidade...
se alguem quiser é só R$....
estão usando o forum para vender soluções? ou é impressão minha?

[renaldocorreia]

Depois de muitas horas, aí está o modelo que , acho , muito bom pois funcionou perfeitamente.
É feito para usar o Office 2007 e precisa que seja instalado uma ferramenta que não é instalada automaticamente, na instalação padrão.
Esta ferramenta é a
Microsoft Office Document Imaging 12.0 Type Lib.
É encontrada na opção de IMAGEM OCR no disco de instalação do OFFCE 2007.
Depois da instalação destas bibliotecas no micro este programa, abaixo , funciona muito bem.
Não deixe de colocar MODI_TLB, ComObj, jpeg no USES.



unit Unit1;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, ExtCtrls, StdCtrls, Buttons, ExtDlgs, MODI_TLB, ComObj, jpeg;

type
TForm1 = class(TForm)
Memo1: TMemo;
BitBtn1: TBitBtn;
Image1: TImage;
OpenPictureDialog1: TOpenPictureDialog;
procedure BitBtn1Click(Sender: TObject);
function JP_OCR(ARQUIVO: STRING): STRING;
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;

implementation

{$R *.dfm}

function TForm1.JP_OCR(ARQUIVO: STRING): STRING;
var
midoc,miword: OleVariant;
s: string;
i: integer;
begin
midoc := CreateOleObject('MODI.Document');
midoc.create(ARQUIVO);
midoc.images[0].ocr(22,0,0);
s := '';
for i := 0 to midoc.images[0].layout.words.count-1 do
begin
miword := midoc.images[0].layout.words[i];
s := s+' '+miword.text;
end;
result := s;
end;


procedure TForm1.BitBtn1Click(Sender: TObject);
begin
if not OpenPictureDialog1.Execute Then Exit;

Image1.Picture.LoadFromFile(OpenPictureDialog1.FileName);
Image1.Repaint;
Memo1.Lines.Add(JP_OCR(OpenPictureDialog1.FileName));
ShowMessage('Pronto !!');

end;

end.




bom trabalho

Renaldo Correia
www.ami.com.br