Código de Barras Delphi XE5

[Rogerio Teixeira Martins]

Boa noite Amigos,

 

Alguém tem algum componente de código de barras para Delphi XE5 que pudesse compartilhar?

 

Agradeço antecipadamente!

[Alessandro Fazenda]

Bom dia Rogério,

O FortesReport tem um componente para fazer códigos de barra.

Att,

Alessandro Fazenda
adrfa...@gmail.com
(51) 8116-0602

--
--
Você recebeu esta mensagem porque está inscrito no "DUG-RS -
Delphi Users Group Rio Grande do Sul" em Grupos do Google.
Acesse o nosso BLOG em http://www.dug-rs.org e contribua com a comunidade Delphi do Rio Grande do Sul
Para postar neste grupo, envie um e-mail para dug...@googlegroups.com
Para cancelar a sua inscrição neste grupo, envie um e-mail para
dug-rs-un...@googlegroups.com
Para ver mais opções, visite este grupo em
http://groups.google.com.br/group/dug-rs?hl=pt-BR
 
Twitter: @dugrs
http://www.facebook.com/groups/dugrs/
http://www.Vimeo.com/dugrs

---
You received this message because you are subscribed to the Google Groups "DUG-RS - Delphi Users Group Rio Grande do Sul" group.
To unsubscribe from this group and stop receiving emails from it, send an email to dug-rs+un...@googlegroups.com.
For more options, visit https://groups.google.com/d/optout.

[Secaio]

Eu tenho essa unit (em anexo) que uso desde o Delphi 5 prá gerar cod de barras... uso o Delphi 2006 atualmente e funciona legal, pelo menos até hj não me incomodei...e é nativa do Delphi :D

Uso-a com o Timage, Tqrimage no quick... qlqr objeto q trab com canvas...

procedure TfrmRelinscr.Barcode1Change(Sender: TObject);

begin

   QrImageBarCode.Picture := nil;

  Barcode1.DrawBarcode(QrImageBarCode.Canvas);

end;

procedure TfrmRelinscr.FormCreate(Sender: TObject);

begin

   Barcode1 := TAsBarcode.Create(self);

   Barcode1.Text:= QryconsultaINSC_ID.AsString ; 

   Barcode1.Top := 50;

   Barcode1.Left := 30;

   Barcode1.Typ := bcCodeEAN13;

   Barcode1.ShowText := bcoNone;

   Barcode1.ShowTextPosition := stpBottomCenter;

   Barcode1.Modul := 2;

   Barcode1.Ratio := 2.0;

   Barcode1.Height := 80;

   Barcode1.OnChange := Self.Barcode1Change;

end;

--
Secaio

[Secaio]

agora o anexo... hehe  

Renomeiem pra .zip

--
Secaio

[Rogerio Teixeira Martins]

Infelizmente não instalou no delphi XE5.

Alguma sugetão?