lo más facil no me sale

[[Espartaco]]

Pedrón bicho, llevas razón, la próxima vez lo haré así.

Oscarnoe, después de leer todo el foro de gráficos, ya había visto un hilo que hablaba de algo muy similir usando TBlobStream, lo que pasa es que era con jpg y he intentado usarlo con bmp cambiando por un TBitmap pero cuando intenta cargar el campo gráfico en el Timage me dice que el bitmap no es válido y no sé por qué, porque si visualizo el campo con un TDBimage aparece éste perfectamente. La verdad estoy un poco desesperado.
De todas formas si puedes me pones un poco de código, es que soy un poco novato en esto.

Gracias por contestar tan rápido.

[oscarnoe]

si es bitmap es timage.picture.bitmap, si no me equivoco.

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