Array
(
)

Imprimir quickreport com qrimage

Fbraatz
   - 06 fev 2006

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


Citação:
Título editado por Massuda

Removido: ´URGENTE !!!!´
Por favor, evite usar termos apelativos no título



Israel Bispo
   - 04 mai 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


Mauricio.zequim
|
MVP
    05 mai 2017

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;