Indy TCP Problem.

[nuclearping]

Wenn ich recht entsinne so:

Delphi-Quellcode:

var
  cList: TList;
  Count: Integer;
begin
  cList := IdTCPServer.Contexts.LockList;
  try
    for Count := 0 to cList.Count -1 do
      with TIdContext(cList[Count]) do
        Connection.IOHandler.WriteLn ('...');
  finally
    IdTCPServer.Contexts.UnlockList;
  end;
end;