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
37
38

{$mode objfpc}
{$h+ }
 
{ test reverse host resolve }
 program testrhre;
 
uses resolve,sysutils,Sockets;
 
Var  I : integer;
  S : String;
 
 
begin  If (ParamCount>0) then
    S:=Paramstr(1)
  else
    S:='212.224.143.202';
  With THostResolver.Create(Nil) do    try
      If Not AddressLookup(S) then
        Writeln('Lookup failed : ',LastError)
      else
        begin        Writeln('Name          : ',ResolvedName);
        Writeln('Addres        : ',AddressAsString);
        Writeln('Address count : ',AddressCount);
        For I:=0 to AddressCount-1 do
          Writeln('Adress ',I:2,'     : ',HostAddrToStr(Addresses[I]));        Writeln('Alias count   : ',AliasCount);
        For I:=0 to AliasCount-1 do
          Writeln('Alias ',i:2,'  : ',Aliases[I]);
        end;
    finally       Free;
    end;
end.