Enviar Json A Webservice
 

BUENOS DIAS,
NECESITO ENVIAR A UN WEBSERVICE 2 PARAMETROS ( user , secret_key ) JSON , PERO ME ERROR HTTP/1.1 500 Internal Server Error.
ENVIO FUENTE .
GRACIAS

Código Delphi [-]
  restclient1.BaseURL := 'aqui pongo la url donde envio';
  RESTClient1.ContentType := 'ctAPPLICATION_JSON';
  s := '{ "user": "1111","secret_key": "11111" }';
  RESTRequest1.Method := TRESTRequestMethod.rmPOST;
  RESTRequest1.ADDBODY(S);
  RESTRequest1.Params.AddItem; //Adds a new Parameter Item
  RESTRequest1.Params.Items[0].Value := s; //Adds the value of the parameter, in this case, the JSON data.
  RESTRequest1.Params.Items[0].ContentType := ctAPPLICATION_JSON; //sets the content type.
  RESTRequest1.Params.Items[0].Kind := pkGEToRPOST; //sets the kind of request that will be executed.
  restrequest1.Execute;

Hola, bienvenido a clubdelphi, por favor, echa un vistazo a las normas del foro, gracias.
Y para siguientes ocasiones, recuerda usar las etiquetas para código fuente.

Estaría bien que editaras el mensaje, para eliminar las mayusculas.
Las etiquetas ya te las añado yo.

Revisa la guía de estilo, tal y como te ha indicado [Casisiro]

Lo más sencillo en estos casos es que utilices el RESTDebugger, la herramienta que viene con el IDE.
De esa forma haces las cosas por pasos (parte delphi, parte conexión con el server).

Una vez que te funcione con el RESTDebugger, sabes que el servidor está bien, y estás enviando los parámetros, autentificación,... correctamente.

Cuando funcione, desde el propio RESTDebugger puedes generar los componentes con la configuración que necesitas.

Muchas gracias.