Erro Acbrbarcode

[Mateus Penha]

Bom Dia,

 

Estou com problemas para usar o compoente ACBrBarCode, criei uma aplicação nova e adicionei somente um componente, o "ACBrBarCode1". prosseguindo fiz as seguintes configurações em seus atributos:

 

ShowText = bcoBoth

ShowTextPosition = stpBottomCenter 

Text = 01012345678910

Transparent = True

Typ = bcCode_2_5_interleaved

 

Obs.: o Texto do meu código de barras deverá ser exatamente como informado com 14 caracteres.

 

Após essas configurações o "visual" do código de barras em tempo de design fica certinho tudo legal, mas quando rodo o aplicativo recebo a mensagem:

 

"Invalid Text len (EAN13) AJBarcode.pas, line 896"

 

Parece que mesmo sendo 2 entre 5 (que não usa somente 13 digitos) ele tenta usar um "len" do EAN13.

 

Por dentro do fonte é como se a propriedade Typ, não tivesse sofrido alteração

 

Alguém pode me ajudar?

 

Obrigado

[Daniel Simoes]

Parece ser um bug no create do componente... Ele está tentando atribuir o Texto antes de atribuir o tipo....

A solução e simples, atribua o texto em Run Time

[Mateus Penha]

Boa Tarde,

 

Realmente passando em run-time

 

 

ACBrBarCode1.Typ:=bcCode_2_5_interleaved;

ACBrBarCode1.Text:='01012345678910';

 

Funcionou, usarei assim, muito obrigado pela ajuda.

 

Apenas por curiosidade, isso é considerado um erro e será solucionado em futuras versões ou ficará desta forma mesmo?

[Daniel Simoes]

Não deixa de ser um Bug... é que muito pouco provavelmente alguém irá definir um código "texto" fixo ao componente em tempo de design

 

Uma correção possível (provavelmente a única) é fazer com que a propriedade "Text" não seja salva no DFM / LFM

 

Pois o erro ocorre quando o DElphi está lendo o DFM e inserindo os valores lidos no componente... ele está atribuinto o Texto antes de Typ

[koheleth]

Eu desenvolvi um exemplo para usar o AcbrCodBar com propriedade typ, e gostaria de colocar a disposição da comunidade.

 

Mas não sei como faço isso.

[Juliomar Marchetti]

Eu desenvolvi um exemplo para usar o AcbrCodBar com propriedade typ, e gostaria de colocar a disposição da comunidade.

 

Mas não sei como faço isso.

Anexe ao post que será avaliado e subido ao svn!

[koheleth]

Estou enviando todos os fontes e um executável em 64 bits. Qualquer erro avisem.

 

Fiz esse exemplo, pela necessidade de testar e verificar códigos de barras diversos.

CodigoBarras.7z

[EMBarbosa]

Estou enviando todos os fontes e um executável em 64 bits. Qualquer erro avisem.

 

Fiz esse exemplo, pela necessidade de testar e verificar códigos de barras diversos.

 

Subi para o exemplo para o branches pois eu não tenho muita familiaridade com o Lazarus ainda.

Suas para o SVN na Revisão  7063.

Pelo que vi está tudo certo.

Favor testar e reportar qualquer problema.

Obrigado.