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.

[BUG]

Zitat von Daniel:

Dieser Code stammt NICHT von mir, Remy Lebeau hat ihn auf stackoverflow veröffentlicht.

Da wäre wohl ein Link angebracht
Ich nehme mal an, diese Antwort ist es.

[Daniel]

Eine Sache ist mir dabei noch unklar:

Wenn ich im Mac OS X einen Terminal öffne, wird mir der Hostname mit "lappy.fritz.box" abgezeigt. "lappy" ist mein Laptop und hängt aktuell per WLAN an der Fritz-Box. Ein Ping auf "lappy.fritz.box" wird mit "unknown host" beantwortet. Ein Ping auf "fritz.box" geht tadellos und danach (!) geht auch ein Ping auf "lappy.fritz.box". Der oben genannten Code läuft hier nun fehlerfrei auf Win32, Mac OS X und iOS - wenigstens im Moment.

Alle beteiligen Geräte laufen schon seit Stunden und sind ebenso lang miteinander im Netzwerk verbunden. Andere Störfaktoren gibt es nicht - und ich kann aktuell nicht erklären, warum der Ping mal geht und mal nicht.

[mjustin]

Zitat von Daniel:

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.

Remy Lebeau hat in den heutigen Releaseinformationen zu Indy 10.6 geplante tiefgehende Änderungen im Bereich GetLocalIPAddress(es) beschrieben, die dieses Problem eventuell beheben:

Zitat:

The TIdStack.LocalAddress(es) properties will eventually be replaced
in a future release with a new TIdStack.GetLocalAddressList() method that
uses platform-appropriate native OS functions instead of reverse DNS lookups
to determine local IPs, differentiates between IPv4 and IPv6 addresses, and
reports local subnet masks and possibly subnet broadcast IPs.

[Mavarik]

ich bekommen auf iPad & iPhone immer den Fehler:
nodename nor servname provided, or not known(8)

Mavarik

[Daniel]

Okay, der Code greift sich den Hostnamen des Gerätes, auf dem er läuft und versucht dann, dessen IP zu ermitteln. Das ist der Knackpunkt: Wenn im lokalen Netzwerk so ein Name nicht aufgelöst werden kann, gibt es den beschriebenen Fehler.

[elvispresley]

Zitat von Daniel:

Okay, der Code greift sich den Hostnamen des Gerätes, auf dem er läuft und versucht dann, dessen IP zu ermitteln. Das ist der Knackpunkt: Wenn im lokalen Netzwerk so ein Name nicht aufgelöst werden kann, gibt es den beschriebenen Fehler.

und wie macht man das nun, damit das auf einem iphone funktioniert. wie bereits erwähnt funktioniert das auf dem simulator ohne probleme aber auf dem ios kommt die fehlermeldung.
hat jedmand den richtigen code, wie das auf dem gerät funktioniert?