Не дать накапливаться N кол-ву потоков в критической секции. Массив.

[HSR]

Доброго времени суток.
Ввожу в курс дела.

Есть код. В нем создан класс потока, в самом потоке происходят GET запросы(последовательно) и получают некую информацию, каждый новый поток запускается по таймеру, каждую секунду(например), и чтобы действия в потоке успевали выполняться полностью, не пересекаясь, я добавил критическую секцию, чтобы они вставали в очередь.

Если поставить таймер поменьше, то потоки начинают накапливаться!

Как не дать накапливаться N кол-ву потоков в критической секции?

Мне умный человек сказал - Это одномерный массив "thread:array [1..n] of longint;" - мне вот нужно ограничиться 5 потоками в очереди - thread:array [1..5] of longint;
Типо укажи размер массива.

Что-то я не понял как это реализовать?

[Rififi]

Тебе нужна не критическая секция а семафор.
или если мыслить более масштабно - сущность под названием "пул потоков"
про первое можно почитать у Рихтера, про второе - у гоогле.

[HSR]

Сообщение от Rififi

Тебе нужна не критическая секция а семафор.
или если мыслить более масштабно - сущность под названием "пул потоков"
про первое можно почитать у Рихтера, про второе - у гоогле.

Суть еще в том, что окно программы не должно тормозить при GET запросах, пробовал WaitFor - неподошло...
Вот мои куски из кода. Напишите плиз в исправленном виде.

//добавил новый класс
type
 TNewThread = class(TThread)
  Private

  Public
    Procedure Execute; override;
    constructor Create(CreateSuspended: boolean);
  end;

//Объявил переменную крит. секции
var
  StopItSynch:TCriticalSection;

//Создал крит.секцию
procedure TForm1.FormCreate(Sender: TObject);
begin
StopItSynch:=TCriticalSection.Create;
end;

constructor TNewThread.Create(CreateSuspended: boolean);
begin
inherited Create(CreateSuspended);
end;

//по таймеру вызываю поток
procedure TForm1.Timer1Timer(Sender: TObject);
var
 NewThread: TNewThread;
begin
 NewThread:=TNewThread.Create(false);
 NewThread.FreeOnTerminate:=True;
 NewThread.Priority:=tpLower;
 NewThread.Resume;
end;

//тело потока
procedure TNewThread.Execute;
var i:integer;
begin
StopItSynch.Enter; //Блокирует прочие потоки, когда вызывающий поток заходит в критическую секцию

for i:=0 to 1 do
  begin 
(всякие GET-запросы)
  end;
StopItSynch.Leave; //Позволяет другим потокам использовать критическую секцию.

При такой раскладке, программа НЕ ТОРМОЗИТ, но накапливаются потоки, и через час или два оперативки нехватит...(( И цель выполнять в процедуре Execute без метода Synchronize(процедура) - из-за него окно тормозит тоже...

[Stilet]

Стесняюсь спросить, а почему по таймеру?
Что за задача? Потоки для чего нужны?

[HSR]

Сообщение от Stilet

Стесняюсь спросить, а почему по таймеру?
Что за задача? Потоки для чего нужны?

Предположим, что нужно парсить погоду с сайта.
С потоками нашел только такой выход.

[Stilet]

Та ради бога, зачем в таймере кучу потоков создавать?
Создай один поток и порядок. Зачем несколько потоков для парсинга?

[HSR]

Сообщение от Stilet

Та ради бога, зачем в таймере кучу потоков создавать?
Создай один поток и порядок. Зачем несколько потоков для парсинга?

Тупанул наверное, просто нужно было сделать задержку(управляемую),
потом понял что можно в поток засунуть Sleep.

[Stilet]

Ну да. Чтоб проц не грузило, не можно а нужно