<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">
<HTML><HEAD>
<META http-equiv=Content-Type content="text/html; charset=iso-8859-1">
<META content="MSHTML 6.00.6000.16481" name=GENERATOR>
<STYLE></STYLE>
</HEAD>
<BODY bgColor=#ffffff>
<DIV><FONT face=Arial size=2>E se o carro entrar meio de "lado"... ou a placa
estiver suja...</FONT></DIV>
<DIV><FONT face=Arial size=2></FONT> </DIV>
<DIV><FONT face=Arial size=2>cuide com esse detalhes...</FONT></DIV>
<DIV><FONT face=Arial size=2></FONT> </DIV>
<DIV><FONT face=Arial size=2>[]s</FONT></DIV>
<DIV><FONT face=Arial size=2>Fernando</FONT></DIV>
<BLOCKQUOTE
style="PADDING-RIGHT: 0px; PADDING-LEFT: 5px; MARGIN-LEFT: 5px; BORDER-LEFT: #000000 2px solid; MARGIN-RIGHT: 0px">
<DIV style="FONT: 10pt arial">----- Original Message ----- </DIV>
<DIV
style="BACKGROUND: #e4e4e4; FONT: 10pt arial; font-color: black"><B>From:</B>
<A title=rafaelmagalhaes@gmail.com
href="mailto:rafaelmagalhaes@gmail.com">Rafael Magalhães</A> </DIV>
<DIV style="FONT: 10pt arial"><B>To:</B> <A title=cascavel-pm@pm.org
href="mailto:cascavel-pm@pm.org">cascavel-pm@pm.org</A> </DIV>
<DIV style="FONT: 10pt arial"><B>Sent:</B> Wednesday, June 20, 2007 3:53
PM</DIV>
<DIV style="FONT: 10pt arial"><B>Subject:</B> [Cascavel-pm] OCR</DIV>
<DIV><BR></DIV>
<DIV>Boa tarde,</DIV>
<DIV> </DIV>
<DIV>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.</DIV>
<DIV> </DIV>
<DIV>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. </DIV>
<DIV> </DIV>
<DIV>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.</DIV>
<DIV> </DIV>
<DIV>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. </DIV>
<DIV> </DIV>
<DIV>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.</DIV>
<DIV> </DIV>
<DIV>O código abaixo é o que eu usei do exemplo do CPAN:</DIV>
<DIV><BR>___________________________________________________<BR>#!/usr/bin/perl
-w</DIV>
<DIV>
<P>use OCR::PerfectCR;<BR>use GD;</P>
<P>my $recognizer =
OCR::PerfectCR->new;<BR>$recognizer->load_charmap_file("charmap");<BR>my
$image = GD::Image->new("placa.jpg") or die "Can't open example.png:
$!";<BR>my $string = $recognizer->recognize($image);
<SPAN></SPAN><BR>$recognizer->save_charmap_file("charmap");<BR>___________________________________________________</P>
<P>Será que alguem pode me ajudar a resolver este problema? Um exemplo que eu
consiga capturar os caracteres na minha variável?</P></DIV>
<DIV> </DIV>
<DIV>Fico grato pela atenção de todos,</DIV>
<DIV> </DIV>
<DIV> </DIV>
<DIV>Atenciosamente,</DIV><SPAN class=sg>
<DIV>Rafael Magalhães</DIV></SPAN>
<P>
<HR>
<P></P>_______________________________________________<BR>Cascavel-pm mailing
list<BR>Cascavel-pm@pm.org<BR>http://mail.pm.org/mailman/listinfo/cascavel-pm</BLOCKQUOTE></BODY></HTML>