刚毕业的新人求助!!!鞠躬!!

Question

请问在Delphi窗体应用程序下如何获得本机的IP地址呢??要求是如果本机绑定了多个IP的话,将所有的绑定IP地址也检索出来!!我刚毕业,技术不高 请大家指点

Answer 1

function GetHostIP:string;
var
   wVersionRequested : WORD;
   wsaData : TWSAData;
   p : PHostEnt; s : array[0..128] of char; p2 : pchar;
begin
   try
      wVersionRequested := MAKEWORD(1, 1); //创建 WinSock
      WSAStartup(wVersionRequested, wsaData); //创建 WinSock
      GetHostName(@s,128);//取得主机名
      p:=GetHostByName(@s);//取得ip地址（非internet）
      p2 := iNet_ntoa(PInAddr(p^.h_addr_list^)^);
      Result:= P2;
   finally
      WSACleanup; //释放 WinSock
   end;
end;//如果是多个ip的话p^.h_addr_list会列举出来，你循环取就可以了。
//自己写会收获更多。