Ver Mensaje Individual
  #9  
Antiguo 03-04-2012
Avatar de juanlaplata
juanlaplata juanlaplata is offline
Miembro
 
Registrado: ene 2007
Ubicación: La Plata, Bs. As. (Argentina)
Posts: 212
Reputación: 18
juanlaplata Va por buen camino
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;
.....
Responder Con Cita