Обновление информации в компоненте в потоке

[artemavd]

Добрый день!

Такой вопрос.
Есть главная форма - Form1.
Из нее вызывается дополнительная форма Form2, на которой мне надо в Label1.Caption выводить некую информацию, которую обрабатывает поток - некий мой MyThread. Например, в процессе работы потока в Label1.Caption выводить имя обрабатываемого в потоке MyThread файла.
Проблема в том, если я прописываю в потоке это, то поток не срабатывает.

Как можно в потоке на Form2 выводить информацию в Label1.Caption?

[p51x]

https://delphi-manual.ru/synchronize.php

[artemavd]

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

https://delphi-manual.ru/synchronize.php

Да, конечно я видел эту ссылку и использовал из нее материалы.
У меня сейчас сделано так.
В глобальных переменных основной Form1 объявлена переменная

...
var
  ZippingVar: string;
...

Из Form1 я вызываю форму Form2 через нажатие на кнопку (Form2 убрал из списка автосоздаваемых через Project-Options):

procedure TForm1.Button1Click(Sender: TObject);
var
  F: TForm;
begin
  F:=TForm2.Create(Application);
  F.Show;
end;

Затем, в событии Form2.OnActivate срабатывает запуск моего потока:

procedure TForm2.FormActivate(Sender: TObject);
begin
  CompressingThread.Create(False);
end;

Сама структура класса потока (который расположен в Form2) такая:

type
  CompressingThread = class(TThread)
private
  procedure UpdateInfo;
protected
  procedure Execute; override;
end;

Затем сама процедура UpdateInfo:

procedure CompressingThread.UpdateInfo
begin
  Form2.Label1.Caption:=ZippingVar; //моя глобальная переменная, которая объявлена в Form1
end;

Структура самого потока CompressingThread такова:

procedure ComporessingThread.Execute;
begin
  while True do
  begin
    ...//основной код потока
    ZippingVar:=ListBox1.Strings[i]; //где-то в цикле присваивается имя файла, которое надо отобразить в Form2.Label1.Caption
    ...
   Synchronize(UpdateInfo);
   Sleep(100);
  end;
end;

Вот, все. Однако, в Form2.Label1.Caption так и не отображается имя файла из потока...

[evg_m]

(Form2 убрал из списка автосоздаваемых через Project-Options):

Form2.Label1.Caption:=ZippingVar;

в этом случае НАДО "заполнить" переменную Form2.
( и сделать это ДО запуска потока)
1 вар.

procedure TForm1.Button1Click(Sender: TObject);
var
  F: TForm;
begin
  Form2:=TForm2.Create(Application);
  Form2.Show;
end;

2 вар.

procedure TForm2.FormActivate(Sender: TObject);
begin
  form2:=self;
  CompressingThread.Create(False);
end;

3 вар. ( без var form2)
при запуске потока указать ему какой control (label) ему заполнять.

CompressingThread.Create(False, SELF.label1);

соответственно в потоке выделить поле для хранения этого объекта

private
myinfo: TLabel;// контрол ДЛЯ заполнения
zipinfo: string; // информация ДЛЯ вывода

и заполнять оное все также соблюдая требования синхронизации

synchronize(UpdateInfo);

procedure CompressingThread.UpdateInfo
begin
  Form2.Label1.Caption:=ZippingVar; //моя глобальная переменная, которая объявлена в Form1
  myinfo.Caption:=zipinfo;
end;

[artemavd]

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

в этом случае НАДО "заполнить" переменную Form2.
( и сделать это ДО запуска потока)
1 вар.
Код:
procedure TForm1.Button1Click(Sender: TObject);
var
F: TForm;
begin
Form2:=TForm2.Create(Application);
Form2.Show;
end;

Решил попробовать вариант №1.
Да, в событий активации Form2 написал так:

procedure TForm2.FormActivate(Sender: TObject);
begin
  Form2.Label1.Caption:=ZippingVar;
  CompressingThread.Create(False);
end;

В Synchronize(UpdateInfo) написал так:

procedure CompressingThread.UpdateInfo;
begin
  Form2.Label1.Caption:=ZippingInfo;
end;

Вроде поток отрабатывает, но в Form2.Label1.Caption почему-то выводится имя последнего файла только. Получается, что при каждом обращении к файлу, почему-то не заносится имя, может отрабатывает так быстро, а может синхронизация не проходит как-то и я ее не том месте расположил.

Кстати, может быть Synchronize(UpdateInfo) надо расположить в цикле for...end, в котором идет цикл по именам файла?

[p51x]

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

Кстати, может быть Synchronize(UpdateInfo) надо расположить в цикле for...end, в котором идет цикл по именам файла?

Если вы в цикле пишете имена файлов в одну переменную, а после цикла записываете в контрол, то что можно ожидать в этой переменной, кроме значения на последней итерации?

[artemavd]

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

Если вы в цикле пишете имена файлов в одну переменную, а после цикла записываете в контрол, то что можно ожидать в этой переменной, кроме значения на последней итерации?

Да, я уже нашел ошибку и исправил ее.
Последний вопрос: как отследить, что поток закончил свою работу? Мне чтобы закрыть приложение по окончанию работы потока.

[evg_m]

OnTerminate

https://programmersforum.ru/showpost...10&postcount=4