4
{ test service resolve }
16
If (ParamCount>0) then
20
If (ParamCount>1) then
24
With TServiceResolver.Create(Nil) do
26
If Not NameLookup(S,P) then
27
Writeln('Lookup failed : ',LastError)
30
Writeln('Name : ',ResolvedName);
31
Writeln('Protocol : ',Protocol);
32
Writeln('Port : ',port);
33
Writeln('Aliases : ',AliasCount);
34
For I:=0 to AliasCount-1 do
35
Writeln('Alias ',i:2,' : ',Aliases[I]);