[Cascavel-pm] OCR

Gabriel Vieira gabriel.vieira em gmail.com
Quarta Junho 20 21:43:59 PDT 2007


Provavelmente você não instalou o programa em si.


On 6/21/07, Rafael Magalhães <rafaelmagalhaes em gmail.com> wrote:
>
> Nelson,
>
> Obrigado pela ajuda, mas eu já havia tentado essa opção e quando uso o
> código que você passou, retorna o seguinte erro:
>
> "missing tesseract? at C:/Perl/site/lib/Image/OCR/Tesseract.pm line 50."
>
> O que poderia ser?
>
>
> Em 20/06/07, Nelson Ferraz <nferraz em gmail.com> escreveu:
> >
> > Dá uma olhada no Tesseract, um programa de OCR desenvolvido pela HP,
> > adquirido pelo Google, e com o código aberto.
> >
> > "The Tesseract OCR engine was one of the top 3 engines in the 1995
> > UNLV Accuracy test. Since then it has had little work done on it, but
> > it is probably one of the most accurate open source OCR engines
> > available. The source code will read a binary, grey or color image and
> > output text. A tiff reader is built in that will read uncompressed
> > TIFF images, or libtiff can be added to read compressed images."
> >
> > http://code.google.com/p/tesseract-ocr/
> >
> > Já tem módulo disponível em Perl: Image::OCR::Tesseract
> >
> > A utilização é tão simples quanto:
> >
> >        use Image::OCR::Tesseract 'get_ocr';
> >
> >        my $image = './hi.jpg';
> >
> >        my $text = get_ocr($image);
> >
> > []s
> >
> > Nelson
> >
> >
> > Em 20/06/07, Rafael Magalhães<rafaelmagalhaes em gmail.com > escreveu:
> > > Fernando,
> > >
> > > Você tem razão, mas quando não for reconhecido, o aviso será emitido
> > ao
> > > porteiro.
> > >
> > >
> > > Em 20/06/07, fernandolouis em terra.com.br <fernandolouis em terra.com.br>
> > > escreveu:
> > > >
> > > >  E se o carro entrar meio de "lado"... ou a placa estiver suja...
> > > >
> > > > cuide com esse detalhes...
> > > >
> > > > []s
> > > > Fernando
> > > >
> > > >  ----- Original Message -----
> > > > *From:* Rafael Magalhães < rafaelmagalhaes em gmail.com>
> > > > *To:* cascavel-pm em pm.org
> > > > *Sent:* Wednesday, June 20, 2007 3:53 PM
> > > > *Subject:* [Cascavel-pm] OCR
> > > >
> > > >
> > > > Boa tarde,
> > > >
> > > > Sou novo na lista, e depois de alguns anos estudando outras
> > linguagens
> > > > (ASP, PHP, Java e .NET), encontrei um problema e por incentivo de um
> > amigo
> > > > que é membro aqui da lista, resolvi voltar a estudar Perl.
> > > >
> > > > Estou fazendo um trabalho na faculdade e o nosso objeto de estudo é
> > uma
> > > > rede de estacionamentos que pretende modernizar a entrada e saída de
> > seus
> > > > clientes que pagam mensalmente. Basicamente teriamos uma camera
> > > posicionada,
> > > > de forma que foque na placa do veículo e quando chegar até a
> > cancela,
> > > > registre uma foto e o sistema irá ler o numero da placa e verificar
> > no
> > > banco
> > > > de dados se o cliente está em dias com as mensalidades, caso ele
> > esteja,
> > > > libera a entrada / saída, caso contrário emite um aviso ao sistema
> > para
> > > > lembrar ao cliente sobre o pagamento.
> > > >
> > > > Pensei em desenvolver com Java, existe umas bibliotecas pra isso,
> > mas só
> > > > conheço bibliotecas pagas e como é um projeto acadêmico, preciso de
> > algo
> > > > free e que funcione de verdade.
> > > >
> > > > Bem, voltei a estudar Perl e instalei o modulo "OCR::PerfectCR",
> > encontrei
> > > > no CPAN. Infelizmente não encontrei muita documentação sobre ele e o
> > > máximo
> > > > que consegui foi executar o unico exemplo, que pegou a foto da placa
> > que
> > > > testei no exemplo, extraiu todos os caracteres e salvou uma imagem
> > com
> > > cada
> > > > um dos caracteres.
> > > >
> > > > O que quero é conseguir pegar esse texto e armazenar em uma variável
> > para
> > > > que eu possa passar como parametro e checar em meu banco de dados, a
> > > > situação daquele veículo.
> > > >
> > > > O código abaixo é o que eu usei do exemplo do CPAN:
> > > >
> > > > ___________________________________________________
> > > > #!/usr/bin/perl -w
> > > >
> > > > use OCR::PerfectCR;
> > > > use GD;
> > > >
> > > > my $recognizer = OCR::PerfectCR->new;
> > > > $recognizer->load_charmap_file("charmap");
> > > > my $image = GD::Image->new("placa.jpg") or die "Can't open
> > example.png:
> > > > $!";
> > > > my $string = $recognizer->recognize($image);
> > > > $recognizer->save_charmap_file("charmap");
> > > > ___________________________________________________
> > > >
> > > > Será que alguem pode me ajudar a resolver este problema? Um exemplo
> > que eu
> > > > consiga capturar os caracteres na minha variável?
> > > >
> > > > Fico grato pela atenção de todos,
> > > >
> > > >
> > > > Atenciosamente,
> > > > Rafael Magalhães
> > > >
> > > > ------------------------------
> > > >
> > > > _______________________________________________
> > > > Cascavel-pm mailing list
> > > > Cascavel-pm em pm.org
> > > > http://mail.pm.org/mailman/listinfo/cascavel-pm
> > > >
> > > >
> > > > _______________________________________________
> > > > Cascavel-pm mailing list
> > > > Cascavel-pm em pm.org
> > > > http://mail.pm.org/mailman/listinfo/cascavel-pm
> > > >
> > >
> >
> >
> > --
> > Nelson Ferraz
> >
> > Free Software Foundation Associate Member #3203
> > Projeto Software Livre Brasil ( www.softwarelivre.org.br)
> > Sociedade Perl do Brasil (www.perl.org.br)
> > Rede Livre de Compartilhamento de Cultura Digital
> > _______________________________________________
> > Cascavel-pm mailing list
> > Cascavel-pm em pm.org
> > http://mail.pm.org/mailman/listinfo/cascavel-pm
> >
>
>
> _______________________________________________
> Cascavel-pm mailing list
> Cascavel-pm em pm.org
> http://mail.pm.org/mailman/listinfo/cascavel-pm
>



-- 
Gabriel Vieira
-------------- Próxima Parte ----------
Um anexo em HTML foi limpo...
URL: http://mail.pm.org/pipermail/cascavel-pm/attachments/20070621/f72fd069/attachment-0001.html 


Mais detalhes sobre a lista de discussão Cascavel-pm