[Aristarh Dark]

Допустим есть некий поток:

Код:

unit MVCThread;

interface

uses
  Classes;

type
  TMVCCreateStruct = record
    port:string;
    baudrate:Integer;

  end;
  TMVCThread = class(TThread)
  private
    FSomeProp: Boolean;
    procedure SyncProc;
  protected
    procedure Execute; override;
  public
    property SomeProp:Boolean read FSomeProp write FSomeProp;
  end;

implementation

{ 
  Important: Methods and properties of objects in visual components can only be
  used in a method called using Synchronize, for example,

      Synchronize(UpdateCaption);  

  and UpdateCaption could look like,

    procedure TMVCThread.UpdateCaption;
    begin
      Form1.Caption := 'Updated in a thread';
    end; 
    
    or 
    
    Synchronize( 
      procedure 
      begin
        Form1.Caption := 'Updated in thread via an anonymous method' 
      end
      )
    );
    
  where an anonymous method is passed.

  Similarly, the developer can call the Queue method with similar parameters as
  above, instead passing another TThread class as the first parameter, putting
  the calling thread in a queue with the other thread.

}

{ TMVCThread }

procedure TMVCThread.Execute;
begin
  { Place thread code here }
  while not Terminated do
    begin
      Sleep(100);
      if FSomeProp then
        Synchronize(SyncProc);
    end;
end;

procedure TMVCThread.SyncProc;
begin
  //код
end;

end.

Свойство SomeProp буду устанавливать из основного потока приложения. Вопрос: насколько это безопасно, и правильно ли вообще так писать?

[poli-smen]

Сообщение от Aristarh Dark

Свойство SomeProp буду устанавливать из основного потока приложения. Вопрос: насколько это безопасно, и правильно ли вообще так писать?

Это не безопасно. Нужно каким либо образом сообщить потоку о своём намерении, и когда он станет в ожидание, можно изменять свойство. Ну и после этого главное не забыть опять запустить поток

[M.A.D.M.A.N.]

можно через модификатор, устанавливать флаг, в цике казнения смотреть на этот флаг и только в том случае, если он установлен - менять значение переменной.

[Aristarh Dark]

Однако подобное свойство есть.
Например: FOnTerminate.
Причем если там посмотреть вызовы, то проверки выполняются в каждой процедуре (вызовы одна из другой, смотрите исходники TThread), следовательно теоретически возможно изменение свойства между вызовами.

[NumLock]

для скалярного Boolean сгодится и так. посмотри на свойство Terminated и метод Terminate у TThread:

Код:

TThread = class
private
  FTerminated: Boolean;
protected
  property Terminated: Boolean read FTerminated;
public
  procedure Terminate;

procedure TThread.Terminate;
begin
  FTerminated := True;
end;

вполне естественно вызывать из основного потока методы Terminate и WaitFor для завершения и ожидания работы потока, когда в самом потоке может быть проверка Terminated, как в первом посте.

[~TB~]

У меня в одном приложении примерно так работает. Проблем никаких не наблюдаю. Главное не забывать пинать поток когда нужно.

Код:

procedure TMySuperDuperThread.Execute;
begin
  while not Terminated do
    if not Suspended then
    begin
      if SomeProp then
        ApplySomeProcedure
      else
        Suspend;
    end;
end;

[icWasya]

И самое главное, нафига внутри Execute вся полезная работа делается под Synchronize ?

[NumLock]

Сообщение от ~TB~

У меня

для "тяжелых" случаев есть целый раздел "Synchronization Functions"

[poli-smen]

Сообщение от Aristarh Dark

Однако подобное свойство есть.
Например: FOnTerminate.
Причем если там посмотреть вызовы, то проверки выполняются в каждой процедуре (вызовы одна из другой, смотрите исходники TThread), следовательно теоретически возможно изменение свойства между вызовами.

Свойство OnTerminate основной поток изменяет только после создания потока и до его запуска:

Код:

  Thread := TMyThread.Create(True);
  Thread.OnTerminate := MyMethod; // Здесь спокойно можно присваивать
  Thread.Resume;
  Thread.OnTerminate := MyMethod; // А вот здесь уже нельзя

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

вполне естественно вызывать из основного потока методы Terminate и WaitFor для завершения и ожидания работы потока, когда в самом потоке может быть проверка Terminated, как в первом посте.

Изменение свойства может произойти посреди какой нибудь проверки, в результате чего может нарушиться логика работы.
Для Terminated это не страшно, так как единственное его предназначение это:

Код:

while not Terminated do
begin
...
  if Terminated then Break; // Это тоже не повлияет на логику
...
end;

[poli-smen]

Сообщение от ~TB~

У меня в одном приложении примерно так работает. Проблем никаких не наблюдаю. Главное не забывать пинать поток когда нужно.

Код:

procedure TMySuperDuperThread.Execute;
begin
  while not Terminated do
    if not Suspended then
    begin
      if SomeProp then
        ApplySomeProcedure
      else
        Suspend;
    end;
end;

А разве проверка "if not Suspended then" здесь нужна и имеет смысл? Если поток остановлен, то он никак не может проверить своё состояние, а если поток запущен, то это условие всегда будет давать Истину.

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

И самое главное, нафига внутри Execute вся полезная работа делается под Synchronize ?

Я так понял, что в том примере под полезной работой подразумевается это:

Код:

Sleep(100);

А свойство SomeProp нужно, чтобы основной поток мог сигнализировать этому потоку, что нужны результаты его работы.

[NumLock]

а вопрос был на сколько безопасно устанавливать такое свойство из основного потока? ответ - полностью безопасно. нужная процедура будет успешно выполняться при установленном свойстве.
чтобы не гадать что будет с логикой работы нужно каждую ситуацию рассматривать отдельно.
к примеру если это чекбокс (при изменении его состояния меняется значение свойства потока), который информирует поток о том что нужно что-то обновлять на форме, то такой вариант очень даже сгодиться и не нужно изучать раздел "Synchronization Functions".

добавлено позже
пока отвлекся на работу и писал сообщение пример уже описали)))

добавлено еще позже
вариант ~TB~ мне тоже не понятен

[Aristarh Dark]

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

И самое главное, нафига внутри Execute вся полезная работа делается под Synchronize ?

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

[~TB~]

NumLock, poli-smen,

Код:

if not Suspended then

Эээ... я не знаю зачем я это написал О_о
Правда - только что обратил внимание. Надо будет глянуть этот исходник и посмотреть что там делается. Скорее всего это какие-нибудь остатки совсем старого кода.

[Aristarh Dark]

Как показала практика: свойство работает.