Internet-IP via IdHTTP und checkip.dyndns.org

[inherited]

Mithilfe von diesem Code kann die eigene Internet-IP herausgefunden werden.
Der Code greift dabei auf folgende Seite im Internet zu: http://checkip.dyndns.org

Delphi-Quellcode:

begin
var
  Temp: string;
begin
  Temp := IdHTTP1.Get('http://checkip.dyndns.org');
  IP := Copy(Temp, Pos(':', Temp) + 2, Pos('</bo', Temp) - Pos(':', Temp) - 2);
end;

Für den Fall dass die DynDNS-Seite nicht verfügbar ist, kann man sich eine PHP-Datei auf dem eigenen Server anlegen mit folgendem Inhalt (funktioniert natürlich nur, wenn der eigene Server PHP unterstützt; Tipp von alcaeus):

Code:

<?php echo((!empty($_SERVER['REMOTE_ADDR'])) ? $_SERVER['REMOTE_ADDR'] : ((!empty($_ENV['REMOTE_ADDR'])) ? $_ENV['REMOTE_ADDR'] : getenv('REMOTE_ADDR'))) ?>

In diesem Fall muss obiger Source natürlich angepasst werden, je nachdem wie die die PHP-Seite angepasst wurde.

[edit=Chakotay1308]Code formartiert, faux Verbesserungen eingefügt und Beitrag aufgefüllt. Mfg, Chakotay1308[/edit]