delphi – TCP在idHttpServer(服务器)和wininet(客户端)上保持活
发布时间:2020-12-15 10:04:24 所属栏目:大数据 来源:网络整理
导读:我有一个使用idHttpServer开发的webserver应用程序.当客户端连接我的网络服务器时,由于某种未知的原因,断开连接(没有正常断开连接),我的网络服务器不会收到通知.我知道这是正常行为,但我需要知道客户端何时死亡. 有几种方法可以做到这一点.我知道两个好方法
我有一个使用idHttpServer开发的webserver应用程序.当客户端连接我的网络服务器时,由于某种未知的原因,断开连接(没有正常断开连接),我的网络服务器不会收到通知.我知道这是正常行为,但我需要知道客户端何时死亡.
有几种方法可以做到这一点.我知道两个好方法: 1 – 实施心跳机制.客户端套接字通知服务器它仍然存在(需要一些工作和一些代码才能使其工作) 2 – TCP Keep Alive.这是我最喜欢的方式,因为它不需要太多的代码和工作.但我对此有一些疑问. >这是否可以使用 编辑 我正在使用他们的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; (编辑:李大同) 【声明】本站内容均来自网络,其相关言论仅代表作者个人观点,不代表本站立场。若无意侵犯到您的权利,请及时与联系站长删除相关内容! |