4
{ test reverse host resolve }
8
uses resolve,sysutils,Sockets;
16
If (ParamCount>0) then
20
With THostResolver.Create(Nil) do
22
If Not AddressLookup(S) then
23
Writeln('Lookup failed : ',LastError)
26
Writeln('Name : ',ResolvedName);
27
Writeln('Addres : ',AddressAsString);
28
Writeln('Address count : ',AddressCount);
29
For I:=0 to AddressCount-1 do
30
Writeln('Adress ',I:2,' : ',HostAddrToStr(Addresses[I]));
31
Writeln('Alias count : ',AliasCount);
32
For I:=0 to AliasCount-1 do
33
Writeln('Alias ',i:2,' : ',Aliases[I]);