Zitat von
inherited:
Das is so ne sache... ich hab das so gelöst (Kannst gerne n verweis an mich in deinem prog hinterlassen und ich will 40% der Einnahmen
)
Wird im Client eingesetzt und mit übertragen. Außerdem brauchst du ein TIdHTTP
CurrIP:=copy(idhttp1.get('http://checkip.dyndns.org'),pos(':', idhttp1.get('http://checkip.dyndns.org'))+1,length(idhttp1.get('http://checkip.dyndns.org'))); Das in die CodeLib
Ist da keinem Aufgefallen, daß für eine
IP gleich 3-mal bei dyndns.org angefragt wird?
Delphi-Quellcode:
S := IdHttp1.Get('http://checkip.dyndns.org');
CurrIP := Copy(S, Pos(':', S) + 1, Length(S));
Oder ein Prozeduraufruf weniger,
Delphi-Quellcode:
S := IdHttp1.Get('http://checkip.dyndns.org');
CurrIP := Copy(S, Pos(':', S) + 1, 99); // ach, ich liebe die 99 ^^
weil eigentlich wäre es ja so "richtiger" (es wurde ja eh nicht die wirkliche Länge berechnet)
Delphi-Quellcode:
S := IdHttp1.Get('http://checkip.dyndns.org');
CurrIP := Copy(S, Pos(':', S) + 1, Length(S) - Pos(':', S));
PS: ich nehm och so um die 30%.