zoukankan      html  css  js  c++  java
  • datasnap中间件如何控制长连接的客户端连接?

    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;

  • 相关阅读:
    Oracle:解锁scott用户及设置密码
    js生成条形码
    返回头部效果
    密码强度
    事件委托小效果
    圆形导航效果
    进度条效果
    标题跟随效果
    随机抽人小效果
    点击创建效果
  • 原文地址:https://www.cnblogs.com/hnxxcxg/p/5662633.html
Copyright © 2011-2022 走看看