Server disconnectet Client

[PierreB]

Hi,

nach langem probieren habe ich es jetzt geschafft !
Sobald sich ein User einloggt, wird der Nick mit in der ListBox angezeigt !
Hier der Source:

Code:

procedure TForm1.ServerSocket1ClientConnect(Sender: TObject;
  Socket: TCustomWinSocket);
var
wert, wert1, ib : integer;
begin
edit10.text := 'User eingeloggt: ' + IntToStr(ServerSocket1.Socket.ActiveConnections);
lTemp := Socket.RemoteHost + '  ' + Socket.RemoteAddress;
timer2.Enabled := true;
end;

Sobald sich ein User einloggt, geht der Timer "an". Und im Timer passiert folgendes:

Code:

procedure TForm1.Timer2Timer(Sender: TObject);
begin
if nick <>'' then begin
                  nick:=Copy(nick, 1, 6);
                  test := ltemp + ' ' + nick;
                  ListBox1.Items.AddObject(test, ServerSocket1);
                  timer2.Enabled := false;
                  end;
end;

Sobald ein Client etwas sendet wird die Nachricht abgefangen und das Item der ListBox zugefügt.

Nun gibt es wieder ein neues Problem:
Das User kicken funktioniert jetzt nicht mehr !
Fehlermeldung: Ungültige Typumwandlung.

Dabei hat sich doch eigentlich nix verändert, außer der Wert der in die ListBox eingetragen wird !

Echt schlimm: ein Problem gelöst, kommt ein neues !