Delphi-Quellcode:
DNS:= TIdDNSResolver.Create(
nil);
try
DNS.Host := '
8.8.8.8';
// IP des DNS-Servers (8.8.8.8 ist der Google public DNS Server)
DNS.WaitingTime := 5000;
DNS.QueryType := [qtA];
try
DNS.Resolve('
fritzbox.domain.com');
// DynDNS Name
except
on E:
Exception do
begin
WriteLn(E.
Message);
end;
end;
for X:= 0
to DNS.QueryResult.Count-1
do
begin
if DNS.QueryResult[X]
is TARecord
then
WriteLn(TARecord(DNS.QueryResult[X]).IPAddress);
end;
finally
DNS.Free;
end;
Die
IP des DNS-Servers (Host) sollte am besten die vom ISP erhaltene sein. Die
IP der Fritzbox würde hier auch gehen, da dieser dann den vom ISP erhalten DNS Servers abfragt.