Datasnap 获取客户端IP

最新推荐文章于 2025-06-20 13:43:58 发布

原创最新推荐文章于 2025-06-20 13:43:58 发布 · 344 阅读

1 ·

CC 4.0 BY-SA版权

delphi 专栏收录该内容

39 篇文章

订阅专栏

该代码段展示了在ServerContainer中处理DServer1的连接事件，获取客户端信息并调用FrmMain的getUser方法，将客户端ID、日期时间、IP地址和端口添加到ListView的子项中进行展示。

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;