Ya, he intentado lo que pone neftali en otro hilo de este foro como pone él en su mensaje:
Código Delphi
[-] procedure TForm1.JpegBlobToImage();
var
Stream: Tblobstream;
img: Tjpegimage;
begin
// Cargar el campo Blob en un Stream
Stream := Tblobstream.Create(TBlobField(Table1.fieldbyname('Imagen')), bmRead);
// Crear la Imagen
img := Tjpegimage.Create();
// Cargar la imagen con el Stream
img.loadfromstream(Stream);
// Pasarla a un control IMage
image1.picture.assign(img);
// Liberar
img.free;
Stream.free;
end;
Para hacerlo con un TBitmat ha cambiado la linea
Código Delphi
[-]img: Tjpegimage;
por
Código Delphi
[-]img: TBitmap;
y la línea:
Código Delphi
[-]img := Tjpegimage.Create();
por
Código Delphi
[-]img := TBitmap.Create();
pero esto me da en tiempo de ejecución un error de 'Bitmap no válido', y el contenido del campo está bien y no está dañado.
Por qué ocurre esto?
Gracias otra vez por el interés oscarneo.