lo más facil no me sale

[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

[[Ivanzinho]]

Empezado por Lepe

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

Como dice Lepe por qué no usuas un TDBImage, yo lo utilizo para archivos bmp, pero como estos no tienen algunas opciones que tiene el TImage, como por ejemplo saber el tamaño de la foto para centrarla en pantalla, lo que hago es ocultar este componente y agregar un TImage y en el evento correspondiente hago lo siguente

Código Delphi [-]
Timage.Picture = TDBImage.Picture

y después trabajo con el TImage, esto con los archivos bmp, para los jpg utilizo un Stream