Qreport 3.0 y QRimagen

[juanlaplata]

En mi caso tengo el logo en la base de datos, y asi es como lo coloco en el reporte.

Código Delphi [-]
var BS:TBlobStream;
    grafico:TGraphic;
    im:TQRImage;
    I,AuxLeft:integer;
    //s:string;
    LabelAux : TQRLabel;
    DBEditAux : TQRDBText;
    QRExprAux : TQRExpr;
begin
    Im := Logo;  // Logo es el TQRImage pegado en el Reporte
    if not (Base.DatosImagenReportes.IsNull)then
         begin
         BS := TBlobStream(Base.Datos.CreateBlobStream(Base.DatosImagenReportes,bmRead));
         try
            grafico:= TJPEGImage.Create;
            try
               grafico.LoadFromStream(BS);
               im.Picture.Graphic := grafico;
            finally grafico.Free; end;
         finally BS.Free; end;
         end;
.....