Delphi XE Datasnap服务器获取客户端IP地址

本文整理自网络，侵删。

 
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;
 

相关阅读 >>

Delphi程序常用的公共代码

Delphi 字符串变形替换

Delphi jsondataobjects

Delphi中用拼音首字符序列来实现检索功能

Delphi 检测鼠标键盘多久没有活动

Delphi 用wininet 单元实现 post提交数据

Delphi取得网页源码内容

Delphi xe 编译开关-一套代码不同平台编译

Delphi xe7中使用json

Delphi 把单张图片保存到access数据库

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

转载请注明出处：木庄网络博客 » Delphi XE Datasnap服务器获取客户端IP地址