Porqur al asignar una imagen a un campo la pierdo ?

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

[[QuarkBcn]]

Varias cuestiones:

La solución de D&W me parece muy buena, pero solo funciona si la imagen es BMP. Con JPG da error.

La solucion de mightydragonlor, de pasar a BMP me parece interesante, y ya puestos me gustaria me orientaras como pasar a BMP un JPG. Pero en este caso no quiero cambiar la imagen.

Y la solución de JosepGA, es la que me ha funcionado correctamente.

Muchas gracias a todos por vtra colaboración.

Saludos !!!

[[mightydragonlor]]

De esta manera cambias el formato y la profundidad del la imagen a BMP, no altera el tamaño original.

Código Delphi [-]
function ToBMP(g: TGraphic): TBitMap;
begin
  try
    Result:=TBitmap.Create;
    Result.Width:= g.Width;
    Result.Height:= g.Height; 
    Result.Palette:=g.palette;
    Result.PixelFormat:=pf15bit;
    Result.Canvas.Draw(0,0,g);
  except
    Result:=nil;
  end;
end;

[[fjcg02]]

Yo utilizo esto y me va bien. El código está asociado a un botón de cargar imagen.

Código Delphi [-]
OpenPictureDialog1.Execute;
if OpenPictureDialog1.Filename <> '' then
begin
  if not (TMapas.State in [dsInsert,dsEdit]) then TMapas.Edit;
  DBImage1.Picture.LoadFromFile(OpenPictureDialog1.Filename);
end;

Saludos

[[QuarkBcn]]

Cierto, el código propuesto por fjcg02, funciona perfectamente. Muchas gracias.

Y gracias a mightydragonlor, por la function ToBmp. Por cierto solo me queda una duda, no es necesario liberar el puntero a TBitmap.Create ???

Saludos !!!