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 !
