本文整理自网络,侵删。
uses Datasnap.DSSession;
var Session: TDSSession; Protocol, IpAddress, AppName: string;begin Session := TDSSessionManager.GetThreadSession; Protocol := Session.GetData('CommunicationProtocol'); IpAddress := Session.GetData('RemoteIP'); AppName := Session.GetData('RemoteAppName');end;
相关阅读 >>
Delphi2010安装twordapplication控件
Delphi dcc64.exe Delphi64位命令行编译器揭秘
更多相关阅读请进入《Delphi》频道 >>