[jplj]

Hola:

Estoy tratando de leer imagenes contenidas en una tabla de access.
El campo en el que se encuentra -ADOTable2GraphSymbol_Data- es del tipo "Objeto OLE".
Ahora estoy empleando "Borland Developer Studio 2006", aunque finalmente será Delphi 7.

El código, que obtuve de aquí, es el siguiente:

Código Delphi [-]

Image1: TImage

procedure TForm3.Button2Click(Sender: TObject);
var
  BS:TADOBlobStream;
  Graphic:TGraphic;
begin
  if ADOTable2GraphSymbol_Data.IsNull then
    Image1.Picture.Graphic := nil
  else begin
    BS := TADOBlobStream.Create( ADOTable2GraphSymbol_Data, bmRead );
    try
      // En el original: Graphic := TJPegImage.Create;
      Graphic := TBitmap.Create;  
      try
        Graphic.LoadFromStream( BS );
        Image1.Picture.Graphic := Graphic;
      finally
        Graphic.Free;
      end;
    finally
      BS.Free;
    end;
  end;
end;

En la línea de color rojo se produce el error: Bitmap image is not valid

Al cargar la imagen en la tabla se hace desde un BMP.

Muchas gracias de antemano.
Juan P.