datasnap的初步 获得客户端的信息

记得datasnap 2009时，要得到客户端信息，非官方的方法，要去搞什么DSConnectEventObject.ChannelInfo.Id，弄成　TIdTCPConnection。xe2就好得多了。
仍然是在DSServer的OnConnect 事件里，
DSConnectEventObject.ChannelInfo.ClientInfo就是客户端的信息。
能得到啥？ 看代码

TDBXClientInfo = record
    IpAddress: String;
    ClientPort: String;
    Protocol: String;
    AppName: String;
  end;

也就是能取得客户端ip，端口，连接协议，不过AppName这玩意儿一直是空的。

执行到 DSServer的OnConnect的事件里，其实socket已经完全连上了，client已经调用了server的connect方法了，在这个方法里触发的OnConnect。所以DSServer的OnConnect其实并不是真的socket的OnConnect。