Zitat von
inherited:
@himitsu: hinter dem ':' ist noch ein ' '! ^^
Delphi-Quellcode:
S := IdHttp1.Get('http://checkip.dyndns.org');
CurrIP := Copy(S, Pos(':', S) + 2 {2 nich 1}, Length(S) - Pos(':', S));
Na OK, dann halt nur noch 15% .. teilen wir halt -.-''
Tut mir ja Leid, aber ich wußte ja nicht, daß da +2 hin muß, da ich nicht wußte was vor der
IP noch alles rumgammelt und im "Originalcode" auch +1 drinsteht ... was übrigens auch in dem Codelibvorschlag so ist, wie ich jetzt sah (vielleicht sollte man dort mal was ändern).
PS: wenn AThread eine Verbindung dahin hat, dann muß der natürlich auch die Adresse von da drüben kennen (vermutlich wie Florian schon meinte - AThread.Connection.Bindings.PeerIP), ansonsten kann man zwar versuchen die
IP der Internetverbindung auszulesen, was aber z.B. in meinem Fall eh nichts hilf, da ich daheim hinter 2 Routern sitze und mein PC demnach eine andere
IP hat, als es im INet den Anschein hat ... demnach kann man also in solcheinem Fall (wo man noch keine "direkte" Verbiindung hat, nur über einen externen Aufruf die
IP abfragen.