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

[Andre Rosa]

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.

[Daniel Simoes]

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

[Andre Rosa]

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

Obrigado, Daniel. Vou estudar o componente.

André.

[Andre Rosa]

Daniel, não há exemplos referente ao ACBrBarCode?

Abs.

[Daniel Simoes]

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]

[Andre Rosa]

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.

[diegofernandesp]

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 24 Janeiro, 2014 por diegofernandesp