Qreport 3.0 y QRimagen

[tarco35]

el unico detaller que se me ocurre es que uso la propiedad strech para ajustar la imagen al recuadro que tengo... no se si eso puede influir??

[Casimiro Noteví]

No, eso no es. Aunque, ya digo, no conozco qreport.

[olbeup]

Utilizo QuickReport en los informes y me pasa lo mismo, cada 10 hojas al menos 3 salen en negro no consecutivas, es posible que tenga un bug el componente QRImage.

Cargo la imagen que es el logotipo de la empresa en tiempo real, lo he probado desde un fichero o cargando la imagen desde la base de datos donde tengo el logo grabado y sigue haciendo lo mismo, como digo es posible que sea un bug del propio QRImagen.

El tamaño, no creo que sea el tamaño, he utilizado desde 1KB hasta 1Mb y hace lo mismo, el motivo no tengo ni p...ida.

Habrá que ver los fuentes de la Versión 3.0, para ver como gestiona la carga.

Un saludo.

[tarco35]

buenos pues a ver so alguien tiene una solucion....

[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;
.....

[tarco35]

juanplata:
y con ese codigo no te falla nunca, ni en previsualizacion, ni en impresion... ni despues de imprimir 3 o 5 páginas se queda en negro???

[juanlaplata]

no no, hasta ahora no me ha fallado...

asi es como se guarda.

Código Delphi [-]
Base.Datos.Edit;
// imagen para reportes  ******************************
if(self.Image1.Picture.Graphic <> nil)then
   begin
    BS := TBlobStream(Base.Empresa.CreateBlobStream(Base.DatosImagenReportes,bmWrite));
    self.Image1.Picture.Graphic.SaveToStream(BS);
    if(self.ImagenLogo.Text<>'')then Base.DatosImagenReportes.DisplayLabel:= self.ImagenLogo.Text;
    BS.Free;
   end
else Base.DatosImagenReportes.Clear;
Base.Datos.Post;

siempre hago un preview y sale en todas las paginas.