Imprimir quickreport com qrimage
06/02/2006
0
Preciso exibir no quick report algumas imagens de produtos que NÃO estao gravados no
banco de dados...juntamente com algumas informacoes..(isso ja esta fazendo, eu ja comsigo trazer o diretorio das fotos)porém ao exibir no evento beforeprint (do quickrep) é exibida em todas as linhas sempre a mesma foto ( a ultima), ja coloquei tb no evento beforeporint da QRBand e nada vcs sabem o que eu posso fazer???obs.: estou usando QRIMAge
[quote:9e445554a0=´Moderação´][color=red:9e445554a0]Título editado por Massuda
Removido: ´URGENTE !!!!´
Por favor, evite usar termos apelativos no título[/color:9e445554a0][/quote:9e445554a0]
banco de dados...juntamente com algumas informacoes..(isso ja esta fazendo, eu ja comsigo trazer o diretorio das fotos)porém ao exibir no evento beforeprint (do quickrep) é exibida em todas as linhas sempre a mesma foto ( a ultima), ja coloquei tb no evento beforeporint da QRBand e nada vcs sabem o que eu posso fazer???obs.: estou usando QRIMAge
[quote:9e445554a0=´Moderação´][color=red:9e445554a0]Título editado por Massuda
Removido: ´URGENTE !!!!´
Por favor, evite usar termos apelativos no título[/color:9e445554a0][/quote:9e445554a0]
Fbraatz
Curtir tópico
+ 0
Responder
Posts
04/05/2006
Israel Bispo
Olá amigo,
Coloque no BeforePrint da banda q vc tá imprimindo a imagem o seguinte comando:
QRImage1.Picture := nil;
(onde QRImage1 é o componente q vc está usando)
Isso vc pode colocar no início da procedure
Espero q ajudei.
Bispo
Coloque no BeforePrint da banda q vc tá imprimindo a imagem o seguinte comando:
QRImage1.Picture := nil;
(onde QRImage1 é o componente q vc está usando)
Isso vc pode colocar no início da procedure
Espero q ajudei.
Bispo
Responder
05/05/2017
Copan Informática
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;
Responder
Clique aqui para fazer login e interagir na Comunidade :)