Client IP-Ausgabe im Server

[albert1985]

N'Abend,

Folgendes:

Ein Client verbindet sich zum Server und ich will nun, dass serverseitig die IP des Client
in eine Memofeld geschrieben wird.

Delphi-Quellcode:

procedure TForm1.IdTCPServer1Execute(AContext: TIdContext);
var 
  inhalt : string;
begin
  inhalt : AContext.Connection.IOHandler;
  with inhalt do
  if ReadLn('TRYCONNECTION') then
  hauptMemo.Lines.Add(client-ip soll hier angezeigt werden+'hat sich verbunden.');
end;

Wie wäre so etwas möglich und wenn es überhaupt möglich ist, wie liese sich das umsetzen ?
Geht das vielleicht auch ohne gesendete Strings und nur mit dem reinen "Verbindungsaufbau" ?

MfG Albert

[muRR]

Verwendet du bestimmte Komponenten?
Auf Basis der WinSock-API ist es möglich, allerdings möchte ich es jetzt nicht für dich verkomplizieren, wenn du bestimmte Komponenten verwendest.

[albert1985]

Ich verwende Indy (10) :) Aber wenn dir dazu nichts einfällt kannst du auch ruhig deinen Weg posten...
bringt mich vielleicht auch weiter !
MfG

[Flips]

Mit

Delphi-Quellcode:

procedure TForm1.IdTCPServer1Execute(AContext: TIdContext); 
begin
Memo1.Lines.Add(AContext.Binding.IP+' hat sich verbunden');
end;

solltest du die IP bekommen, geht bei mir jedenfalls so.
Wenn nicht, dann probier mal

Delphi-Quellcode:

procedure TForm1.IdTCPServer1Execute(AContext: TIdContext); 
begin
Memo1.Lines.Add(AContext.Connection.Socket.Binding.IP+' hat sich verbunden');
end;