Delphi DataSnap服务器-获取客户端信息（IP和端口）

我有一个客户端应用程序，它使用HTTP与DataSnap服务器通信。 在TDSServer OnConnect事件中，我希望检索有关刚刚连接的客户端的信息（IP和端口），因此我执行以下操作：

procedure TServerContainer.DSServer1Connect(
  DSConnectEventObject: TDSConnectEventObject);
var
  userIP, userPort: String;
begin
  userIP := DSConnectEventObject.ChannelInfo.ClientInfo.IpAddress;
  userPort := DSConnectEventObject.ChannelInfo.ClientInfo.ClientPort;
end;

我可以使用IpAddress属性获取客户端IP，但无法获取客户端端口，因为ClientPort属性是空字符串

如果我使用TCP而不是HTTP与服务器通信，我可以正确地获取这两个信息，但在我的应用程序中，我需要使用HTTP

我是否做错了什么，或者是否有其他方法检索此信息

谢谢

PS：我使用的Delphi版本是西雅图