Imprimir quickreport com qrimage
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
Curtidas 0
Respostas
Israel Bispo
06/02/2006
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
GOSTEI 0
Copan Informática
06/02/2006
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