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 利用51.la统计程序使用量

Delphi一句话复制整个文件夹(当然包括嵌套文件夹)

Delphi动态创建一个ipedit控件

Delphi android 保持唤醒状态

Delphi 延迟时间函数

在rad studio Delphi或c++安卓应用中使用自定义java库

Delphi 使用zlib对datasetprovider.data数据包进行压缩传输的测试

Delphi 图像二值化

Delphi 简单的英文数字字符串加密解密函数（不支持中文）

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

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