Получение данных из потока

[bilibian]

Привет.

type
  Thread = class(TThread)
     a,b : integer;

var
  TH:Thread;

procedure Thread.Execute;
begin
  a := 1;
  b := 2;
end;

Как вытащить эти данные (a,b) из потока?

TH.a

Вот так не получается, переменная пустая, так как поток уже завершился.

Понятное дело, что если подключить к этому потоку форму, то проблема решится путем присваивания этих переменных к глобальным, которые были объявлены на форме, но хочется сделать это не подключая форму.

Подскажите?


UPD

Моя проблема заключается в следующем:

С помощью браузера я в потоке выполняю переход на страницу и мне нужно дождаться события OnDocumentComplete, чтобы выполнить какие-то действия и из этих действий получить результат. Так вот, как сделать чтобы поток завершался только после события OnDocumentComplete, иначе поток завершается не дожидаясь события и я не получаю результат.​

[min@y™]

Покажи класс треда полностью.

[bilibian]

Сообщение от min@y™

Покажи класс треда полностью.

type
  Thread = class(TThread)
    a,b : integer;
  private
    { Private declarations }
  protected
    procedure Execute; override;
  end;

[min@y™]

А теперь скажи, в какие моменты тебе нужны значения a и b.
B покажи код треда полностью, включая то, что в разделе implementation.

[bilibian]

Сообщение от min@y™

А теперь скажи, в какие моменты тебе нужны значения a и b.
B покажи код треда полностью, включая то, что в разделе implementation.

Мне нужно выдернуть эти данные в основной поток формы, но поток завершается быстрее, чем я успеваю их запросить путем "TH.a" или "TH.b"

в implementation ничего нет, но для решения проблемы туда можно добавить Unit1 и присвоить a и b к глобальным переменным в основном потоке формы. Интересует решение без подключения формы (основного потока).

unit ...;

interface

uses ...

type
  Thread = class(TThread)
    a,b : integer;
  private
    { Private declarations }
  protected
    procedure Execute; override;
  end;
  
var
  TH:Thread;
  
implementation

procedure Thread.Execute;
begin
  a := 1;
  b := 2;
end;

end.

[min@y™]

Мне нужно выдернуть эти данные

в какой момент-то?

в implementation ничего нет

ну это ж неправда! реализация метода execute() должна же быть, ёмаё!

[bilibian]

Сообщение от min@y™

в какой момент-то?

По запросу из основного потока формы.

То есть, потоку дали задание, он его выполнил и получил результат. Этот результат нужно получить по запросу из основного потока формы. Или перенести результат в основной поток не подключая его через uses.

[min@y™]

По запросу из основного потока формы.

type
  Thread = class(TThread)
  private
    Fa, Fb : integer;
  protected
    procedure Execute; override;
    property a: Integer read Fa;
    property b: Integer read Fb;
  end;

var
  TH:Thread;

implementation

procedure Thread.Execute;
begin
  Fa := 1;
  Fb := 2;
end;

теперь значения доступны извне:

x:= TH.a;
y:= TH.b;

Но только пока объект треда существует.
Если эти свойства у тебя - результаты работы треда, получай их в событии OnTerminate.
Если эти свойства тебе нужно получать в процессе выполнения треда (неоднократно), то изнутри Execute() нужно их выдавать синхронно с помощью Synchronize().

[bilibian]

Сообщение от min@y™

Если эти свойства тебе нужно получать в процессе выполнения треда (неоднократно), то изнутри Execute() нужно их выдавать синхронно с помощью Synchronize().

Пробовал с помощью Synchronize(), все хорошо, но при получении этих данных в последний раз - они приходят уже пустые.

[min@y™]

но при получении этих данных в последний раз - они приходят уже пустые.

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