Delphi中IdTcpServer 用户掉线检测方法

正常情况下,当登陆用户异常掉线并不会通知服务器,这时服务器一直以为用户在线,解决这种问题有以下两种方法:
一、轮训检测连接情况,需要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事件。

  • 0
    点赞
  • 0
    收藏
    觉得还不错? 一键收藏
  • 0
    评论

“相关推荐”对你有帮助么?

  • 非常没帮助
  • 没帮助
  • 一般
  • 有帮助
  • 非常有帮助
提交
评论
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

当前余额3.43前往充值 >
需支付:10.00
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、付费专栏及课程。

余额充值