Delphi datasnap中间件如何控制长连接的客户端连接？

本文整理自网络，侵删。

 ActiveConnections: TClientDataSet;
。。。
有客户端连接上来的时候
procedure TForm8.DSServer1Connect(DSConnectEventObject: TDSConnectEventObject);beginActiveConnections.ｉｎｓｅｒｔ;if DSConnectEventObject.ChannelInfo <> nil thenbeginActiveConnections['ID'] := DSConnectEventObject.ChannelInfo.Id;ActiveConnections['Info'] := DSConnectEventObject.ChannelInfo.Info;end;ActiveConnections['UserName'] := DSConnectEventObject.ConnectProperties[TDBXPropertyNames.UserName];ActiveConnections['ServerConnection'] := DSConnectEventObject.ConnectProperties[TDBXPropertyNames.ServerConnection];ActiveConnections.Post;
end;
有客户端断开连接的时候
procedure TForm8.DSServer1Disconnect(DSConnectEventObject: TDSConnectEventObject);beginif ActiveConnections.Locate('ID', DSConnectEventObject.ChannelInfo.Id,[]) thenActiveConnections.ｄｅｌｅｔｅ;end;
来源：https://www.cnblogs.com/hnxxcxg/p/5662633.html 

相关阅读 >>

Delphi 制作资源文件并释放运行

crc16unt.pas

Delphi embeddedwb 遍历frames并执行子frame的js脚本

Delphi的split函数 4个版本

用Delphi内嵌汇编实现�载任意进程的某个dll

Delphi中case语法的使用方法

Delphi二值图像投影算法

Delphi自带皮肤的使用

Delphi xe7组件tetheringmanager1发送消息

setwindowpos改变窗口的位置与状态

更多相关阅读请进入《Delphi》频道 >>