Zitat von thetrue:

ich meine nicht die IP von einem domian/dns lesen, sondern von dem client der verbunden hat

Dazu müsstes du dich mal etwas genauer ausdrücken: Welche Komponente(n) benutzt du genau? Wie stellst du die Verbindung her? etc.

Grüße
Faux

der server ist mit Indy und arbeitet mit Threads

Zitat von thetrue:

der server ist mit Indy und arbeitet mit Threads

Hast du schon mal in Delphi auf den Tab Indy-Server geklickt? Da gibts einige.

Grüße
Faux

na ist halt der TidTCPServer

http://www.google.com/search?hl=en&l...ip&btnG=Search

Grüße
Faux

aha, glaubst du ich wäre net drauf gekommen?

da ist nichts zu gebrauchen

Zitat von thetrue:

aha, glaubst du ich wäre net drauf gekommen?

da ist nichts zu gebrauchen

Dann bist du ja sicherlich auch auf das erste Suchergebnis gestoßen: http://delphi.newswhat.com/geoxml/fo...ps.borland.com und hast auch sicherlich das gelesen:

Zitat:

Flavio Tobias wrote:

> How to get client IP address connected on IdTCPServer?
>
> Thanks
> Flavio

Use the thread's Connection.Socket.Binding.PeerIP property

Regards,
Bruce McGee
Glooscap Software

Grüße
Faux

nja,ist net das erste ergebnis

aber thx

mfg thetrue

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?

markieren

Delphi-Quellcode:

S := IdHttp1.Get('http://checkip.dyndns.org');
CurrIP := Copy(S, Pos(':', S) + 1, Length(S));

Oder ein Prozeduraufruf weniger,

markieren

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)

markieren

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%.

Klickst du immer nach einer Google-Suche nur auf das erste ergebnis?
Das funzt allerdings nur im NETZWERK. Wenn du die Inet-IP haben willst wirst du wohl oder übel meinen Code benutzen müssen und dann dem server die eigene ip mitteilen
@himitsu: guck mal in das Thema in der Spalte "Codelib-Vorschläge".