Показать сообщение отдельно
  #7  
Старый 10.04.2012, 06:22
lmikle lmikle вне форума
Модератор
 
Регистрация: 17.04.2008
Сообщения: 8,087
Версия Delphi: 7, XE3, 10.2
Репутация: 49089
По умолчанию

Цитата:
Сообщение от metra52
а как мне такое реализовать? могу привести мой код программы, мне нужно загрузку запихнуть отдельным процессом, и сделать очередь загрузки если предыдущая еще не закончилась

Тут довольно сложно. Придется использовать TThread и CriticalSection.
В общем случае я бы делал так.
1. Завел бы некоторый список заданий.
2. Создал бы неоторое, фиксированное, кол-во потоков (TThread).
3. Завел бы счетчик работающих потоков. В момент, когда поток берет задание, он увеличивает счетчик на 1, когда заканчивает - соответсвенно уменьшает.
4. Через CriticalSection организовал бы изменение счетчика и забор задания из списка.

Готовый код лень писать - там много будет.
Ответить с цитированием