Delphi - Может ли TThread изменить значение переменной в основном потоке VCL?

Question

Использование: Delphi XE2, приложение Windows VCL Forms

Может ли TThread во время его выполнения изменять значение переменной в основном потоке VCL?

Необходимо обновить целое число, объявленное как поле класса TForm. Он будет передан TThread как переменная var в перегруженном (и повторно вводимом) методе Create constructor.

Есть ли какие-либо недостатки в этом?

Answer 1

Да, потоки могут изменять переменные. Переменные не относятся к тем. Переменные могут принадлежать объектам формы или потока, но объект потока (т. Е. Экземпляр TThread или его потомки) отличается от потока выполнения ОС.

Объекты могут иметь код, который работает в нескольких потоках. Ваш метод TThread.Create работает в контексте потока, который его вызывает, что часто является вашим основным потоком. С другой стороны, метод Execute работает в контексте созданного потока ОС. Но очевидно, что оба метода могут получить доступ к полям объекта TThread, чтобы ответить на вопрос, могут ли две потоки ОС обращаться к одной и той же переменной.

У вас возникнут проблемы с доступом к переменной формы так, как вы ее описываете. Передача его конструктору в качестве параметра var позволит построить конструктор , но, как я уже упоминал выше, конструктор не запускается в контексте нового потока ОС. Чтобы позволить новому потоку получить доступ к этой переменной, вам нужно будет сохранить указатель на него вместо передачи по ссылке. Например:

type 
    TSteveThread = class(TThread) 
    private 
    FVariable: PInteger; 
    protected 
    procedure Execute; override; 
    public 
    constructor Create(Variable: PInteger); 
    end; 

constructor TSteveThread.Create; 
begin 
    inherited Create(False); 
    FVariable := Variable; 
end; 

procedure TSteveThread.Execute; 
begin 
    // Access FVariable^ here. 
end; 

Создать это следующим образом:

procedure TSteveForm.ButtonClick; 
begin 
    TSteveThread.Create(@Self.Variable); 
end; 

Альтернативы передать ссылку на форму вместо этого, а затем получить доступ поля формы через эту ссылку. Например:

type 
    TSteveThread = class(TThread) 
    private 
    FForm: TSteveForm; 
    protected 
    procedure Execute; override; 
    public 
    constructor Create(Form: TSteveForm); 
    end; 

constructor TSteveThread.Create; 
begin 
    inherited Create(False); 
    FForm := Form; 
end; 

procedure TSteveThread.Execute; 
begin 
    // Access FForm.Variable here. 
end; 

Создать это следующим образом:

procedure TSteveForm.ButtonClick; 
begin 
    TSteveThread.Create(Self); 
end; 

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