some.networks 中的“Socket.RemoteHost”返回 IP 而不是 ComputerName - Delphi

Question

我正在使用 TServerSocket 的“OnClientConnect”来识别客户端何时连接到聊天，并将客户端的 ComputerName 保存在列表框中以管理客户端之间的消息发送。

代码是这样的：

    procedure TfrmAnaForm.ServerSocket1ClientConnect(Sender: TObject; Socket: TCustomWinSocket);
    var 
       ComputerName: string;
    begin    
        frmChatMain.lstChatUsers.Items.Add(Socket.RemoteHost);    
    end;

问题是通常“Socket.RemoteHost”返回客户端的“ComputerName”，但在some.networks中，代码“Socket.RemoteHost”返回客户端的IP而不是客户端的“ComputerName”。

Answer 1

RemoteHost属性从套接字中检索客户端的 IP 地址，然后针对该 IP 执行客户端主机名的反向 DNS 查找。如果该查找失败， RemoteHost将返回一个空字符串，而不是 IP 地址。 RemoteHost可以返回 IP 地址的唯一方法是如果这是 DNS 系统实际报告的地址。

您不应该使用RemoteHost来唯一标识客户端，因为 1) 它甚至不能保证给您一个值，并且 2) 它不能保证是唯一的，例如多个远程客户端从同一台计算机连接。网络。 至少，您必须使用RemoteIP + RemotePort而不是RemoteHost来识别各个连接。 不过，您确实应该使用TCustomWinSocket object 本身来识别唯一连接。 更好的是，要求客户端使用唯一 ID 登录到您的服务器，然后您可以将其存储在TCustomWinSocket.Data属性中，以便它遵循它所属的连接。