Mortal-Shadow - Sa 22.11.08 15:44
Titel: serversocket.disconnect
Nun wenn der event ausgelöst wird:
Delphi-Quelltext
1:
2:
| procedure TFrmMain.ServerSocket1ClientDisconnect(Sender: TObject;
Socket: TCustomWinSocket); |
Wird ja der Socket übergeben.
Gibt es eine Möglichkeit, wenn x - Verbindungen offen waren, möglichst einfach herauszufinden, welche Nummer diese Verbindung hatte.
(Ich habe jeder Verbindung einen Empfang-buffer zugeteilt - welchen muss ich löschen.)
Narses hat es in seinem Tutorial so gemacht, dass er jede neue Verbindung in eine Listbox geschrieben hat, und dann mit
Delphi-Quelltext
1:
| i := Clients.Items.IndexOfObject(Socket); |
herausgefunden hat, welche Verbindung sich getrennt hat.
(i war ein Integer-Wert, Clients der Name der Listbox).
Aber geht das auch einfacher?