datasnap中间件如何控制长连接的客户端连接?
2016-07-12 10:24
423 查看
ActiveConnections: TClientDataSet;
。。。
有客户端连接上来的时候
procedure TForm8.DSServer1Connect(DSConnectEventObject: TDSConnectEventObject);
begin
ActiveConnections.Insert;
if DSConnectEventObject.ChannelInfo <> nil then
begin
ActiveConnections['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);
begin
if ActiveConnections.Locate('ID', DSConnectEventObject.ChannelInfo.Id,[]) then
ActiveConnections.Delete;
end;
。。。
有客户端连接上来的时候
procedure TForm8.DSServer1Connect(DSConnectEventObject: TDSConnectEventObject);
begin
ActiveConnections.Insert;
if DSConnectEventObject.ChannelInfo <> nil then
begin
ActiveConnections['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);
begin
if ActiveConnections.Locate('ID', DSConnectEventObject.ChannelInfo.Id,[]) then
ActiveConnections.Delete;
end;
相关文章推荐
- 关于Android“This Handler class should be static or leaks might occur”警告的处理方法
- 续写上一篇文章 远程rmi 的第二个实例
- 用java怎么创建一副扑克牌
- JavaScript 回调(callback)函数
- 文章标题
- Android启动(一):Linux启动流程
- 廖雪峰python学习笔记9:面向对象高级
- xfire开发weblogic服务器上的webservice系统
- centos 安装 svn-1.9.4
- 数据挖掘
- 串的应用--模式匹配算法
- cookie VS sessionstorge VS localstorge
- Eclipse 调试总进入Spring代理的解决办法
- DM8168 系统编译、启动、烧写
- R-FCN:基于区域的全卷积网络来检测物体
- Javascript iframe交互并兼容各种浏览器的解决方法
- android学习之七牛(三)--上传凭证
- Less自学笔记
- Netty的入门-文件传输
- 廖雪峰python学习笔记8:面向对象初步