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?