Бесплатно TThread либо автоматически, либо вручную

Честно говоря, ваша

... Do some processing

- это настоящая проблема.Это цикл для рекурсивного выполнения чего-либо? Если нет, а вместо этого это огромная задача, вам следует подумать о том, чтобы разделить эту задачу на небольшие процедуры / функции и собрать все вместе в теле выполнения, вызывая один за другим с условными if, чтобы узнать состояние потока, например:

 

While not Terminated do
 begin

  if MyThreadReady then
    DoStepOneToTaskCompletion
  else
    clean_and_or_rollback(Something Initialized?);

  if MyThreadReady then
    DoStepTwoToTaskCompletion
  else
    clean_and_or_rollback(Something Initialized?, StepOne);

  if MyThreadReady then
    DoStepThreeToTaskCompletion
  else
    clean_and_or_rollback(Something Initialized?, StepOne, StepTwo);

  Self.DoTerminate; // Not sure what to expect from that one
 end;

Он грязный, почти хакерский, но будет работать как положено.

О FreeOnTerminate, ну ... просто удалите объявление и всегда

FreeAndNil(ThreadObject);

Я не фанат syncronise. Мне нравятся более важные разделы за гибкость при расширении кода для обработки большего количества общих данных.

В публичном разделе формы объявите:

ControlSection : TRTLCriticalSection;

При создании формы или в другом месте перед thread.create,

InitializeCriticalSection(ControlSection);

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

EnterCriticalSection ( ControlSection );
  MyThreadReady := True; //or false, or whatever else
LeaveCriticalSection ( ControlSection );

Перед вы уходите (выход), звоните по номеру

DeleteCriticalSection ( ControlSection );

и, как всегда, освобождаете поток.

С уважением Рафаэль

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

Поскольку вам нужен точный контроль над переменной потока, не используйте FreeOnTerminate. Если ваш поток завершается раньше, очистите локальные ресурсы, которые поток потреблял, как обычно, а затем просто позвольте основному потоку освободить дочерний поток, когда приложение будет завершено. Вы получите лучшее из обоих миров - ресурсы, высвобождаемые дочерним потоком, как только это возможно, и не беспокойтесь о синхронизации потоков. (И у него есть дополнительный бонус, заключающийся в том, что он намного проще в дизайне / коде / понимании / поддержке ...)

Нет, ваш код не очень хорош (хотя он, вероятно, будет работать в 99,99% или даже в 100% случаев). Если вы планируете завершить рабочий поток из основного потока, не устанавливайте для FreeOnTerminate значение True (я не понимаю, что вы пытаетесь получить в приведенном выше коде, устанавливая для FreeOnTerminate значение True, это, по крайней мере, делает ваш код менее понятным) .

Более важная ситуация с завершением рабочих потоков заключается в том, что вы пытаетесь закрыть приложение, пока рабочий поток находится в состоянии ожидания. Поток не будет разбужен, если вы просто вызовете Terminate, обычно вам следует использовать дополнительный объект синхронизации (обычно событие), чтобы разбудить рабочий поток.

И еще одно замечание - нет необходимости в

  begin
    MyThread.Terminate;
    MyThread.WaitFor;
    MyThread.Free;
  end;

если посмотреть код TThread.Destroy, он вызывает Terminate и WaitFor, так что

    MyThread.Free;

достаточно (по крайней мере в Delphi 2009, не иметь исходников Delphi 7 на рука для проверки).

Обновлено

Прочитайте мой ответ.Рассмотрим следующую ситуацию (лучше на 1-процессорной системе):

выполняется основной поток

procedure TMainForm.Close;
begin
  if not MyThreadReady then
  begin
    MyThread.Terminate;
    MyThread.WaitFor;
    MyThread.Free;
  end;
end;

проверил значение MyThreadReady (оно False) и был выключен планировщиком.

Теперь планировщик переключается на рабочий поток; он выполняется

  Synchronize(ThreadFinished);

и заставляет планировщик вернуться к основному потоку. Основной поток продолжает выполнение:

    MyThread.Terminate;   // no problem
    MyThread.WaitFor;     // ???
    MyThread.Free;

можете ли вы сказать, что произойдет в WaitFor? Я не могу (для ответа требуется более глубокое изучение источников TThread, но на первый взгляд это выглядит как тупик).

Ваша настоящая ошибка в другом - вы написали ненадежный код и пытаетесь выяснить, правильный он или нет. Это плохая практика с потоками — вместо этого вы должны научиться писать надежный код.

Что касается ресурсов: когда TThread (с FreeOnTerminate = False) завершается, единственными ресурсами, которые остаются выделенными, является дескриптор потока Windows (он не использует значительные ресурсы Windows после завершения потока) и объект Delphi TThread в памяти. Не большие затраты, чтобы быть в безопасности.

Попросите основной поток назначить обработчик события OnTerminate рабочего потока. Если рабочий поток завершается первым, то обработчик может дать сигнал основному потоку освободить поток. Если основной поток завершается первым, он может завершить рабочий поток. Например:

procedure TMyThread.Execute;
begin
  ... Do some processing ...
end;

procedure TMainForm.Create;
begin
  MyThread := TMyThread.Create(True);
  MyThread.OnTerminate := ThreadFinished;
  MyThread.Resume; // or MyThread.Start; in D2010+
end;

const
  APPWM_FREE_THREAD = WM_APP+1;

procedure TMainForm.ThreadFinished(Sender: TObject);
begin
  PostMessage(Handle, APPWM_FREE_THREAD, 0, 0);
end;

procedure TMainForm.WndProc(var Message: TMessage);
begin
  if Message.Msg = APPWM_FREE_THREAD then
    StopWorkerThread
  else
    inherited;
end;

procedure TMainForm.StopWorkerThread;
begin
  if MyThread <> nil then
  begin
    MyThread.Terminate;
    MyThread.WaitFor;
    FreeAndNil(MyThread);
  end;
end;

procedure TMainForm.Close;
begin
  StopWorkerThread;
end;