delphi Datasnap 获取客户端IP

本文整理自网络，侵删。

 

uses Data.DBXTransport;

//ServerContainer
procedure TServerContainer.DSServer1Connect(DSConnectEventObject: TDSConnectEventObject);
var
  ci: TDBXClientInfo;
  ClientID: Integer;
begin
  ci := DSConnectEventObject.ChannelInfo.ClientInfo;
  ClientID := DSConnectEventObject.ChannelInfo.Id;
  FrmMain.getUser(IntToStr(ClientID), DateTimeToStr(Now), ci.IpAddress, ci.ClientPort);
end;

//FrmMain
procedure TFrmMain.getUser(strID, strDateTime, strIP, strPort: string);
var
  item: TListItem;
begin
  ListView1.Items.BeginUpdate;
  item := ListView1.Items.Add;
  item.Caption := strDateTime;
  item.SubItems.Add(strID);
  item.SubItems.Add(strIP);
  item.SubItems.Add(strPort);
  ListView1.Items.EndUpdate;
end;

来源：https://www.cnblogs.com/win32pro/p/11254964.html
 

相关阅读 >>

Delphi 锁定系统解锁系统

Delphi 用cxgrid把数据导出到excel时乱码的解决办法

Delphi 建立快捷方式的函数: createshortcut

Delphi 蓝牙连接打印机演示

Delphi重写一个字符串分割函数

Delphi 如何快速读取文本文件

Delphi 英文单词第一个字母大写

Delphi 获取网络图片在webbrowser显示 android/osx/ios/win的最佳方式

Delphi xe 中的字符串生成哈希值（md5 / sha-1 / jenkins）

Delphi n个字符串替换成1个字符串

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

转载请注明出处：木庄网络博客 » delphi Datasnap 获取客户端IP