Ir para conteúdo
  • Cadastre-se

dev botao

Gerar imagem do Cód. Barra à partir do ACBrETQ


Andre Rosa
  • Este tópico foi criado há 3717 dias atrás.
  • Talvez seja melhor você criar um NOVO TÓPICO do que postar uma resposta aqui.

Recommended Posts

Bom dia.

Estou tendo uma enorme dificuldade em manipular a grossura (width) dos meus códigos de barra no FastReport, e como não quero voltar pro Rave, vou experimentar o ACBr para esse propósito. Bem, eu gostaria de saber se há alguma maneira de gerar uma "imagem" à partir do código de barra gerado pelo ACBrETQ. Isso é possível?

Grato,

André Rosa.

Link para o comentário
Compartilhar em outros sites

  • Fundadores

Pelo ACBrETQ não é possível, mas SIM, pelo ACBrBarcode... na verdade foi exatamente isso que foi feito no DANFE para QuickReport...

Consultor SAC ACBr

Daniel Simões de Almeida
O melhor TEF, é com o Projeto ACBr - Clique e Conheça
Ajude o Projeto ACBr crescer - Assine o SAC

Projeto ACBr     Telefone:(15) 2105-0750 WhatsApp(15)99790-2976.

Link para o comentário
Compartilhar em outros sites

  • Fundadores

Acredito que não... o mais próximo do que você quer é o que foi programado em: ACBrBoletoFCQuickFr.pas


ACBrBarCode1.Typ := bcCode_2_5_interleaved ;
ACBrBarCode1.Text := CodBarras;
BMP := TBitmap.Create ;
try
BMP.Width := imgBarra.Width ;
BMP.Height := imgBarra.Height ;
ACBrBarCode1.DrawBarcode(BMP.Canvas);

imgBarra.Picture.Bitmap := BMP ;
imgBarra4.Picture.Bitmap := BMP;
finally
BMP.Free ;
end ;
[/code]

Consultor SAC ACBr

Daniel Simões de Almeida
O melhor TEF, é com o Projeto ACBr - Clique e Conheça
Ajude o Projeto ACBr crescer - Assine o SAC

Projeto ACBr     Telefone:(15) 2105-0750 WhatsApp(15)99790-2976.

Link para o comentário
Compartilhar em outros sites

Acredito que não... o mais próximo do que você quer é o que foi programado em: ACBrBoletoFCQuickFr.pas


     ACBrBarCode1.Typ  := bcCode_2_5_interleaved ;

     ACBrBarCode1.Text := CodBarras;

     BMP := TBitmap.Create ;

     try

        BMP.Width  := imgBarra.Width ;

        BMP.Height := imgBarra.Height ;

        ACBrBarCode1.DrawBarcode(BMP.Canvas);


        imgBarra.Picture.Bitmap := BMP ;

        imgBarra4.Picture.Bitmap := BMP;

     finally

        BMP.Free ;

     end ;

Obrigado, Daniel. Vou tentar implementar à partir deste exemplo.

abs.

Link para o comentário
Compartilhar em outros sites

  • 1 ano depois...

Tem como redimensionar o codigo gerado pelo acbrbarcode de acordo com as dimensões que eu quero?

Minha ideia é fazer um código de barras caber em uma etiqueta 40x20mm que já tenho desenvolvida em quick reports.

O que está acontecendo é que as barras estão excedendo os limites das dimensões que eu desejo, ou sobrando um grande espaço em branco se a "quantidade" de barras for pequena.

As imagens são de um código gerado em bcCode128C, com Width de 315 e 147.

Vejam o meu código:

function geraCodigoBarras(Tipo: TBarcodeType; Width, Height: Integer; Texto: String): TBitmap;
var   acbrBarCode: TACBrBarCode;
      BMP: TBitmap;

begin
   acbrBarCode                      := TACBrBarCode.Create(Application);
   acbrBarCode.Modul                := 2;
   acbrBarCode.Ratio                := 2;
   acbrBarCode.Width                := Width;
   acbrBarCode.Height               := Height;
   acbrBarCode.Text                 := Texto;
   acbrBarCode.Typ                  := Tipo;

   BMP                              := TBitmap.Create;
   BMP.Width  := acbrBarCode.Width;
   BMP.Height := acbrBarCode.Height;

   acbrBarCode.DrawBarcode(BMP.Canvas);
   Result                           := BMP;
end;

bcCode128C - Width 315 - 012345678.bmp

bcCode128C - Width 147 - 012345678.bmp

Editado por diegofernandesp
Link para o comentário
Compartilhar em outros sites

  • Este tópico foi criado há 3717 dias atrás.
  • Talvez seja melhor você criar um NOVO TÓPICO do que postar uma resposta aqui.

Crie uma conta ou entre para comentar

Você precisar ser um membro para fazer um comentário

Criar uma conta

Crie uma nova conta em nossa comunidade. É fácil!

Crie uma nova conta

Entrar

Já tem uma conta? Faça o login.

Entrar Agora
×
×
  • Criar Novo...

Informação Importante

Colocamos cookies em seu dispositivo para ajudar a tornar este site melhor. Você pode ajustar suas configurações de cookies, caso contrário, assumiremos que você está bem para continuar.