Qreport 3.0 y QRimagen

[tarco35]

Disculpa.... no es una imagen grande, en realidad tiene como 200x200 pixeles o así

[Casimiro Notevi]

Entonces no sabría decirte, yo he tenido ese problema con reportbuilder algunas veces, se solucionaba haciendo la imagen más pequeña o poniendo el recuadro más grande para que no estuviese tan "apretada"
Veamos si otro forero que use qreport ha tenido ese problema y puede dar su opinión.

[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 Notevi]

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