TIdHTTP Método POST sem parâmetros - HTTP/1.1 500

hugolmf · 6 Outubro, 2022

Bom dia. Alguém consegue me ajudar. Estou tentando fazer uma requisição via api usando o TIdHTTP, porém não estou conseguindo fazer funcionar quando não tem parâmetros a ser passado. Outras requisições que tem parâmetro funciona normal. Mas essa que não tem parâmetro não funciona, tentei passar em branco, mas me retorna a mensagem : "HTTP/1.1 500" , alguém sabe me dizer como que faz ? No postman funciona normalmente. Segue imagem:

hugolmf · 7 Outubro, 2022

Consegui resolver. Fica aqui a solução, caso alguém tenha o mesmo problema. Pode fechar o tópico.

SOLUÇÃO:

try
    retorno     := TstringStream.Create;
    params      := nil;
    responseres := TStringlist.Create;
    //--------------------------------
    IdHttp1.Request.CustomHeaders.Clear;
    IdHttp1.Request.CustomHeaders.Values['Authorization']     := 'Bearer ' + txtAccessToken.Text;
    IdHttp1.Request.CustomHeaders.Values['x-integration-key'] := 'GYBtKWR5QjSwVxXXXxxXxXeUeOsUe0nOuc8HyTnyT1s';
    IdHttp1.Request.CustomHeaders.Values['Content-Length']    := '0';
    IdHttp1.Request.CustomHeaders.Values['Accept']            := '*/*';
    IdHttp1.Request.CustomHeaders.Values['Accept-Encoding']   := 'gzip, deflate, br';
    IdHttp1.Request.CustomHeaders.Values['Connection']        := 'keep-alive';
    //--------------------------------
    IdHTTP1.Request.ContentType       := 'application/json';
    IdHTTP1.Request.Charset           := 'utf-8';
    //--------------------------------
    IdHTTP1.Post('https://api.onvio.com.br/dominio/integration/v1/activation/enable', params, retorno);
    JsonResponse        := TJSONObject.ParseJsonValue(UTF8Decode(retorno.DataString)) as TJSONObject;
    IntegrationKey.Text := JsonResponse.GetValue<string>('integrationKey');

    MemoJson.Lines.Text := FormatJSON(retorno.DataString);
    JsonToDataset(FDMemTable1, '['+retorno.DataString+']');
  finally
    params.Free;
    responseres.Free;
    retorno.Free;
    JsonResponse.Free;
  end;