ich hab auch son code aber der sieht einfacher aus
Delphi-Quellcode:
function GetRouterIP(http: TIdHttp):
string;
var s:
string;
begin
try
s:=http.Get('
http://gekmihesg.i-networx.de/ip.php');
result:=trim(copy(s,pos('
Your IP: ',s)+9,15));
if result = '
'
then
result:='
0.0.0.0';
except
result:='
0.0.0.0';
end;
end;