Client Server - Online Liste

[Hexla]

Huhu :)

Also ich habe folgendes Problem, wusste nicht ob es ganz hier rein gehört aber wenn nicht, einfach verschieben =)


Ich habe einen Client - Server Chat geschrieben, der eigentlich auch super funktioniert, aber nun will ich das ganze mit ner Übersicht der Verbindungen versehen.


Server (Hier kommen durch eine 2te Socket Verbindung die Usernamen an die vom Client gesendet wurden)

Delphi-Quellcode:

procedure TForm1.ServerSocket1ClientRead(Sender: TObject; Socket: TCustomWinSocket);
var
msg: String;
begin
msg := Socket.ReceiveText;
 if (msg[1] <> '!') then
 begin
 ListBox1.Items.Add(msg);
 end
 else
//Befehlskette wenn ! erscheint, dann eintrag löschen


end;

Das ist der Teil in dem alles in die ListBox geschrieben wird, was auch gut klapp. Nun gut, die Offline Meldung kriegt ich leider nicht so ganz hin das es gelöscht wird aber das ist ein anderes problem.


Server (Das ist der Teil indem ich einen Button sage er soll die Liste an Client 0 senden)

Delphi-Quellcode:

procedure TForm1.Button3Click(Sender: TObject);
begin
ServerSocket1.Socket.Connections[0].SendText(listbox1.Items.Text);
end;

Also jetzt habe ich, alleine zum Test mal einen Button erstellt der wie oben gesagt die Liste an den ersten verbundenen Clienten senden soll. Genau hier scheitert es schon!

Meldung: Listindex überschreitet das Maximum (0)


Wer ne Idee woran es liegen könnte?

[DeddyH]

Lass Dir mal

Delphi-Quellcode:

ServerSocket1.Socket.Connections.Count

ausgeben.

[Apollonius]

Das heißt ServerSocket1.Socket.ActiveConnections.

[Hexla]

Kommt 1 Heraus, also 1 Client verbunden, das ist ja eigentlich nicht das Problem, gefunden wird der Client auf jedenfall.

[Hexla]

Also wenn ich jetzt ne Schleife durchlaufen lasse die automatisch alle Clients anspricht funktioniert es einwandfrei, Verbindung ist da ...