Server disconnectet Client

[PierreB]

hallo muetze1,

vielen dank für deine hilfe funzt alles wunderbar

warum bin ich da nicht selber drauf gekommen ?

jetzt hab ich nur ( ) noch ein problem:

da alle clienten dann in der listbox abgespeichert werden, steht da ja der host und die ip.
wenn nun aber mehrere clienten eingeloggt sind, weiß ich dann nicht mehr welcher listbox-eintrag
(also ip + host) nun zu welchem user gehört !

deshalb habe ich versucht den nicknamen mit in die listbox zu speichern:
Im ClientConnect steht:

Code:

 ClientSocket1.Socket.SendText(xorstring(nachricht, ''));

Nachricht setzt sich aus dem Nicknamen (den der User eingibt) und 'hat den Raum betreten' zusammen.
Da der Nickname eh nur 6 Zeichen haben darf, hab ich ihn wie folgt ausgelesen:

Code:

procedure TForm1.ServerSocket1ClientRead(Sender: TObject;  Socket: TCustomWinSocket);
var
   Texta, encode : string;
begin
texta := Socket.ReceiveText;
nick := xorstring(texta, '');
nick:=Copy(nick, 1, 6);
showmessage(nick);
end;

nun hab ich zwar den nicknamen im serverprogramm, doch wie bekomm ich den nun zu dem entsprechenden
host + ip eintrag in die listbox ?? hab schon versucht das mit bei OnClientConnect einzubauen,
aber da ClientRead ja erst nach OnClientConnect ausgeführt wird, funzt das net !