Unknown error in integration with Webservice REST

Question

I am trying to make a POST type request using the components: Resrrequest, Restclient, Restresponse by Delphi Xe8.

In the GET type integration I can do normally, I get the return normally from the server.

However, when doing the integration via POST is giving an exception in the execution: "Execution of request terminated with Unknown error".

Maybe I’m missing something. The server expects 2 parameters:

1 - HeaderParam, tipo AlfaNumérico, Identificador "Token-Integracao"
2 - BodyParam, tipo Complexo, Identificador "itensResolvidos"

Follow the code I’m using to do the integration:

with fDm do
begin
  sRet := EmptyStr;

  RESTClient.BaseURL := sInfo[7];
  RESTClient.Params.ParameterByName('Token-Integracao').Value := sInfo[6];

  with RESTClient.Params.AddItem do
  begin
    name := 'itensResolvidos';
    Value := sJson; // String com o JSON a ser enviado, montado anteriormente
    Kind := TRESTRequestParameterKind.pkREQUESTBODY;
  end;

  RESTRequest.Method := rmPOST;
  RESTRequest.Execute; // Aqui dá a Excessão e não continua o programa

  sRet := '{"retorno":' + RESTResponse.JSONValue.ToString + '}';
end;

Answer 1

Use as follows::

RESTClient.BaseURL := MINHA_URL;
Requisicao.Method := TRESTRequestMethod.rmPOST;
Requisicao.Resource := '/REQUISICAO_QUALQUER';
Requisicao.Params.AddItem('username', aUsuario, TRESTRequestParameterKind.pkGETorPOST);
Requisicao.Params.AddItem('password', aSenha, TRESTRequestParameterKind.pkGETorPOST);
Requisicao.Execute;

TRESTRequestMethod.rmPOST; this should solve your problem.

So much for GET how much to POST should be specified for each parameter what it is doing. In this case, I use the pkGETorPOST.

As for the Token the submission is as follows:

Requisicao.Params.AddItem('Authorization'
                          ,SEU_TOKEN
                          ,TRESTRequestParameterKind.pkHTTPHEADER
                          ,[poDoNotEncode]
                          ,ctAPPLICATION_JSON);

As for the JSON sending is as follows:

Requisicao.AddBody(SEU_JSON, TRESTContentType.ctAPPLICATION_JSON);