delphi中用socket解析域名获得IP地址

需引用WinSock单元

 

procedure TForm1.btn1Click(Sender: TObject); var WSAData:TWSAData; Socket1:TSocket; Addr:TSockAddr; Re:Integer; begin //初始化WinSock if (WSAStartup(MakeWord(2,0), WSAData) <> 0) then begin mmo1.Lines.Add('WinSock初始化失败！'); Exit; end else mmo1.Lines.Add('WinSock开始运行……'); mmo1.Lines.Add(inet_ntoa(PInAddr(gethostbyname('www.shufangzhai.com')^.h_addr_list^)^)); end;