Delphi-PRAXiS - Delphi Programm funktioniert nicht mehr

Delphi-PRAXiS (https://www.delphipraxis.net/forum.php)

- Netzwerke (https://www.delphipraxis.net/14-netzwerke/)

- - Delphi Programm funktioniert nicht mehr - kurioses Routerproblem (https://www.delphipraxis.net/47736-programm-funktioniert-nicht-mehr-kurioses-routerproblem.html)

Programm funktioniert nicht mehr - kurioses Routerproblem

Hi,

also ich hab gestern ein kurioses Problem bekommen. Gegen Mittag führte ich mein Programm aus, welches über folgende Funktion verfügt:

Delphi-Quellcode:

			
function GetOwnIP : String;

var WebAddress, IPVar : string;

begin

 WebAddress   := 'http://checkip.dyndns.org/';

  try

    frmMain.NMHTTP1.Get(WebAddress);

  except

  end;

  frmMain.Memo1.Text     := frmMain.NMHTTP1.Body;

  frmMain.Memo1.SelStart := 0;

  IPVar := StringReplace(frmMain.Memo1.Text , '<html><head><title>Current IP Check</title></head><body>Current IP Address: ', '', [rfReplaceAll]);

  Result := Copy(IPVar,0, Pos('</body></html>', IPVar)-1);

end;

Hierbei lese ich die IP Adresse aus dem Internet aus. Hatte bis gestern Mittag auch funktioniert, aber auf einmal ging nichts mehr. Ich hab nichts geändert oder gemacht.

Zur Problemlösung:
Ich habe einen Router, der mir die letzten Tage ein paar Probleme gemacht hat, aber ich dachte er funktioniert wieder. Nun kommt folgende Fehlermeldung, wenn ich den o.g. Code ausführe:

Code:

Host-Lookup fehlgeschlagen.

Im Debugger wird die Zeile frmMain.NMHTTP1.Get(WebAddress); fett markiert.

Ich habe dann mein DSL Modem direkt an meinen PC angeschlossen um den Router zu umgehen. Auch hier kommt nun diese Fehlermeldung. Ich weiss nun nicht mehr weiter. Firewalls habe ich keine, auch die von Windows ist ausgestellt.

Das kuriose:
Wenn ich das Programm auf dem anderen Rechner, der an dem Router hängt, starte, funktioniert alles!

Ich hoffe mir kann jemand weiterhelfen.

Gruß Yheeky