將某一主機域名解析為IP地址

將某一主機域名解析為IP地址。
　　使用 WinSock 單元；
　　過程如下：
　　function HostToIP(Name: string; var Ip: string): Boolean;
　　var
　　  wsdata : TWSAData;
　　  hostName : array [0..255] of char;
　　  hostEnt : PHostEnt;
　　  addr : PChar;
　　begin
　　  WSAStartup ($0101, wsdata);
　　  try
　　    gethostname (hostName, sizeof (hostName));
　　    StrPCopy(hostName, Name);
　　    hostEnt := gethostbyname (hostName);
　　    if Assigned (hostEnt) then
　　      if Assigned (hostEnt^.h_addr_list) then begin
　　        addr := hostEnt^.h_addr_list^;
　　        if Assigned (addr) then begin
　　          IP := Format ('%d.%d.%d.%d', [byte (addr [0]),
　　          byte (addr [1]), byte (addr [2]), byte (addr [3])]);
　　          Result := True;
　　        end
　　        else
　　          Result := False;
　　      end
　　      else
　　        Result := False
　　    else begin
　　      Result := False;
　　    end;
　　  finally
　　    WSACleanup;
　　  end
　　end;

　　 

　　測試時請在在線狀態。

　　測試代碼：
　　var
　　IP: string;
　　DNS: string;
　　begin
　　  DNS := InputBox('輸入DNS域名', '主機名稱：', ');
　　  if HostToIp(DNS, IP) then showmessage(IP);
　　end;