Aktuele (I-net) IP anzeigen

[misterx]

hi
brauche irgendwas um die Aktuele (I-net) IP anzeigen zu lassen
habe schin gesucht aber nichts gefunden bis auf das, funks aber net mehr kann mir da einer weiterhelfen?
http://www.delphipraxis.net/internal...ct.php?t=51079

[Balu der Bär]

Delphi-Quellcode:

function GetIpAddress: string;
var phoste: PHostEnt;
  Buffer: array[0..100] of char;
  WSAData: TWSADATA;
begin
  result := '';
  if WSAStartup($0101, WSAData) <> 0 then exit;
  GetHostName(Buffer, Sizeof(Buffer));
  phoste := GetHostByName(buffer);
  if phoste = nil then result := '127.0.0.1'
  else result := StrPas(inet_ntoa(PInAddr(phoste^.h_addr_list^)^));
  WSACleanup;
end;

Sollte dies mit einem Router nicht funktionieren wäre es das einfachste und schnellste auf webbasierte Dienste (wie whatsmyip.org) zuzugreifen und dessen Daten auszuwerten.

[Klaus01]

..oder wenn Du die Indys installierst hast -> idIPWatch

.. habe gerade gemerkt, dass dies Dir nicht viel weiterhelfen wird, sorry.

Delphi-Quellcode:

function GetIPString : string;
var
  RespText  : string;
  YourIPPos : integer;
  CopyLoop  : integer;
  IPText    : string;
  IDHTTP    : TIdHTTP;
begin
  IPText := '';
  IDHTTP := TIdHTTP.Create(nil);
  try
    // Need to set up proxy here if you're using one ...
    RespText := IDHTTP.Get('http://www.whatismyip.com/');
    YourIPPos := Pos('Your IP is ', RespText);
    for CopyLoop := YourIPPos + strlen('Your IP is ') to length(RespText) do
    begin
      if not (RespText[CopyLoop] in ['0'..'9', '.']) then break;
      IPText := IPText + RespText[CopyLoop];
    end;
  finally
    IDHTTP.Free;
  end;

  Result := IPText;
end;

Basierend auf den Vorschlag von Balu der Bär.

Grüße
Klaus