Mailabruf mit IPv6 geht nicht

[skoschke]

Ich habe mir eine Funktion zum Auslesen der IP gemacht, in der Hoffnung, damit die richtige Einstellung für den IdSSLIOHandlerSocketOpenSSL zu finden:

Delphi-Quellcode:

procedure TForm3.Button2Click(Sender: TObject);
var
  IPs: TStringList;
  IDStack : TIdStack;
begin
  IPs := TStringList.Create;
  try
    IDStack := TIdStack.Create;
    IDStack.IncUsage;
    IPs.Assign(TStringlist(GStack.LocalAddresses));
    Memo1.lines := IPs;
  finally
    IPs.Free;
    IDStack.Free;
  end;
end;

Unter Windows bekomme ich die richtige, von der Fritzbox zugewiesene Adresse
Aber unter Android (und genau da brauche ich das) liefert das nur 127.0.0.1 zurück, egal ob ich im WLAN oder im mobilen Netz verbunden bin!

Bitte helft mir !

Ciao
Stefan

[Klaus01]

.. ist zwar schon etwas älter aber vielleicht deutet es einen Lösungsweg an:
https://stackoverflow.com/questions/...ifi-ip-address

Grüße
Klaus

[PaPaNi]

Ist es nicht das gleiche Problem?

https://github.com/IndySockets/Indy/issues/205

[skoschke]

Das Fix ist beschrieben als "Substitute for TIdStackVCLPosix.GetLocalAddressList", aber was hat VCL mit Android zu tun?

Ciao
Stefan

[Klaus01]

.. ist vielleicht für beide Systeme VCL und Posix - Posix klingt nach Linux.

Grüße
Klaus

[skoschke]

Ich habe im Netz eine weitere Variante gefunden, welche die IP auslesen können soll, nur meckert der Compiler bei

Result := '255.255.255.' + (%11111111 shr NCode).ToString "Ungültiges Zeichen in Eingabedatei '%'

Ich sehe da aber keinen Fehler!

Ciao
Stefan

[Klaus01]

vielleicht so?

Result := '255.255.255.' + ($FF shr NCode).ToString Was ist denn NCode?

Grüße
Klaus