Автоматическая очередь потоков

Posted by maloy under Заметки

Alter

Как сделать очередь, подобной Dоwnlоаd Маstеr?
Например:
_всего(Max) активных потоков разрешено ~5
_на запуск потоков всего ~15
_как освободилось место, запускаются следующие потоки, пока не закончатся те, которые отмечены на закачку

В реальном модуле потока используется sslHTTPCLi или idHTTP.
Интересует только очередь.

Аватар

Запустить первые 5. Поток сообщает о своем завершении — запускается следующий, если есть что запускать

eoln

Семафоры, ИМХО, самое то.
Код из Button3Click нужно вынести в отдельный поток и добавить туды семафоры. Примерно так

  
mySem := CreateSemaphore(nil, 4, 4, 'my_unikal_name_7523457374');//глобальная переменная
  if VST1.RootNodeCount <= 0 then Exit;
  aNode := VST1.RootNode.FirstChild;
  while aNode <> nil do
  begin
    ProcMessages;
    Thr := TMyThread.Create(aNode, VST1.GetNodeData(aNode), Handle, True);
    Thr.Resume;
    aNode := aNode.NextSibling;
    WaitForSingleObject(mySem, INFINITE);
  end;

В деструктор потока Thr добавить освобождение семафора

ReleaseSemaphore(mySem, 1, nil);

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

тема на форуме

Похожие статьи

• Пример использования потока в форме
• Скелет потока с процедурой Terminate
• Передать число следующему потоку
• Перехват загрузок из браузера
• Кодировать изображение Base64 и отправить как строку
• Галерея в js
• Проверить состояние потока
• TThread и GUI
• Псевдопараллельное выполнение процедур (Потоки)
• Ошибка в потоке