Einzelnen Beitrag anzeigen

MasterC

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

Re: Wie bekomme ich meine eigene IP?

  Alt 20. Okt 2004, 10:31
Zitat von Meflin:
Zitat von MasterC:
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.
braucht er aber auch ne kompo dazu, und zwar idhttp, das wollte er doch nicht
Das sollte doch auch mit UrlDownloadtoFile gehen, oder?
Christian H.
www.Future-Coding.de
  Mit Zitat antworten Zitat