Porqur al asignar una imagen a un campo la pierdo ?

[[QuarkBcn]]

Hola foreros !!!

Tengo un campo BLOB en una tabla

Cargo la imagen, que se encuentra en un fichero externo

DBIc1.Picture.LoadFromFile(OpenDialog1.FileName);

Hasta aqui todo ok, la imagen se visualiza en el TDBImage, pero cuando quiero cargar dicha imagen en el campo para poder grabarla, esta desaparece, al hacer:

DBIc1.Field.Assign( DBIc1.Picture )

Se me queda el campo TDBImage en blanco y en el buffer no hay nada que grabar en la BD.

Cualquier orientacion sera bien recibida !!!

Gracias anticipadas a todos !!!

[JosepGA]

hola, yo lo que hago es asignar a la imagen a un componente tImage con:

Código Delphi [-]Image.Picture.LoadFromFile( sNombreArchivo );


luego cuando lo quiero asignar a la tabla lo hago de la siguiente forma:

Código Delphi [-]DBIc1.Picture.Graphic.Assign( Image.Picture.Graphic );
DBIc1.LoadPicture;


el hacerlo mediante un tImage lo hago ya que en ocasiones al hacerlo con un tDBImage me ha dado problemas, y haciendo pruebas de esta forma me lo hizo bien.

[[mightydragonlor]]

Igual te da ese problema si la imagen está en JPG, yo la convierto a BMP de 15bits al momento de guardarla y así no tengo ningún problema.

[[QuarkBcn]]

Si uso DBIc1.CopyFromClipboard funciona bien, aunque sea un JPG. El problema solo viene si hago la carga desde un fichero e intento asignarla al DBImage.

Saludos !!!

[[mightydragonlor]]

para ese caso haces lo que dice JosepGA

Código Delphi [-]
Image.Picture.LoadFromFile( sNombreArchivo );
DBIc1.Picture.Assign( Image.Picture);

[[Chris]]

Prueba este código

Código Delphi [-]
miTabla.Edit; //.....
TBlobField(miTabla.FieldByName('CampoImagen')).LoadFromFile(OpenDialog1.FileName);

....

en esencia ese es el código que creo yo te servirá