nachricht an alle clients senden

[wodkadoctors]

Delphi-Quellcode:

procedure TForm1.ServerClientRead(Sender: TObject; Socket: TCustomWinSocket);
 var Nachricht : String;
 i: Integer ;
  begin
    Nachricht := Socket.ReceiveText;
    MessageMemo.Lines.Add (Nachricht);
    i:=0;
     while i < connected do
      begin
       Server.Socket.Connections[i].SendText (Nachricht);
       i := i + 1;
      end
  end;

procedure TForm1.ServerClientConnect(Sender: TObject; Socket: TCustomWinSocket);
begin

connected + 1;
end;

procedure TForm1.ServerClientDisconnect(Sender: TObject;
  Socket: TCustomWinSocket);
begin
connected - 1 ;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
connected := 0;
end;

ich möchte das immer wenn mein server einen nachricht von einem client erhält diese nachricht
an alle clients gesendet wird aber das was ich da oben gemacht habe läuft nicht dazu bräuchte ich nun hilfe

[PierreB]

Versuche mal folgendes (nicht getestet):

Delphi-Quellcode:

txt := Socket.ReceiveText;
for i := 0 to Server.Socket.ActiveConnections-1 //oder for i:=0 to Server.Socket.Connections-1
do Server.Socket.Connections[i].SendText(txt);

[wodkadoctors]

jo funktioniert danke