Salvar um Canvas como imagem

Delphi

21/01/2005

Olá programadores a afins..hehee

Estou com um componente que gera códigos de barra, só que ele gera em canvas, a idéia primária é, converter, salvar, sei lá que diacho for para imagem, salvar ou jogar na memória e depois passar para o quickreport por exemplo.

Ou tem alguma forma direta de jogar essa imagem gerada direto para o Qreport?

Desde já agradeço


Adeno

Adeno

Curtidas 0

Respostas

Massuda

Massuda

21/01/2005

Se você está usando o [url=http://mitglied.lycos.de/AJSchmidt/]FBarcode[/url] (componente TAsBarcode), no mesmo arquivo .ZIP que vem o componente tem um segundo componente chamado TQRAsBarcode (unit QRBarcode) que é um código de barras para usar com o QuickReport.


GOSTEI 0
Gustavo Moraes

Gustavo Moraes

21/01/2005

If img1.Picture.bitmap.Width <> PaintBox.Width then img1.Picture.bitmap.Width := PaintBox.Width;
If img1.Picture.bitmap.Height <> PaintBox.Height then img1.Picture.bitmap.Height := PaintBox.Height;
img1.Picture.bitmap.Canvas.Rectangle(0,0,PaintBox.Width,PaintBox.Height);
PaintBox.Canvas.Draw(0,0,img1.Picture.bitmap);

BitBlt(img1.Picture.bitmap.Canvas.Handle,0,0,img1.Picture.bitmap.Width,img1.Picture.bitmap.Height,PaintBox.Canvas.Handle,0,0,SRCCOPY);
img1.Picture.bitmap.savetofile( edt1.EditText+'\bitmap'+inttostr(i)+'.bmp');
inc(i);
beep();
GOSTEI 0
POSTAR