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]