Tracert alternativ mit Indy möglich?

[Harry Stahl]

Ich muss eine dynamische Internet-Adresse (IP4) ermitteln, die für einen Fritzbox-Router eingerichtet wurde.

Das kann ich z.B. in einer CMD-Konsole machen, per:

tracert -4 dasistdername.myfritz.net

Gibt es hier irgendeine Möglichkeit das Alternativ mit den Indy-Komponenten zu machen, ohne dass ich einen externen Webdienst dafür aufrufen muss?

[himitsu]

TIdTraceRoute ?

https://entwickler-ecke.de/topic_api...t_41030,0.html
https://stackoverflow.com/questions/...-tidicmpclient
https://stackoverflow.com/questions/...p-using-delphi
http://www.delphigroups.info/2/94/195788.html

https://github.com/tinydew4/indy-pro...RouteMainU.pas
https://borland.public.delphi.intern...-tidicmpclient


Aber wozu Trace (die ZielIP und alle ZwischenRouter auflisten) anstatt einfach nur den Namen aufzulösen?

Gut, für PING (ICMP-Echo-API Typ8 aka "Echo Request") muß im Ziel ein entsprechender Dienst laufen, welcher darauf reagiert und dir antwortet (ICMP Typ0 Echo Reply).
NSLOOKUP geht nur, wenn du daheim ein DNS betreibst. (aber vermutlich macht die FritzBox das)
GetAddrByName GetAddrInfo
GetAddrByName GetAddrInfo
https://learn.microsoft.com/de-de/tr...lve-host-names

[Harry Stahl]

Also am Ziel läuft ein Programm mit einer TCP/IP Server Komponente. Damit möchte ich mich halt mit einer TCP-IP-Client-Komponente von extern über das Internet verbinden, aber die Client-Komponente erwartet ja eine IP-Adresse (gut, im lokalen Netz geht es auch mit dem Rechnernamen, aber über das internet muss ich die IP-Adresse verwenden).

Vielen Dank für die Links, aber z.B. der letzte von Dir genannte Link (https://borland.public.delphi.intern...-tidicmpclient) bleibt ja ohne Lösung. Der GitLink führt zu einer ca. 270 Zeilen langen unit, wo mir nicht so recht klar ist, was oder wie ich das hier verwenden könnte.

Ich hoffte, es gäbe hier evtl. eine einfache, kurze Lösung. So nach dem Motto: In Indy-Komponente den "Namen" (dasistdername.myfritz.net) der IP-Adresse eingeben, connecten und dann aus den Eigenschaften irgendwo die IP4-Adresse auslesen können...

[himitsu]

Ahhh, also willst du die öffentliche IP wissen. (das "myfritz.net" falsch gelesen ... hatte es als den lokalen Name der FritzBox gesehn)

* Nja, du könntest über die API mit der FritzBox reden und sie nach dieser IP fragen.
* Oder du brauchst irgendeinen einen externen Dienst/Server, welcher dir die IP nennt, von welcher du darauf zu greifst.
* Das kann auch ein PHP-Script auf deinem eigenem WebServer sein, bzw. TIdTCPServer (z.B. wenn man es oft macht und keine Angst haben will andere Dienste "illegal" zu oft zu nutzen)
* Oder z.B. http://checkip.dyndns.org oder http://ipinfo.io/ip oder http://www.findipinfo.com oder http://ipinfo.io/json oder whatismyip.com oder ...
* oder wenn, warum dann nicht direkt DynDNS benutzen? (also dasistdername.myfritz.net anstatt der IP)

https://www.ip-phone-forum.de/thread...itteln.301072/ (curl, wget, TIdTCPClient, ...)
https://fritzconnection.readthedocs....urces/api.html
http://www.apfel-z.net/artikel/Fritz...via_curl_wget/

https://www.delphipraxis.net/91253-o...ermitteln.html
https://stackoverflow.com/questions/...c-ip-in-delphi
https://entwickler-ecke.de/topic_Int...n_74581,0.html
https://forum.lazarus.freepascal.org...?topic=17506.0

[Harry Stahl]

Na, spezielle Fritzbox-Api geht nicht, andere haben vielleicht einen anderen Router.

Aber ja, ich möchte die öffentliche IP-Adresse des Routers, egal ob DnyDNS oder die von der Fritzbox-DNS.

Und die Lösung sollte halt möglichst nicht irgendwelche Windows-Spezifika nutzen, sondern reines Indy, so dass ich das Cross-Plattform einsetzen kann.

[himitsu]

Jupp. Und für viele Teile der API brauchst dann auch noch die Zugangsdaten der FritzBox.

OK, also siehe Punkte 2-4,
bzw. die letzte Linkliste.

[jaenicke]

Zitat:

Zitat von Harry Stahl (Beitrag 1522766)

aber die Client-Komponente erwartet ja eine IP-Adresse (gut, im lokalen Netz geht es auch mit dem Rechnernamen, aber über das internet muss ich die IP-Adresse verwenden).

Wie kommst du denn darauf? Du gibst dort einen Host an. Das kann wie du schon gesagt hast der Rechnername oder die IP sein. In deinem Fall gibst du dort einfach dasistdername.myfritz.net an und das war es.

[Harry Stahl]

@jaenicke:

Nein, die Eingabe des Namens funktioniert nicht, habe ich natürlich ausprobiert.

Der Fritzbox-Name ist ja eine https-Adresse, keine Ahnung, ob es daran liegen könnte. Meine TCP/IP Client und Serverkomponenten haben aber keine https Unterstützung.

[himitsu]

Nur den Servername benutzt?
Ohne protokoll:// , :port usw.

Ja, es gibt Komponenten, welche nur die IP haben wollen, aber TIdTCPClient uvm. verstehen "normal" sowas.

[Harry Stahl]

@jaenicke:

Du hast doch recht. Ein blöder Tippfehler (die Namen sind ja fürchterlicher Buchstabensalat), mit dem richtigen Namen funktionierts.

Sorry für den Aufwand um nichts...

[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:

Zitat von Rolf Frei (Beitrag 1522894)

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.