Tracert alternativ mit Indy möglich?

[Rolf Frei]

Tracert brauchst du nicht. Du kannst da einfach eine DNS Abfrage machen. Diese ist auch bei Indy dabei. (TidDNSResolver) Dazu ist ja DNS da um Namen in die entpsrechende IP aufzulösen. Tracert macht nichts anderes als zuerst mal den Namen in die IP per DNS Server aufzulösen und damit arbeitet es dann weiter.

Um die IP zu bekommen musst den A-Record abfragen.

[Harry Stahl]

Zitat von Rolf Frei:

Tracert brauchst du nicht. Du kannst da einfach eine DNS Abfrage machen. Diese ist auch bei Indy dabei. (TidDNSResolver) Dazu ist ja DNS da um Namen in die entpsrechende IP aufzulösen. Tracert macht nichts anderes als zuerst mal den Namen in die IP per DNS Server aufzulösen und damit arbeitet es dann weiter.

Um die IP zu bekommen musst den A-Record abfragen.

Danke Dir für die ergänzende Antwort. Obwohl ich das ja nicht mehr brauche (weil die TCP/IP-Client-Komponente das selber macht), dennoch die Frage, wie man den TidDNResolver dafür richtig einsetzt.

Hast Du ein Code-Schnipsel dafür?

[Rolf Frei]

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.