1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:

function HostToIP(Host:string): String;  //uses winsock
type
  TaPInAddr = array[0..10] of PInAddr;
  PaPInAddr = ^TaPInAddr;
var  
  list:Tstrings;
  phe: PHostEnt;
  pptr: PaPInAddr;
  I: Integer;  
  GInitData: TWSAData;
  Phostname:array[0..255]of char;
begin
  Phostname:='';
  for i:=0 to length(Host)-1 do
  begin  
    Phostname[i]:= Host[i+1];
  end;  
  WSAStartup($101, GInitData);
  list := TstringList.Create;  
  list.Clear;
  phe := gethostbyname(Phostname);
  if phe = nil then Exit;  
  pPtr := PaPInAddr(phe^.h_addr_list);  
  i    := 0;
  while pPtr^[i] <> nil do  
  begin
    list.Add(inet_ntoa(pptr^[i]^));  
    Inc(I);  
  end;  
  WSACleanup;
  result:='';  
  for i:=0 to list.Count-1 do  
  begin
    result:=result+list.Strings[i];
  end;
end;