delphi – TCP在idHttpServer(服务器)和wininet(客户端)上保持活跃

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

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

1 – 实施心跳机制.客户端套接字通知服务器它仍然存在(需要一些工作和一些代码才能使其工作)

2 – TCP Keep Alive.这是我最喜欢的方式,因为它不需要太多的代码和工作.但我对此有一些疑问.

>这是否可以使用
idHttpServer(用于服务器)和
wininet功能(为客户端)？
>这真的按预期工作吗？我的意思是,当客户端一直死亡时,服务器会被取消？
>有没有人在wininet上设置这个样本？ (我想这必须在客户端设置,对吧？)
>是否有更好的方式通知服务器客户端已死(当然使用indy和wininet)

编辑

我正在使用他们的svn中的Delphi 2010和最后一个Indy10源代码.

解决方法

如果您使用的是最新的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;