lo más facil no me sale

[[Espartaco]]

Eso es oscarnoe, pero resulta que tengo que cargar la imagen desde la base de datos de esta manera:

timage.picture.bitmap:=tabla1['imagen']

y al compilar me dice tipos imcompatibles Tbitmap y Variant.

Ahí es donde está el problema, sabrías como solucionarlo?

Muchas gracias de antemano.

[oscarnoe]

pues deberias hacer lo mismo que con un jpeg, cargarlo con un stream

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

[oscarnoe]

creo que las lineas que cargan la imagen en el control deberia ser algo como (de memoria sin confirmarlo)

Código Delphi [-]
image1.picture.bitmap:= TBitmap.Create;
image1.picture.bitmap.loadfromstream(stream);

espero qeue te sea de ayuda.

Oscar Noe

[[Espartaco]]

he probado tu código y me sigue diciendo lo mismo:

'Bitmap image is not valid'

Estoy desesperao, porque tengo el programa estancado con esto ya que tengo que mostrar lo que hay en la base de datos y sólo lo puedo hacer con un TDBImage.

Reitero mis gracias por el interés

un saludo

espartaco

[[Espartaco]]

soy yo otra vez, pongo el mensaje para que no se olvide.
Por favor, necesito ayuda con este tema, lo mas urgente posible.

Muchas gracias a todos por anticipado.

[[Lepe]]

¿Por qué usar un TImage si puedes usar un TDBImage?

Saludos