Hallo zusammen,
ich habe mir ein einfaches Programm geschrieben ,was nach einem Klick auf den entsprechenden Button die aktuelle
IP-Adresse aus einer
URL ausliest und es in einem Edit-Feld anzeigt. Der Code (auszugsweise) lautet folgendermaßen:
Delphi-Quellcode:
try
// Edit-Feld löschen
Edit_myIP.Text := '
';
// IP-Adresse holen
ip := idhttp.Get('
http://checkip.dyndns.com');
// IP-Adresse aus Antwort filtern
ip := copy(
ip, pos('
Address:',
ip)+9, Length(
ip));
ip := copy(
ip, 1, pos('
<',
ip)-1);
edit_myip.Text :=
ip;
except
MessageDlg('
Fehler beim Abrufen der IP-Adresse!', mtError, [mbOk], 0);
end;
Das Problem ist nun, daß das Programm auf meinem PC einwandfrei läuft. Auf dem PC meiner Schwester sowie auf einem anderen PC (beide ohne Delphi, WinXP) funktioniert es nicht und es wird mit dem o.g. Fehler abgebrochen. Könnte einer ahnen, woran das liegen könnte? Ach so, auch bei deaktivierter Firewall funktioniert es nicht, falls diese Frage kommen sollte
SCRaT