Ver Mensaje Individual
  #4  
Antiguo 01-08-2008
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
Bueno, espero no sea tarde, aqui como lo uso, es con "JPG", pero tal ves puedas adaptarlo a "BMP", si es que son de ese tipo.
Código Delphi [-]
// Referencias
//  Base = DataModule 
//  DatosImagenReportes 
//  -> Datos = Tabla , 
//  -> ImagenReportes = Campo Tipo Objeto OLE de Access

var BS:TBlobStream;
    Grafico :TGraphic;
begin
if(Base.DatosImagenReportes.IsNull)then  
    
    begin
    Image1.Picture.Graphic:=nil;
    end

else begin
     BS := TBlobStream(Base.Datos.CreateBlobStream(Base.DatosImagenReportes,bmRead));
     try
        grafico:= TJPEGImage.Create;
        try
           grafico.LoadFromStream(BS);
           Image1.Picture.Graphic := grafico;
        finally grafico.Free; end;
     finally BS.Free; end;
     end;
end;
Responder Con Cita