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

markieren

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

markieren

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]

Internet-IP via IdHTTP und checkip.dyndns.org

Internet-IP via IdHTTP und checkip.dyndns.org

Forumregeln