Lo siento, pero es que no me deja editar el comentario, pero aquí va el código.
Es necesario convertir la imagen a un Bitmap y para eso es la función ToBMP
dmConexxion es un DataModule
TblContacto es un TTable
Código Delphi
[-]
procedure TfrmAgenda.btnGuardarClick(Sender: TObject);
begin
dmConexion.TblContacto.AppendRecord([NIL,NICK.Text,NOMBRES.Text,APELLIDOS.Text,TEL_PER.Text
,TEL_LAB.Text,TEL_MOV.Text,DIRECCION.Text,CIUDAD.Text
,MAIL_PER.Text,MAIL_LAB.Text,MAIL_ADD.Text
,FECHA_NAC.Date,ToBMP(ImgFoto.Picture.Graphic),NOTAS.Lines]);
end;
function TfrmAgenda.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;
Listo, es muy sencillo, la verdad es que me gustaria guardar la imagen como JPG, ya que como BMP pesa mucho, pero tengo problemas cargando la imagen desde la base de datos si está guardada en JPG, algo que no pasa si la guardo como BMP.