cargar una imagen a una base de datos con Timagen en delphi

  

realizando una aplicacion movil con firemonkey, estoy tratando de subir una imagen a una base de datos, que capturo en una Timagen para luego subirla a la base de datos, este el codigo que estoy haciendo pero no funciona, algui en tiene alguna ayuda por favor?

if (edtnombre.Text <> ”) and(edtapellidos.Text <> ”) and (edtcodigo.Text = ”) then
begin

SpGuardar.ParamByName(‘_nombre’).Value:=edtnombre.Text;
SpGuardar.ParamByName(‘apellidos’).Value:=edtapellidos.Text;
SpGuardar.ParamByName(‘direccion’).Value:=edtdireccion.Text;
SpGuardar.ParamByName(‘tel’).Value:= edtTel.Text;
SpGuardar.ParamByName(‘cel’).Value:=edtCel.Text;
SpGuardar.ParamByName(‘cedula’).Value:=edtCedula.Text;
SpGuardar.ParamByName(’email’).Value:=edtEmail.Text;
SpGuardar.ParamByName(‘trabajo’).Value:=edtTrabajo.Text;
SpGuardar.ParamByName(‘cargo’).Value:=edtcargo.Text;
SpGuardar.ParamByName(‘idusuario’).Value:=flogin.qrUsuarioconnectid_usuario.AsInteger;
SpGuardar.ParamByName(‘fecha’).Value:=fecha.Date;

SpGuardar.ParamByName(‘foto’).LoadFromStream(image1, ftBlob);
SpGuardar.ParamByName(‘sector’).Value:=edtsector.Text;
SpGuardar.ParamByName(‘ciudad’).Value:=cbciudad.ItemIndex;
try
SpGuardar.ExecProc;
finally

end;

showmessage(‘Cliente Guardado correctamente.’);

end
else
begin
showmessage(‘Debe llenar los datos requeridos para poder guardar o el cliente ya esta registrado.’);
end;

Comments are closed.