Delphi中TIdHttp发送无请求体POST请求报HTTP 500错误的解决方法

问题出在你使用空TStringList作为POST请求体参数，同时设置了Content-Type: application/x-www-form-urlencoded。Indy会基于这个配置生成一个空的表单请求体（带Content-Length: 0），但部分API服务器对这种格式的无体POST请求兼容性不佳，而Postman发送无体POST时通常不会附带这个Content-Type，因此可以正常执行。

正确实现方式 #

1. 移除不必要的Content-Type设置：无请求体的POST不需要application/x-www-form-urlencoded类型头。
2. 使用无请求体的Post重载方法：直接传递nil作为请求体参数，或使用空流，让Indy生成符合服务器预期的请求格式。

修改后的代码 #

try
  retorno := TStringStream.Create;
  // 设置授权头
  IdHttp1.Request.CustomHeaders.Values['Authorization']     := 'Bearer ' + txtAccessToken.Text;
  IdHttp1.Request.CustomHeaders.Values['x-integration-key'] := 'GYBtKWR5QjSwVxXXXxxXxXeUeOsUe0nOuc8HyTnyT1s';
  // 移除原有的ContentType设置，无需指定表单类型
  IdHTTP1.Request.Charset := 'utf-8';
  // 使用nil作为请求体参数，发送无请求体的POST
  IdHTTP1.Post('https://api.onvio.com.br/dominio/integration/v1/activation/enable', nil, retorno);
  
  JsonResponse        := TJSONObject.ParseJsonValue(UTF8Decode(retorno.DataString)) as TJSONObject;
  IntegrationKey.Text := JsonResponse.GetValue<string>('integrationKey');
  MemoJson.Lines.Text := retorno.DataString; // 原responseres未使用，直接返回响应内容
finally
  retorno.Free;
  // 原代码中responseres未被赋值使用，可按需移除或处理
  // responseres.Free;
end;

补充说明 #

如果服务器要求必须发送Content-Length: 0的空请求体，可以改用空TMemoryStream替代nil：

var
  EmptyStream: TMemoryStream;
begin
  EmptyStream := TMemoryStream.Create;
  try
    IdHTTP1.Post('https://api.onvio.com.br/dominio/integration/v1/activation/enable', EmptyStream, retorno);
  finally
    EmptyStream.Free;
  end;
end;

内容的提问来源于stack exchange，提问作者hugolmf