Delphi：为 TIdHttpServer 设置连接超时

Question

使用 TIdHTTPServer (Indy 10.6)，我想为关闭慢速或非活动客户端（客户端是普通浏览器）设置连接超时，并在 60 秒不活动后关闭所有僵尸连接。我在 TIdContext.Connection 中找到了 Socket.ReadTimeout。这是正确的方法吗？ TIdHTTPServer 已经执行此操作（似乎有无限超时）？

WebServer := TIdHTTPServer.Create(nil);
WebServer.SessionState := false;
WebServer.KeepAlive    := false;
WebServer.OnCommandGet := CustomOnCommandGet;

procedure CustomOnCommandGet(AContext: TIdContext; ARequestInfo: TIdHTTPRequestInfo; AResponseInfo: TIdHTTPResponseInfo;
begin
    AContext.Connection.Socket.ReadTimeout := 60000;
    AResponseInfo.ContentStream := TFileStream.Create('C:/file.zip', fmOpenRead or fmShareCompat);
end;

Answer 1

您在正确的轨道上，ReadTimeout 属性可用于断开不及时发送请求的慢速/死机客户端。但是，您将ReadTimeout 设置在错误的位置。

当OnCommand... 事件被触发时，TIdHTTPServer 已经完整读取了客户端的请求，因此您的新设置将在同一连接上的下一个 请求之前生效，如果有的话。因此，您应该在OnConnect 事件中设置ReadTimeout 值：

WebServer.OnConnect := CustomOnConnect;

procedure CustomOnConnect(AContext: TIdContext);
begin
  AContext.Connection.Socket.ReadTimeout := 60000;
end;

请记住，HTTP 是无状态的。 只有在使用 HTTP keep-alives 时，才能在同一连接上发送多个 HTTP 请求，这是可选的。如果没有 keep-alives，服务器会在发送响应后关闭连接。客户端必须重新连接才能发送新请求。

您将服务器的KeepAlive 属性设置为false，因此不会有任何保持活动状态，每个请求都会在断开连接之后发生。因此，您需要在OnConnect 事件中设置ReadTimeout 以将其应用于在每个连接上发送的唯一请求。但是，如果您启用KeepAlive，并且客户端请求保持活动状态，则ReadTimeout 将应用于客户端在同一连接上发送的每个请求，尤其是第一个请求。