Frage zu Indy Bindings (Keiner ne Idee?)

[guste]

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