[Delphi XE3] Работа с потоками

[-Jack-]

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

Задача такая: необходимо дождаться завершения потока и получить из него результат (ReturnValue)


Немного о моей программе:
при открытии программы, создается поток, по результатам которого, передаётся некоторое значение (TThread.ReturnValue). И пока в потоке происходит обработка данных, выполнение программы должно приостановиться и ожидать завершение потока и получение ReturnValue.


Вот собственно и вопрос, каким образом поток приостановить ?

Пробовал

while not TThread.Terminated do
sleep(100);

но программа засыпает и всё ... никаких ошибок ... ничего

[doktor255]

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

[-Jack-]

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

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

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

[Человек_Борща]

WaitForSingleObject подвесит основной поток.

[-Jack-]

Сообщение от Человек_Борща

WaitForSingleObject подвесит основной поток.

Спасибо, чуть позже попробую через WaitForSingleObject, а пока реализовал

while not TThread.Terminated do
begin
     Application.ProcessMessage;
     sleep(100);
end;

[Stilet]

пока реализовал

Ну и зачем это? Ты поток для чего создавал? Раз главный замораживаешь мог бы уже и без доппотока.
Вынеси логику, что должна сработать по завершению в OnTerminate или в конец OnExecute.

[Dik0n]

TThread.OnTerminate для этого существует и не надо ничего приостанавливать.