<!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.2900.5512" name=GENERATOR>
<STYLE></STYLE>
</HEAD>
<BODY bgColor=#ffffff>
<DIV><FONT face=Verdana size=2> <BR>Ola a todos da
Lista.</FONT></DIV>
<DIV><FONT face=Verdana size=2></FONT> </DIV>
<DIV><FONT face=Verdana size=2>Estou tentando gerar códigos de barras padrão
EAN13 automaticamente, porém o codigo não me da erros, mas também não gera a
imagem. Ao "printar" na tela, fica apenas o espaço reservado a imagem, mas nada
da imagem de codigo de barras...</FONT></DIV>
<DIV><FONT face=Verdana size=2></FONT> </DIV>
<DIV><FONT face=Verdana size=2>no log, me informa que o metodo plot não é
aceito... alguma sugestão.</FONT></DIV>
<DIV><FONT face=Verdana size=2></FONT> </DIV>
<DIV><FONT face=Verdana size=2>segue treho do código.</FONT></DIV>
<DIV><FONT face=Verdana size=2></FONT> </DIV>
<DIV><FONT face=Verdana size=2></FONT> </DIV>
<DIV><FONT face=Verdana size=2>use strict;<BR>use warnings;<BR>use
GD::Barcode::EAN13;<BR>my $barra=GD::Barcode::EAN13->new('$produto'); #CAMPO
NUMERO OU TEXTO<BR>binmode(STDOUT);<BR>print "Content-Type:
image/png\n\n";<BR>print $barra->plot->png;</FONT></DIV>
<DIV><FONT face=Verdana size=2></FONT> </DIV>
<DIV><FONT face=Verdana size=2></FONT> </DIV>
<DIV><FONT face=Verdana size=2>Ricardo Stock<BR><A
href="mailto:ricardostock@bol.com.br">ricardostock@bol.com.br</A></FONT></DIV></BODY></HTML>