Delphi IP auslesen -- Netzwerk

Thema durchsuchen

Ansicht

Themen-Optionen

IP auslesen -- Netzwerk

Ein Thema von Scorpion · begonnen am 4. Jan 2004 · letzter Beitrag vom 9. Jan 2004

Vorheriger Beitrag

Nächster Beitrag

gekmihesg

(Gast)

n/a Beiträge

Re: IP auslesen -- Netzwerk

6. Jan 2004, 19:13

ich hab auch son code aber der sieht einfacher aus

zusammenfalten · markieren

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;