imprimir imagem - quickreport
Não consigo imprimir uma imagem no delphi utilizando o quickreport.
No preview aparece. Mas na impressão não.
Coloquei o qrimage em uma banda de cabeçalho.
Mas não deu certo.
Tentei utilizar a impressão sem dar o preview. Mas também não funcionou.
O que pode ser?
No preview aparece. Mas na impressão não.
Coloquei o qrimage em uma banda de cabeçalho.
Mas não deu certo.
Tentei utilizar a impressão sem dar o preview. Mas também não funcionou.
O que pode ser?
Briciosm
Curtidas 0
Respostas
Copan Informática
25/10/2005
Crie uma procedure carregafoto.
procedure TForm1.carregafoto;
var
b : TStream;
Jpg : TJpegImage;
begin
b:= TStream.Create;
Jpg := TJpegImage.Create;
b:= IBQuery1.CreateBlobStream(IBQuery1.FieldByName('foto'),bmRead);
if b.Size > 0 then
begin
Jpg.LoadFromStream(b);
QRImage2.Picture.Assign(Jpg);
jpg.Free;
end
else
QRImage2.Picture.Assign(nil);
b.Free;
end;
procedure TForm1.QRBand4BeforePrint(Sender: TQRCustomBand;
var PrintBand: Boolean);
begin
carregafoto;
end;
procedure TForm1.qr1StartPage(Sender: TCustomQuickRep);
begin
FrmPreview.Canvas.Draw(1, 1, QRImage2.Picture.Graphic);
end;
procedure TForm1.carregafoto;
var
b : TStream;
Jpg : TJpegImage;
begin
b:= TStream.Create;
Jpg := TJpegImage.Create;
b:= IBQuery1.CreateBlobStream(IBQuery1.FieldByName('foto'),bmRead);
if b.Size > 0 then
begin
Jpg.LoadFromStream(b);
QRImage2.Picture.Assign(Jpg);
jpg.Free;
end
else
QRImage2.Picture.Assign(nil);
b.Free;
end;
procedure TForm1.QRBand4BeforePrint(Sender: TQRCustomBand;
var PrintBand: Boolean);
begin
carregafoto;
end;
procedure TForm1.qr1StartPage(Sender: TCustomQuickRep);
begin
FrmPreview.Canvas.Draw(1, 1, QRImage2.Picture.Graphic);
end;
GOSTEI 0