gespeichert sind sie hier
IdTCPServer1.Threads
und senden kannst vereinfacht dargestellt so:
Delphi-Quellcode:
procedure TForm1.IdTCPServer1Execute(AThread: TIdPeerThread);
begin
AThread.Connection.WriteLn('Hallo Client');
end;
oder so
Delphi-Quellcode:
procedure TForm1.Button1Click(Sender: TObject);
var i: integer;
LThreads: TList;
begin
LThreads := IdTCPServer1.Threads.LockList;
try
for i := 0 to LThreads.Count - 1 do
begin
with TIdPeerThread(LThreads[i]) do
begin
WriteLn('Hallo Client');
end;
end;
finally
IdTCPServer1.Threads.UnlockList;
end;
end;
Gruß
guste