Entwickler-Ecke

Internet / Netzwerk - TServerSocket Text an alle senden


F.Art - Mo 03.10.05 12:23
Titel: TServerSocket Text an alle senden
So sende ich zu Anschluß 0 den Text
Server.Socket.Connections[0].SendText
aber ich möchte den gleichen Text an alle senden.
Wie bekomme ich das hin?


TM - Mo 03.10.05 13:24

Hi,


Delphi-Quelltext
1:
2:
3:
4:
For i:=0 to Server1.Socket.ActiveConnections-1 do begin
 with Server1.Socket.Connections [i] do
  if (Connected) then SendText('blabla');
end;


..


F.Art - Mo 03.10.05 14:25

Funkt so.

Wieviel Clients kann eigendlich der TServerSocket verwalten?

Nun möchte ich noch im Sever die Usernamen und die IPs in eine Liste hinterlegen.
Und auch einzelne User kicken können.
Wie realisiere ich das?