lo más facil no me sale

[[Espartaco]]

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.