Delphi中THttpClient发送Post后未关闭连接，如何修改代码？

我懂你的困扰——用TCPView看到Post请求发出去后连接还挂着，确实会让人纳闷。其实这是THttpClient的默认特性在起作用：它默认启用了HTTP Keep-Alive（连接复用），这是HTTP/1.1的标准行为，目的是减少后续请求的TCP握手开销。但如果你确实需要请求完成后立即关闭连接，只需要改一行代码就能搞定。

修改方案 #

直接设置THttpClient的ConnectionClose属性为True，它会自动在请求头里添加Connection: close，告诉服务器处理完请求就断开TCP连接。修改后的代码如下：

function PostURL(const AURL: string; Parameters: TStrings): string;
var
  HttpClient: THttpClient;
  HttpResponse: IHttpResponse;
begin
  HttpClient := THTTPClient.Create;
  try
    HttpClient.ConnectionTimeout:=3000;
    HttpClient.ResponseTimeout:=3000;
    // 关键改动：强制请求后关闭连接，禁用Keep-Alive
    HttpClient.ConnectionClose := True;
    HttpResponse := HttpClient.Post(AURL, Parameters, nil, TEncoding.UTF8);
    Result := HttpResponse.ContentAsString();
  finally
    HttpClient.Free;
  end;
end;

另一种手动控制请求头的方式 #

如果你更倾向于手动管理请求头，也可以直接添加Connection: close字段，效果完全一致：

// 在发起Post请求前添加这一行
HttpClient.CustomHeaders['Connection'] := 'close';

补充说明 #

如果之后你需要频繁向同一个服务器发送请求，其实Keep-Alive是更高效的选择——它能复用已有连接，避免重复的TCP三次握手。但如果你的业务场景就是需要单次请求后立即释放连接，上面的方法就能完美解决你的问题。

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