Einzelnen Beitrag anzeigen

MasterC

Registriert seit: 9. Jan 2004
Ort: Krefeld
369 Beiträge
 
Delphi 2005 Personal
 
#6

Re: Wie bekomme ich meine eigene IP?

  Alt 18. Okt 2004, 18:01
Hi freak4fun,

Die Netzwerk IP teilt dir der Router bzw. Hub / Switch zu.

Falls du deine Internet IP haben willst benutze diesen Code:

Delphi-Quellcode:
function GetIPAdress: string;
var
  s: string;
begin
  try
    s:=idhttp1.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;
Den Code habe ich mal irgendwann hier im Forum gefunden. Anders geht es mit einer Firewall, bzw. Router leider nicht.

MFG Chris.
Christian H.
www.Future-Coding.de
  Mit Zitat antworten Zitat