如何通過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;