Delphi中如何强制关闭TCP连接避免TIME_WAIT状态？

首先得明确：TIME_WAIT是TCP协议栈的固有机制，客户端主动发起关闭连接后，会进入这个状态一段时间（默认Windows是240秒），目的是确保对方能收到最后的ACK包，避免丢包导致的连接异常。完全消除它不太现实，但我们可以通过配置让连接更快关闭或复用，减少TIME_WAIT的影响。

针对你尝试过的两种客户端，我给你梳理下正确的配置方式：

一、Delphi原生THTTPClient的正确配置 #

你之前修改System.Net.HttpClient.Win.pas和添加connection:close的思路是对的，但可能细节没做到位：

1. 确保请求头发送正确的Connection: close
   不要直接赋值CustomHeaders，而是用Request.Connection属性更可靠：

var aClient: THTTPClient;
    aResponse: IHTTPResponse;
begin
  aClient := THTTPClient.Create;
  try
    // 明确设置关闭连接，而非复用
    aClient.Request.Connection := 'close';
    aResponse := aClient.Get('https://example.com/api/foo');
  finally
    aClient.Free;
  end;
end;

2. 正确配置WinHTTP的DISABLE_KEEP_ALIVE选项
   修改System.Net.HttpClient.Win.pas时，要确保在创建请求后、发送请求前设置该选项。正确的位置应该是在TWinHttpRequest.Send方法里，创建LRequest.FWRequest之后：

// 在System.Net.HttpClient.Win.pas的TWinHttpRequest.Send方法中
LRequest.FWRequest := WinHttpOpenRequest(...);
// 添加以下代码
var OptionValue: DWORD := WINHTTP_DISABLE_KEEP_ALIVE;
WinHttpSetOption(LRequest.FWRequest, WINHTTP_OPTION_DISABLE_FEATURE, @OptionValue, sizeof(OptionValue));
// 然后再执行WinHttpSendRequest

注意：修改VCL源码后需要重新编译RTL/VCL，否则不会生效。

二、Indy TIdHTTP的深度配置 #

你之前的代码还差一步：设置底层套接字的SO_LINGER选项，强制关闭连接时不等待TIME_WAIT：

var aClient: TIdHTTP;
    aIOHandler: TIdSSLIOHandlerSocketOpenSSL;
begin
  aClient := TIdHTTP.Create;
  try
    aIOHandler := TIdSSLIOHandlerSocketOpenSSL.Create(aClient);
    // 配置SO_LINGER选项，l_onoff=1，l_linger=0表示强制关闭，不进入TIME_WAIT
    aIOHandler.Socket.SetSockOpt(Id_SOL_SOCKET, Id_SO_LINGER, TIdStructLinger.Create(1, 0));
    aClient.IOHandler := aIOHandler;
    
    aClient.Request.Connection := 'close';
    aClient.Get('https://example.com/api/foo');
    // 主动断开连接，此时会触发SO_LINGER的强制关闭
    aClient.Disconnect;
  finally
    aClient.Free;
  end;
end;

这里的关键是SO_LINGER选项：当l_onoff=1且l_linger=0时，套接字会直接发送RST包关闭连接，跳过TIME_WAIT状态（但这可能会导致数据丢失，只适合你确定响应已经完全接收的场景）。

三、Windows系统层面的调整（可选） #

如果客户端程序无法修改，或者需要全局优化，可以修改Windows注册表来缩短TIME_WAIT的超时时间：

• 打开注册表编辑器，定位到HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Services\Tcpip\Parameters
• 添加或修改以下DWORD值：
  • TcpTimedWaitDelay：设置为十进制30（表示30秒，最小可以设为10）
  • MaxUserPort：如果TIME_WAIT连接太多导致端口耗尽，可以增大这个值（比如设为65534）
• 重启电脑生效

注意事项 #

• 强制跳过TIME_WAIT（比如用SO_LINGER=0）可能会带来潜在的网络问题，比如对方没收到完整响应就被强制断开，所以只适合你确认业务场景允许的情况。
• 复用HTTPClient实例其实是更推荐的做法，因为keep-alive能减少连接建立的开销，TIME_WAIT的数量只要在合理范围内就不用过度担心。

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