Salvar um Canvas como imagem

Question

Ol� programadores a afins..heheeEstou 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 ...

Massuda · Answer

Se voc� est� usando o [url=//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....

Gustavo Moraes · Answer

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();

F�rum Salvar um Canvas como imagem #266358