如何通过SocketHandle获取本地IP？

Question

我正在开发聊天室应用程序 - 使用TServerSocket和TClientSocket发送和接收文本 我可以从为我发送的计算机获取Socket.SocketHandle，但如何获取该计算机的本地IP（或Computernetname）。

Answer 1

TCustomWinSocket具有RemoteAddress和RemoteHost属性分别获取对等的IP和主机名值。您不需要使用SocketHandle属性，除非您想直接调用Winsock API函数，如getpeername()和getnameinfo()。

Answer 2

我已经成功使用了这段代码很多年了。您必须在您的uses列表中包含WinSock。我有两个全局变量：

var 
    FWSAData: TWSAData; 
    FWSAStarted: Integer; 

我用下面的代码初始化WSA一次，以避免每次调用一个Winsock方法做它的开销。

initialization 
    FWSAStarted := WSAStartup(MakeLong(1, 1), FWSAData); 

finalization 
    if FWSAStarted = 0 then 
    WSACleanup; 

用户可以有多个本地IP地址。下面的代码演示了如何获取的计算机名（获取IP地址），以及如何获得的所有IP地址，通过使用Winsock API调用分号分隔：

function _GetComputerName : string; 
var 
    len: DWORD; 
begin 
    len := MAX_COMPUTERNAME_LENGTH + 1; 
    SetLength (result, len); 
    if not Windows.GetComputerName(PChar(result), len) then 
    RaiseLastOSError; 
    SetLength(result, len); 
end; 

function GetIPAddress: AnsiString; 
var 
    Host: AnsiString; 
    IPs, i: Integer; 
    HostEnt: PHostEnt; 
    b1, b2, b3, b4: Byte; 
begin 
    if FWSAStarted <> 0 then 
    raise Exception.Create('Unable to hook WINSOCK. "GetIPAddress" failed.'); 

    Result := ''; 
    Host := AnsiString(_GetComputerName); 
    HostEnt := GetHostByName(PAnsiChar(Host)); 

    if Assigned(HostEnt) then 
    with HostEnt^ do 
     begin 
     // the ip addresses occupy 4 bytes per address in sequence from the beginning 
     // of the string, followed by the host name 
     IPs := (Length(h_addr^) - Length(Host)) div 4; 
     for i := 0 to IPs-1 do 
     begin 
      b1 := Byte(h_addr^[0+(4*i)]); 
      b2 := Byte(h_addr^[1+(4*i)]); 
      b3 := Byte(h_addr^[2+(4*i)]); 
      b4 := Byte(h_addr^[3+(4*i)]); 
      Result := Result + AnsiStrings.Format(';%u.%u.%u.%u', [b1, b2, b3, b4]); 
     end; 
     System.Delete(Result, 1, 1); // delete the first semicolon 
     end; 
end;