Zitat von
stoxx:
1000 Dank ! funktioniert super
nur eine Frage noch, warum kommen immer gleich 3
IP Adressen ?
bei
DP z.B.
81.209.184.99
62.141.48.136
62.141.49.157
nutze den DNS Server der Deutschen Telekom '194.25.2.131'
IP 2 und 3 sind die Adressen der für die Domain authoritiven DNS-Server aus der "Additional Section" der DNS-Antwort...
mittels folgender Erweiterung werden nur noch die Adressen von Records verwendet, deren Name mit der Anfrage übereinstimmen:
Delphi-Quellcode:
...
if (idDnsResolver.QueryResult.Items[I] is TARecord) and (SameText(Address,idDnsResolver.QueryResult.Items[I].Name)) then begin
A := (idDnsResolver.QueryResult.Items[I] as TARecord);
Result := Result + A.IPAddress + ',';
end;
...