Ожидание завершения потоков

[Voody]

Структура программы такая:

{первая часть}

{запуск потоков}

{вторая часть}

Нужно, чтобы после запуска потоков программа ждала их завершения, а потом уже выполнялась вторая часть.
Как это лучше реализовать?

[Daramant]

С данной задачей вполне справятся семафоры.
Тебе нужна идея или пример привести?

[Voody]

лучше пример, если можно)))
причем важно, чтобы программа не зависала, пока ждала завершения потоков

[Daramant]

Пример я сейчас набросаю.

причем важно, чтобы программа не зависала, пока ждала завершения потоков

Насколько не зависала?
Достаточно прогрессбара или необходимо, чтобы была полная работоспособность (окна не подвисали)?

Можешь немного рассказать о решаемой задаче, чтобы было яснее.
Чтобы ничего не подвисало, можно ожидание вынести также в отдельный поток, тогда будет то, что тебе нужно.

[Voody]

Я, кстати, делал так (не ругать))):

{первая часть}

{запуск потоков}
 Next:=0;
 while Next<>2 do  Application.ProcessMessages;

{вторая часть}

т.е. Next считает количество завершенных потоков, и когда их становится два, то продолжаем дальше программу. Всё работало, но почему-то буквально вчера заметил, что происходит так: заходит в потоки, потоки вызывают процедуру и на этом программа просто стопорится (ничего не происходит; только продолжает выполняться Application.ProcessMessages).
Хотя если пишу while true do Application.ProcessMessages; то ничего не стопорится. Но естественно, что такой вариант не подходит))

Насколько не зависала?

полная работоспособность. Ибо потоки обновляют компоненты (Label) на форме, и пользователь должен видеть обновление статистики.
Проблема возникла как раз из-за того, что вдруг перестало работать моё "очевидное" решение. А так оно меня вполне устраивало))

[Daramant]

Вот пример.
Если что не так, пиши, доработаю.

Next:=0;
while Next<>2 do Application.ProcessMessages;

Чтобы такой вариант работал, необходимо в потоках обращаться к Next через кретическую секцию, а то складывается ситуация когда несколько потоков пытаются писать в одну переменную и выходит косяк.
Но, конечно лучше через ожидание событий.

[Voody]

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

Вот пример.
Если что не так, пиши, доработаю.

Спасибо большое. Сделал так:
N - количество потоков, задает пользователь

Semaphore := CreateSemaphore(nil, 0, N, nil);
for i:=1 to N do
  CheckThread.Create(false);
WaitForSingleObject(Semaphore, INFINITE);
{продолжаем код}

А в конце потока поставил ReleaseSemaphore(Semaphore, 1, nil);

Первая проблема: программа виснет, если стоит INFINITE.
Но... вторая проблема: вместо INFINITE поставил 1000 (как я понял, это интервал проверки семафора). Всё равно продолжает выполнятся вторая часть кода, не ожидая завершения потоков(((

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

Чтобы такой вариант работал, необходимо в потоках обращаться к Next через кретическую секцию, а то складывается ситуация когда несколько потоков пытаются писать в одну переменную и выходит косяк.
Но, конечно лучше через ожидание событий.

В том, то и дело, что программа раньше работала, а сейчас нет, и даже не доходит до изменения Next, просто стоит((

[Daramant]

WaitForSingleObject(). Ожидает пока не освободится семафор.
Если стоит, например 1000, то будет секундное ожидание и начнется выполнение операторов после WaitForSingleObject().
Тебе необходимо INFINITE, ждать пока точно все не отработают.

Первая проблема: программа виснет, если стоит INFINITE.

Я менял количество потоков, у меня все работает, может проблема в коде, который выполняется в потоках.
Класс CheckThread сам писал или это потомок от класса tthread из Delphi?
Переменная Semaphore точно глобальная?

[Voody]

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

Я менял количество потоков, у меня все работает, может проблема в коде, который выполняется в потоках.
Класс CheckThread сам писал или это потомок от класса tthread из Delphi?
Переменная Semaphore точно глобальная?

CheckThread = class(TThread)
...
implementation
var
Semaphore: THandle;

как у вас в программе((( но моя программа виснет.
Не могли бы вы привести более наглядный пример, например: нажимается кнопка - запускаются потоки - изменяется Label - завершаются потоки - что-то еще происходит после завершения (типа пишет "Программа закончена"). Тогда уже я сам разберусь

[Daramant]

Вот новая версия.

P.S. Если из потоков интенсивно изменять значения компонент на форме, то форма все равно подвисает.
Можно, конечно, поставить Application.ProcessMessages; после каждого Label.Caption := 'текст';, но тогда упадет скорость выполнения рассчетов в потоках.