本文整理自网络，侵删。
正常情况下，当登陆用户异常掉线并不会通知服务器，这时服务器一直以为用户在线，解决这种问题有以下两种方法：
一、轮训检测连接情况，需要Timer轮训检测，如下代码：
procedure TMainForm.Timer1Timer(Sender: TObject);
begin
CheckForDisconnect();
end;
procedure TMainForm.CheckForDisconnect();
var
lst:TList;
I:Integer;
User:TUser;
begin
lst:=FUserList.LockList;
try
for I:=0 to lst.Count-1 do
// 检查连接，如失去连接则会在本线程的OnExecute事件内出现读取异常，然后出发OnDsiconnet事件
User.Context.Connection.CheckForGracefulDisconnect;
finally
FUserList.UnlockList;
end;
end;
其中FUserList是登陆用户实体列表，用户实体内含有IdTcpServer用户线程信息。
二、连接时声明检测连接，需要用WinSock2(可网上下载)，代码如下：
uses WinSock2;
procedure TForm1.IdTCPServer1Connect(AThread: TIdPeerThread);
type
TCP_KeepAlive = record
OnOff: Cardinal;
KeepAliveTime: Cardinal;
KeepAliveInterval: Cardinal
end;
var
Val: TCP_KeepAlive;
Ret: DWord;
begin
Val.OnOff:=1;
Val.KeepAliveTime:=xxx;
Val.KeepAliveInterval:=xxx;
WSAIoctl(AThread.Connection.Socket.Binding.Handle, IOC_IN or IOC_VENDOR or 4,
@Val, SizeOf(Val), nil, 0, @Ret, nil, nil)
end;
同样，当检测到用户连接失败时会在OnExecute事件内抛出读异常，然后激发OnDisconnect事件。 相关阅读 >>
更多相关阅读请进入《Delphi》频道 >>
