Estou tentando fazer uma requisição do tipo POST usando os componentes: RESRRequest, RESTClient, RESTResponse pelo Delphi Xe8.
Na integração do tipo GET eu consigo fazer normalmente, recebo o retorno normalmente do servidor.
Porém, ao fazer a integração via POST está dando uma excessão na execução: "Execution of request terminated with unknown error".
Pode ser que eu esteja errando em alguma coisa. O servidor espera 2 parâmetros:
1 - HeaderParam, tipo AlfaNumérico, Identificador "Token-Integracao"
2 - BodyParam, tipo Complexo, Identificador "itensResolvidos"
Segue o código que estou usando para fazer a integração:
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;