Delphi中IdTcpServer 用户掉线检测方法

 

正常情况下，当登陆用户异常掉线并不会通知服务器，这时服务器一直以为用户在线，解决这种问题有以下两种方法：
一、轮训检测连接情况，需要Timer轮训检测，如下代码：

Delphi代码  

1. procedure TMainForm.Timer1Timer(Sender: TObject);  
2. begin  
3.   CheckForDisconnect();  
4. end;  
5.   
6. procedure TMainForm.CheckForDisconnect();  
7. var  
8.   lst:TList;  
9.   I:Integer;  
10.   User:TUser;  
11. begin  
12.   lst:=FUserList.LockList;  
13.   try  
14.     for I:=0 to lst.Count-1 do  
15.       // 检查连接，如失去连接则会在本线程的OnExecute事件内出现读取异常，然后出发OnDsiconnet事件  
16.       User.Context.Connection.CheckForGracefulDisconnect;  
17.   finally  
18.     FUserList.UnlockList;  
19.   end;  
20. end;  

 

其中FUserList是登陆用户实体列表，用户实体内含有IdTcpServer用户线程信息。

二、连接时声明检测连接，需要用WinSock2(可网上下载)，代码如下：

Delphi代码  

1. uses WinSock2;  
2.   
3. procedure TForm1.IdTCPServer1Connect(AThread: TIdPeerThread);  
4. type  
5.   TCP_KeepAlive = record  
6.     OnOff: Cardinal;  
7.     KeepAliveTime: Cardinal;  
8.     KeepAliveInterval: Cardinal  
9.   end;  
10. var  
11.   Val: TCP_KeepAlive;  
12.   Ret: DWord;  
13. begin  
14.   Val.OnOff:=1;  
15.   Val.KeepAliveTime:=xxx;  
16.   Val.KeepAliveInterval:=xxx;  
17.   WSAIoctl(AThread.Connection.Socket.Binding.Handle, IOC_IN or IOC_VENDOR or 4,  
18.     @Val, SizeOf(Val), nil, 0, @Ret, nil, nil)  
19. end;    

 

同样，当检测到用户连接失败时会在OnExecute事件内抛出读异常，然后激发OnDisconnect事件。