Потоки(TThread). Возврат значений функции.

[Delphi_ProGer]

Здраствуйте! Проблема такова: я имею класс, в котором есть много ф-й и результат ф-й заноситься в глобальную переменную. Когда я исполняю поток, то немогу взнать когда он закончит свою работу(или точнее не знаю как это проверить).
Вопрос такой: как это сделать?

Пример кода:

var MyThread: TMyThread;
Globalresult : boolean;
...
TMyThread.Execute;
begin
case ThreadMethod of
m1: ...;
m2: ...;
end;
end;
...

begin
MyThread.Resume;
ThreadMethod:=m1;
if GlobalResult = true then ...  // вот здесь проверяеться значение, но поток еще виполнил эту ф-ю
end;

Извините, если кое-что непонятно.

[mss]

немогу взнать когда он закончит свою работу(или точнее не знаю как это проверить)

Если завершением работы доп.потока заинтересован осн.поток VCL-приложения, то для этого Борланд предусмотрела событие OnTerminate - его обработчик синхронизирован с осн.потоком, т.е. будет исполнен в контексте осн.потока.
Формально OnTerminate не есть факт завершения собственно поточной ф-ции, но это событие возбуждается после завершения работы метода TThread.Execute

[Delphi_ProGer]

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

Если завершением работы доп.потока заинтересован осн.поток VCL-приложения, то для этого Борланд предусмотрела событие OnTerminate - его обработчик синхронизирован с осн.потоком, т.е. будет исполнен в контексте осн.потока

А если об'єкт потока не будет уничтожаться а только Suspend?

[mss]

А если об'єкт потока не будет уничтожаться а только Suspend?

Тогда следует реализовать собственные способы синхронизации.
Это м.б. и штатный Synchronize (сфера его использования довольно специфична и ограничена) и иные объекты синхр-ции, начиная с CriticalSection и заканчивая глобальными объектами (Event, Mutex, Semaphore).

Для гурманов и особо умудренных ОС предоставляет еще и объекты-файберы.

[cargo29]

Поток TThread считается завершенным, когда завершается выполнение его мето
да Execute(). В этот момент вызывается стандартная процедура Delphi End-
Thread(), которая, в свою очередь, вызывает функцию API Win32 ExitThread().
Данная функция должным образом освобождает стек потока и сам объект потока API.
По завершении ее работы поток перестает существовать и все использованные им ре
сурсы будут освобождены.

procedure TTestThread.Execute;
var
i: integer;
begin
FreeOnTerminate := True;
for i := 1 to 2000000 do begin
if Terminated then Break;
inc(Answer, Round(Abs(Sin(Sqrt(i)))));
end;
end;

[veniside]

MyThread.Resume;
ThreadMethod:=m1;

замечательно, сначала запускаем поток, а потом уже говорим, что ему делать ) Строчки надо переставить местами.

Вобще, логика должна быть примерно такая:

1) инициализируем поток, сбрасываем событие (ResetEvent)

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

3) главный поток периодически смотрит на это событие (WaitForSingeObject), если оно установлено, считаем, что значение Globalresult определено.

Вобще, идея с suspend/resume не очень, имхо. Проще действительно OnTerminate использовать.

[Delphi_ProGer]

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

MyThread.Resume;
ThreadMethod:=m1;

замечательно, сначала запускаем поток, а потом уже говорим, что ему делать ) Строчки надо переставить местами.

это просто сам на скорую написал код, т.е. приблизительный пример) Так что ошыбки могли быть, но дело не в этом.

А так, спасибо всем за советы!

[veniside]

щас вот подумал, вместо suspend/resume, которые уже давно deprecated, на порядок лучше использовать такую схему: есть два события, одно сигнализирует о том, что для потока есть новая работа (EvNewJob), и второе, говорящее о том, что поток с работой справился (EvJobDone). Тогда схема будет такая:

дополнительный поток:

  1) ждёт WaitForSingleObject(EvNewJob), скажем, 10 секунд
  2) если дождался и not Terminated, то:
    2.1) выполняет работу
    2.2) выставляет EvJobDone в сигнальное состояние
  3) если поток не просят завершиться (not Terminated) то опять на шаг 1)

основной поток:

 -- запуск программы:
  0) сбрасываем EvNewJob, создаём доп. поток

 -- есть новая работа:
  1) сбрасываем EvJobDone
  2) заполняем поля потока, чтобы он знал, над чем работать, когда проснётся
  3) устанавливаем EvNewJob
  4) периодически проверяем EvJobDone, если установлено, считываем результаты работы из потока.
  5) по приходу новой работы, идём на шаг 1)

 -- выход из программы:
  6) просим поток завершиться (вызываем Terminate()) и устанавливаем EvNewJob, чтобы поток проснулся и завершился нормальным образом

У EvNewJob желательно ManualReset = False, или не забывать сбрасывать самому.

[Пепел Феникса]

которые уже давно deprecated

кхм, с чего это они устарели?

или вы имели в виду что подход через их использование устарел?(тогда согласен)

[veniside]

из исходников Classes.pas из Delphi 2010:

    procedure Resume; deprecated;
    procedure Suspend; deprecated;

ну ок, не так давно. Но давно пора )