Indy10: Neuen Port auf Clientseite ermitteln?

[McMorton]

Hi.
Ich habe mal wieder eine Frage zu Indy 10
Wenn sich ein Client über einen bestimmten Port mit einem Server verbindet,
dann handelnd die beiden ja automatisch einen neuen Port aus.
Diesen kann man ja beim Server im OnConnect Event so abfragen:

Delphi-Quellcode:

procedure TServer.IndyConnect(aContext: TIdContext);
var
  aPort: Integer;
begin
  //Lies Port, über den sich verbunden wurde
  aPort := aContext.Binding.PeerPort;
end;

Wie kriege ich beim Client den neuen Port raus?
Dort gibt es die TIdContext Klasse nicht.
Das OnConenct Event sieht so aus:
procedure TClient.IndyConnected(Sender: TObject); Ich habe schon alles mögliche probiert, aber egal welches Port-Property ich vom IndyClient auslese, ich lese immer nur den ursprünglichen Port, über den die Verbindung erstellt wurde.

[ThomasGerstner]

Dein Server macht ein Listen auf dem PORT XXXX, den du vergeben hast.
Der Client meldet sich mit einer PORT-Nummer beim Server an und bekommt von diesem
den nächsten am Server frein PORT zurück.

Ich würde mal vermuten, dass das, was du ausliest schon korrekt ist.
Warum sollte der Client einen anderen PORT zugewiesen bekommen ?
(Vielleicht verstehe ich da ja was falsch)

Gruß
Thomas

[McMorton]

Ich möchte aber den neuen vom Server zugewiesenen Port beim Client wissen.

In etwas so:
Der Server lauscht auf Port 2000
Ein Client sendet eine Verbindungsanfrage an Port 2000
Der Server weißt einen neuen Port für die Kommunikation zu zb. 2001.
Beim Server kann man diesen Port (2001) nun auslesen.
Wie kriege ich beim Client raus, das der neue Port nun 2001 ist?

[Peter Wolf]

Hallo McMorton,

übermittle halt einfach die Info vom Server zum Client, die Verbindung steht ja schon.

Grüße
Peter

[ThomasGerstner]

TCPSender.Socket.Binding.PeerPort liefert bei mir den Port 9999 (Listen) am Server
TCPSender.Socket.Binding.Port liefert den ausgehandelten

Gruß
Thomas

[supermuckl]

und überprüfen kannst du das alles mit einem paketsniffer
da stehen dann alle source und desination ports drin

[McMorton]

Vielen Dank

TCPSender.Socket.Binding.PeerPort

Das war genau was ich suchte.

Hab auch gleich ne neue Frage. Habe dafür aber einen neuen Thread aufgemacht