Die IP-Adresse des iPhone herausfinden

[Daniel]

Moin,


sollte jemand ein dringendes Bedürfnis verspüren - nämlich das, die IP-Adresse seines iPhones herauszufinden, wenn es sich in einem WLAN befindet, dann könnte folgender Code (Delphi XE4) hilfreich sein:

Delphi-Quellcode:

uses Idstack, IdGlobal;

procedure TForm2.Button1Click(Sender: TObject);
var
  gs : TIdStack;
  IPs: TStringList;
  IP: String;
  I: Integer;
  Err: Boolean;
begin
  TIdStack.IncUsage;

  IPs := TStringList.Create;
  try
    GStack.AddLocalAddressesToList(IPs);
    for I := 0 to IPs.Count-1 do
    begin
      IP := IPs[I];
      Memo1.Lines.Add( IP );

      IPv4ToDWord(IP, Err);
      if not Err then
        Break;
      IP := '';
    end;
  finally
    IPs.Free;
  end;
  if IP <> '' then
  begin
    Memo1.Lines.Add( IP );
  end;
end;

Ganz wichtig:
Dieser Code stammt NICHT von mir, Remy Lebeau hat ihn auf stackoverflow veröffentlicht.
Gegenwärtig läuft der Code NUR auf dem iOS-Gerät selbst, der Simulator, der die Netzwerk-Infrastruktur von Mac verwendet, liefert hier einen ungültigen Host-Namen. Man wird das wohl noch etwas eleganter ausprogrammieren können, aber o.g. Code stellt schon mal einen Anfang dar.