TServerSocket Text an alle senden

F.Art · Beiträge: 434

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 · Beiträge: 74 Win xp D7 ET

Hi,

markieren

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;

..

_________________
Dieser Beitrag enthält keine Schreibfehler.
Das sind versteckte Hinweise.

F.Art · Beiträge: 434

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?

	Mitgliederliste
	Gruppen
	Das Team
	Richtlinien
	Synonyme