Wie bekomme ich meine eigene IP?

[Meflin]

Zitat:

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 ;-)

[Nonsense]

Zitat:

Zitat von MasterC

Hub / Switch

[klugscheiß]Nur, wenn diese einen DHCP Server besitzen.[/klugscheiß]

[freak4fun]

huhu :hi:

danke für eure hilfe! ich habs jetzt doch mit nem TCPServer (Sockets) gemacht da hab ich gefunden was ich wollte (NetzwerkID :gruebel: glaub ich :mrgreen: )

naja thx :zwinker: :dp:

mfg
freak

[MasterC]

Zitat:

Zitat von Meflin

Zitat:

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?

[freak4fun]

meine variante geht ohne inet, aber ist ja nur die netzwerkIP :!:

mfg
freak

[tommie-lie]

Verrätst du uns denn auch deine Variante? :zwinker:

[freak4fun]

Code:

Label2.Caption := TCPServer1.LocalHostName;
Label2.Caption := TCPServer1.LocalHostAddr;
Label13.Caption := TCPServer1.LocalDomainName;

mfg
freak

[Ultimator]

Wenn er doch aber keine Komponenten benutzen möchte? :gruebel:

[Neuni]

Dann hätte er diese Variante wohl nicht gewählt...schließlich hatte er nach einer Lösung gesucht!

[Ultimator]

Stimmt :oops: