Wie bekomme ich meine eigene IP?

[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

[Nonsense]

Zitat von MasterC:

Hub / Switch

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

[freak4fun]

huhu

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

naja thx

mfg
freak

[MasterC]

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?

[freak4fun]

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

mfg
freak

[tommie-lie]

Verrätst du uns denn auch deine Variante?

[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?

[Neuni]

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

[Ultimator]

Stimmt