Programm mit idHTTP geht nur auf meinem PC!?!

[scrat1979]

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

[Christian Seehase]

Moin Scrat,

Zitat von scrat1979:

...und es wird mit dem o.g. Fehler abgebrochen.

als die Abkürzung o.g. bedeutet für mich: oben genannten.

Du hast aber keinen genannt

Vielleicht solltest Du mal, zum Testen, auf den try/except-Block verzichten, damit die tatsächliche Meldung angezeigt wird.

[scrat1979]

Oh, sorry. Mit Fehler meinte ich nur die Fehlermeldung (MessageDlg).
Die Exception lautet "idHTTPProtocolException" und kommt wie gesagt nur auf anderen PCs vor. Auch die EXE-Datei läuft bei mir übrigends tadellos.