Problema extrayendo campo imagen de una tabla access

[juanlaplata]

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;

[JoysticK]

Numca es tarde si la dicha es buena jeje, pero nada tampoco me funciona tu codigo, cuando llega a la linea:

grafico.LoadFromStream(BS);

Me devuelve el error:

JPEG ERROR #52

He probado a cambiar la linea:

grafico:= TJPEGImage.Create;

por:

grafico:= TBitmap.Create;

Y me devuelve el siguiente error en la misma linea de antes:

Bitmap image is not valid.

Estoy por subiros la base de datos con un registro a ver si alguien es capaz de sacar esa imagen, ya es por orgullo xDDD

[waly2k1]

( TABLA.FindField( 'FOTO' ) As TBlobField).SaveToFile( sFileFOTO ); // grabo la foto
imgFoto.Picture.LoadFromFile( sFileFOTO ); // muestro en un control image
// Y Si quiero guardar una foto
( TABLA.FindField( 'FOTO' ) As TBlobField ).LoadFromFile( sFileFOTO  );

donde tabla es un objeto tabla, como puede ser query
sFileFOTO es la ruta y nombre del archivo donde quiero guardar

Bueno espero te sirva, y no te rindas tan facilmente
Walter

[JoysticK]

Empezado por waly2k1

[code]
Bueno espero te sirva, y no te rindas tan facilmente
Walter

Gracias por los animos Walter, pero eso fue lo primero que probe a grabar el contenido del campo en un fichero, ese fichero, le ponga la extension que le ponga no es reconocido como una imagen, por lo que he leido es porque access guarda en la cabecera del campo donde se inserta la imagen datos como con que programa se abre (MS Photo Editor) la ruta y paranoias varias, corrompiemdo el fichero original...

Os subo un ejemplo de esta tabla, 1 REGISTRO, con 1 SOLO CAMPO, la imagen, a ver quien tiene narices de extraer esa imagen mediante codigo...

http://rapidshare.com/files/13556256...campo.rar.html

Lo mejor es que 1 Registro con 1 campo ocupa unos 25 MB.... bueno lo he comprimido con winrar ahora pesa 6 MB... como me gusta accesss.....