关于Delphi XE DataSnap心跳包

最新推荐文章于 2021-08-01 02:47:49 发布

光头计划

最新推荐文章于 2021-08-01 02:47:49 发布

阅读量4.2k

点赞数 1

CC 4.0 BY-SA版权

分类专栏： DataSnap技术文章标签： delphi DataSnap 心跳包临界区

本文链接：https://blog.youkuaiyun.com/szpusen/article/details/19242985

DataSnap技术专栏收录该内容

1 篇文章

订阅专栏

本文介绍了一种基于TCP连接的服务器连接方法，并设置了心跳包机制来维持连接的有效性。此外，还实现了一个客户端异常断开连接时的处理事件。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

user Windows, IdWinsock2, IdTCPConnection;

private

FSection: TRTLCriticalSection; //临界区

procedure ClientDisconnectEvent(Sender: TObject); // 客户端异常出错处理,需要引用windows单元

procedure T****.CMServerConnect(DSConnectEventObject: TDSConnectEventObject);
var
ClientConnection: TIdTCPConnection;
val: TCP_KeepAlive;
Ret: Integer;

begin

InitializeCriticalSection(FSection); //初始化临界区
EnterCriticalSection(FSection); //进入临界区
if DSConnectEventObject.ChannelInfo <> nil then
begin
ClientConnection := TIdTCPConnection(DSConnectEventObject.ChannelInfo.Id);
ClientConnection.OnDisconnected := ClientDisconnectEvent; // 异常退出，这句是关键
// 设置心跳包，如果不能运行，要引用winsock2单元
val.OnOff := 1;
val.KeepAliveTime := 5000;
val.KeepAliveInterval := 3000;
WSAIoctl(ClientConnection.Socket.Binding.Handle, IOC_IN or IOC_VENDOR or 4,
@val, SizeOf(val), nil, 0, @Ret, nil, nil);
end;
LeaveCriticalSection(FSection);
end;

procedure T****.ClientDisconnectEvent(Sender: TObject);
var
ClientConnection: TIdTCPConnection;
ClientID: Integer;
begin
EnterCriticalSection(FSection);
ClientConnection := Sender as TIdTCPConnection;
ClientID := Integer(ClientConnection);
LeaveCriticalSection(FSection);//离开临界区
DeleteCriticalSection(FSection);//删除临界区
end;