Chatserver mit TServerSocket

[Capa]

??? Hier steht die Frage in diesem Thread ???

Delphi-Quellcode:

procedure TUserlist.Broadcast(text: string; Socket: TServerSocket);
  var a: integer;
begin
  for a := 0 to socket.Socket.ActiveConnections-1 do
  begin
    if (a <= socket.Socket.ActiveConnections-1) then
      socket.Socket.Connections[a].SendText(text);
  end;
end;

Mit diesem Code hab ich immo folgendes Problem wenn zum bsp mehrere clients gleichzeitig
disconnecten dann tut der ja eine nachricht an ALLE clienten schicken leider auch an die
die mit disconnecten. Das ist der Grund warum ich eine Fehlermeldung bekomme.
Hab gehofft das wenn ich diese abfrage mache das es dann nicht mehr kommt aber irgendwie
klappt das nicht.

Weiß vielleicht einer wie ich das lösen kann ohne eine fehlermeldung zu bekommen ?

is halt nur schwer weil ich ja schon nen error bekomme wenn ich mit
 if (socket.socket.Connections[a].Connected) then ... das ganze abfragen will.





Ebenso hab ich ein Problem damit wenn ich mein Programm starte und die downloads die ich zur
verfügung stellen will sind auf form3.listview1 dann muss ich erst form3.show machen bevor
ich die liste auf dieser form überhaupt erstmal auslesen kann.