[firebase-br] Não estou conseguindo imprimir imagens jpg no firebird com IBO

[NextCorp Informática]

Caros colegas

Tenho um banco com diversas imagens salvas no formato .jpg e para imprimir no QR sei que tenho que utilizar o BlobStream para poder imprimir, mas não funciona
.
Estou utilizando a rotina abaixo, mas nenhuma das linha entre ###### e ###### não está funcionando.
Se alguém poder dar uma olhada, agradeço.

Utilizo delphi 5, IBO, fire 2.1.2 e QR.


procedure TfmqrPlanilhaTreinos.DetailBand1BeforePrint(
  Sender: TQRCustomBand; var PrintBand: Boolean);
var
    BlobStream : TIBBlobStream;
    jpgFoto : TJPEGImage;
begin
    if QRDBImage1.Picture = nil then
       begin
          QRImage2.Picture.Bitmap.FreeImage;
          QRImage2.Refresh;
       end;
    ################### nenhuma destas opções funciona, testei destas 3 formas, consultando o help do delphi e o google.

    //BlobStream := TIBBlobStream.Create;
    //BlobStream := dmDados.IBO_qryRelatorio1.CreateBlobStream(dmDados.IBO_qryRelatorio1.FieldByName('exe_img'), bmRead);
    //BlobStream := TIBBlobStream.Create(IBO_qryRelatorio1exe_img, bmRead);

    ######################################################


    jpgFoto := TJPEGImage.Create;


    try
      jpgFoto.LoadFromStream(BlobStream);
      QRImage2.Picture.Assign(jpgFoto);
    finally
      jpgFoto.Free;
      BlobStream.Free;
    end;
end;


Atenciosamente

Washington André Muller da silva

#######################
NextCorp Informática Ltda
www.nextcorp.com.br
nextcorp em terra.com.br
0xx-(51)-3037-6605
#######################