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;