Hallo Dominik,
ich habe das mal mit einer minimal Konfiguration versucht.
Meine ClientList:
clientlist : TObjectList;
So füge ich Clients der Liste hinzu:
procedure TForm1.myOnConnect(aContext: TIdContext);
Delphi-Quellcode:
begin
//memo1.lines.add(aContext.Connection.Socket.BoundIP);
clientList.Add(aContext);
end;
und so schicke ich eine Meldung an die Clients:
Delphi-Quellcode:
procedure TForm1.Button1Click(Sender: TObject);
var
i: Byte;
begin
for i:=0 to clientList.Count -1 do
(clientList[i] as TidContext).Connection.IOHandler.Write('Halloooooo');
end;
und die kommt auch an.
Grüße
Klaus