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