Ver Mensaje Individual
  #5  
Antiguo 14-02-2017
Rockin Rockin is offline
Miembro
 
Registrado: may 2003
Ubicación: Málaga
Posts: 264
Reputación: 21
Rockin Va por buen camino
Código Servidor

Llega por el php que lo llamo así:

file_get_contents("http://localhost:8080/datasnap/rest/TServidorMetodosPrevengos/insertarSeguimientoCliente/$cadena");

En la variable $cadena concateno todos los parámetros.

El código del servidor es muy tonto.

Código Delphi [-]
function TServidorMetodosPrevengos.insertarSeguimientoCliente( id_UsuarioPrevengo, id_ClientePrevengo,id_EstadoVisita,id_Asesoria,
                                                                   contratoFirmado : integer; fechaVisita,horaVisita: TDateTime;
                                                                   incidencia:AnsiString ): String;
begin
try


       with SPInsertarCliente do
        begin
          Close;
          Params[0].Value;
          Params[1].Value := id_UsuarioPrevengo;
          Params[2].Value := id_ClientePrevengo;
          Params[3].Value := id_EstadoVisita;
          Params[4].Value := fechaVisita; 
          Params[5].Value := horaVisita ;  
          Params[6].Value := contratoFirmado ; 
          Params[7].Value:= id_Asesoria ;
          Params[8].Value:= UTF8Decode(incidencia);
          ExecProc;
          Result:= 'OK'
        end;



except
   on E:Exception do
    Result:=  'Error en el alta del seguimiento. Codigo de error: ' + E.Message;

end;

end;
Responder Con Cita