Определить что поток завершен и повторно запустить его

[Antony41]

Суть вот в чем при уничтожении потока указатель не устанавливается в nil
соответственно проверка отработал ли поток if not assigned(MyThread) then будет не правильной

подскажите правильно ли я попытался сделать установку указателя в nil
Модуль потока

unit LicenseThreadUnit;
{
Это основной поток проверки лицензий
}

interface

uses
  System.Classes;

type
  PLicenseThread = ^TLicenseThread;
  TLicenseThread = class(TThread)
  private
    FSelf: PLicenseThread;
  protected
    procedure Execute; override;
  public
    constructor Create(ASelf:PLicenseThread);
    destructor Destroy; override;
  end;

implementation

{ TLicenseThread }

uses MessagesUnit;

constructor TLicenseThread.Create(ASelf:PLicenseThread);
begin
  inherited Create(True);  //Создаем поток остановленным
  FSelf := ASelf;
  FreeOnTerminate := True;
end;

destructor TLicenseThread.Destroy; //Обратите внимание обнуляю указатель на самого себя переданный в конструкторе
begin
  FSelf^ := nil;
  inherited Destroy;
end;

procedure TLicenseThread.Execute;
begin
  {while not Terminated do
    begin
      
    end;}
end;

Код главного потока
Создаю обработчик события OnTerminate

procedure TConnections.LicenseThreadTerminated(Sender: TObject);
begin
  ShowMessage('Произошло завершение потока.');
end;

Создаю поток так

procedure TConnections.ThreadsInitialization;
  //Создаем поток контроля лицензии
  LicenseThread := TLicenseThread.Create(@LicenseThread); //Создаем поток он будет остановлен при создании, передаем адрес объекта потока 
  LicenseThread.OnTerminate := LicenseThreadTerminated; //Задаем обработчик
  LicenseThread.Resume; //Запуск потока
end;

Проверку выполняю так

procedure TConnections.Button1Click(Sender: TObject);
begin
if Assigned(LicenseThread) then
  Showmessage('LicenseThread указатель еще существует!')
else
  Connections.ThreadsInitialization;
end;

Проверил всё работает поток проверка через assigned работает, но можно ли так делать

[Vapaamies]

Так лучше не делать. Правильней устанавливать в nil указатель на поток в обработчике LicenseThreadTerminated.

[Stilet]

А для чего нужно тебе проверять поток, если не секрет?

[Antony41]

Именно так я и хотел изначально сделать, но предположим я иногда хочу отключать событие

LicenseThread.OnTerminate := nil

а проверять завершен ли поток необходимость не отпадает
и всё же данный способ имеет место быть? или приведет к AV или еще каким либо нежелательным ситуациям.?

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

А для чего нужно тебе проверять поток, если не секрет?

данный поток контролирует работу других потоков проверки лицензии и если какой то из потоков вдруг подох при ошибке или же его убили намеренно, то данный поток его перезапускает

while not Termnated do
begin
if not assigned(ThreadFirst) then
перезапускаем
if not assigned(ThreadSecond) then
перезапускаем
if not assigned(ThreadThird) then
перезапускаем
end

[Vapaamies]

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

Именно так я и хотел изначально сделать, но предположим я иногда хочу отключать событие

Отключать событие надо битовым флагом, и не удалением обработчика. В обработчике этот битовый флаг проверять. Обработчики -- это архитектура приложения, флаги -- настройки, конфигурация. Одно дело -- менять архитектуру, другое -- менять настройки.

[Antony41]

Мне кажется в моем случае лучше всё таки отключить событие, код красивее, и удобнее

При завершении потока выполнется OnTerminate в котором происходит

ShowMessage('Произошло завершение одного из главных потоков программы. Дальнейшая работа программы не возможна!');
ExitProcess(0);

и программа закрывается

Соответственно для корректного намеренного выхода из программы необходимо сначала остановить поток, так как поток зациклен

while not Terminated do

необходимо выполнить Terminate

Но тут сработает событие OnTerminate (если его не отключить) и покажет сообщение после здохнет хотя я корректно пытаюсь завершить поток без выполнения OnTerminate

Вот что я сделал
в поток добавил свойство

property CloseProgram : Boolean write SetCloseProgram;

procedure TLicenseThread.SetCloseProgram(const Value: Boolean);
begin
  if Value then //Если мы выходим из прораммы
    begin
      OnTerminate := nil; //То выполнение события onTerminate необходимо отменить
      Terminate; //и соответственно завершить поток
    end;
end;

при выходе из программы выполняю не Terminate, а CloseProgram, и событие отменится в самом потоке

[Antony41]

Вот весь модуль потока

unit LicenseThreadUnit;
{
Это основной поток проверки лицензий , в нем содержатся основные переменные
к которым происходит обращение из главного потока программы,
Этот поток запускает другие потоки проверки лицензий а так же в бесконечном цикле проверяет,
запущены ли они, если нет то перезапускает
}

interface

uses
  System.Classes;

type
  PLicenseThread = ^TLicenseThread;
  TLicenseThread = class(TThread)
  private
    FSelf: PLicenseThread;
    procedure SetCloseProgram(const Value: Boolean);
  protected
    procedure Execute; override;
  public
    constructor Create(ASelf:PLicenseThread);
    destructor Destroy; override;
  //При намеренном выходе из программы, установить CloseProgram в True и поток завершится без выполнения события onTerminate
  property CloseProgram : Boolean write SetCloseProgram;

  end;

implementation

{ TLicenseThread }

uses MessagesUnit;

constructor TLicenseThread.Create(ASelf:PLicenseThread);
begin
  inherited Create(True);  //Создаем поток остановленным
  FSelf := ASelf;
  FreeOnTerminate := True;
end;

destructor TLicenseThread.Destroy;
begin
  FSelf^ := nil;
  inherited Destroy;
end;

procedure TLicenseThread.Execute;
begin
  while not Terminated do
    begin
      //ShowMyMessage(0, C_MSG_LOGSTATUS, 'сообщение из основного потока проверки лицензии');
    end;


end;

procedure TLicenseThread.SetCloseProgram(const Value: Boolean);
begin
  if Value then //Если мы выходим из прораммы
    begin
      OnTerminate := nil; //То выполнение события onTerminate необходимо отменить
      Terminate; //и соответственно завершить поток
    end;
end;

end.

[Antony41]

Всё же можно ли обнулить указатель в Destroy потока?
ведь событие Destroy выполняется в любом случае, при уничтожении потока

[Stilet]

ведь событие Destroy выполняется в любом случае, при уничтожении потока

Да, но принадлежит оно все же классу, который ты собрался обнулять.
Не очень ИМХО идея правильная. Мне думается что тебе нужно пересмотреть механизм проверки полностью. И ничего нигде не обнулять из себя.

[Vapaamies]

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

Мне кажется в моем случае лучше всё таки отключить событие, код красивее, и удобнее

Если судить по аватарам, у нас разное понятие о красоте. На красоту кода тоже влияет, видимо.