delphi - DataSnap 2010 でクライアント IP を取得する方法

Question

サーバー側から接続されたセッションのクライアント IP を取得する方法を教えてください。

ありがとう

Answer 1

procedure TMyDSService.DataSnapServerConnect(DSConnectEventObject: TDSConnectEventObject);
var
  Conn: TIdTCPConnection;
begin
   Conn := TIdTCPConnection(DSConnectEventObject.ChannelInfo.Id);
   Trace('Client ' + Conn.Socket.Binding.PeerIP +':' + IntToStr(Conn.Socket.Binding.PeerPort));
   Trace('Client info: ' + DSConnectEventObject.ChannelInfo.Info);
end;

Answer 2

にクエリを実行しRequest.RemoteAddrて、接続されているクライアントの IP アドレスを取得します。