TCP 在 idHttpServer（服务器）和 wininet（客户端）上保持活动状态

Question

我有一个使用 idHttpServer 开发的网络服务器应用程序。当客户端连接我的网络服务器时，由于某种未知的原因，断开连接（不是正常断开），我的网络服务器不会收到通知。我知道这是正常行为，但我需要知道客户何时死亡。

有几种方法可以做到这一点。我知道两个好方法：

1 - 实现心跳机制。客户端套接字通知服务器它仍然处于活动状态（需要一些工作和一些代码才能使其正常工作）

2 - TCP 保持活动状态。这是我最喜欢的方式，因为它不需要太多的代码和工作。但我对此有一些疑问。

• 这可以与使用吗 idHttpServer（对于服务器）和 wininet 函数（对于客户端）？
• 这真的如预期的那样起作用吗？我的意思是，当客户端总是死掉时，服务器会收到通知吗？
• 有人有在 wininet 上设置这个的示例吗？ （我想这必须在客户端设置，对吧？）
• 有没有更好的方法来通知服务器客户端已死（当然使用 indy 和 wininet）

编辑

我正在使用 Delphi 2010 年和最后一个 Indy10 源代码来自他们的 svn。

Answer 1

如果您使用的是最新的 Indy 10 版本，则可以使用 TIdSocketHandle.SetKeepAliveValues() 方法：

procedure SetKeepAliveValues(const AEnabled: Boolean; const ATimeMS, AInterval: Integer);

例如：

procedure TForm1.IdHTTPServer1Connect(AContext: TIdContext);
begin
  // send a keep-alive every 1 second after
  // 5 seconds of inactivity has been detected
  AContext.Binding.SetKeepAliveValues(True, 5000, 1000);
end;

请注意 ATimeMS 和 AInterval 参数仅在 Win2K 及更高版本上受支持。

否则，请直接使用 TIdSocketHandle.SetSockOpt() 方法手动启用 TCP/IP SO_KEEPALIVE 选项：

procedure TIdSocketHandle.SetSockOpt(ALevel: TIdSocketOptionLevel; AOptName: TIdSocketOption; AOptVal: Integer);

例如：

procedure TForm1.IdHTTPServer1Connect(AContext: TIdContext);
begin
  AContext.Binding.SetSockOpt(Id_SOL_SOCKET, Id_SO_KEEPALIVE, 1);
end;