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

[bilibian]

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

а код свой (реальный) ты мне так и не показал.

Реальный код примерно такой же, только он получает гораздо больше данных.

Вот код в миниатюре, но показывает полную картинку происходящего.
Объект браузера передается при запуске потока. TH.WB:=wb1;

unit ...;

interface

uses ...

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

procedure Thread.Execute;
  var i : integer;
begin
  for i := 0 to 10 do begin
    a := i;
	Synchronize(update);
  end;
end;

procedure Thread.update;
begin
  WB.Navigate(site);
end;

procedure TForm1.wb1DocumentComplete(...);
begin
 // Здесь нам нужна переменная "a" из потока.
end;

end.

[bilibian]

procedure TForm1.wb1DocumentComplete(...);
begin
 // Здесь нам нужна переменная "a" из потока.
 // Я делаю так:
 memo1.lines.add( inttostr( TH.a ) );

 // Все хорошо, но последний ответ приходит пустой
end;

[min@y™]

убери syncronize из цикла и:

procedure Thread.wb1DocumentComplete(...);
begin
 Syncronize( {передача чего угодно наружу} );
 // Здесь нам нужна переменная "a" из потока.
end;

Да, и вот это прочитай. ОБЯЗАТЕЛЬНО!!!

[bilibian]

Отличная сага

[min@y™]

Вот только, как, все-таки, передать данные наружу то? Они ведь находятся внутри потока.

Дать тебе кусок кода в качестве примера?
Или ты, всё-таки, потратишь 10 минут на чтение правильной книжки?

[bilibian]

Сделал весь свой код внутри потока, но проблема осталась.

При последней обработке циклом, невозможно получить переменную "а" в функции "wb1DocumentComplete" так как поток завершается быстрее.

unit ...;

interface

uses ...;

type
  Thread = class(TThread)
    a : integer;
    WB : TWebBrowser;
  private
    { Private declarations }
  protected
    procedure Execute; override;
	procedure WBDocumentComplete(...);
	procedure update;
  end;
  
var
  TH:Thread;
  
implementation

procedure Thread.Execute;
  var i : integer;
begin
  for i := 0 to 10 do begin
    a := i;
    update;
  end;
end;

procedure Thread.update;
begin
  WB.OnDocumentComplete := WBDocumentComplete;
  WB.Navigate(site);
end;

procedure Thread.WBDocumentComplete(...);
begin
  // Здесь используем нашу переменную "a"
end;

end.

[min@y™]

невозможно получить переменную "а" в функции "wb1DocumentComplete" так как поток завершается быстрее

почему я не вижу попыток в коде обработчика? там же только твой комментарий и всё. Чо за фигня тут происходит? почему не хочешь посмотреть мой код, который работает в боевой программе?
а ещё лучше – почитай кусок факингмануала про потоки, чтобы врубиться, как это всё ваще работает.

[bilibian]

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

почему я не вижу попыток в коде обработчика? там же только твой комментарий и всё. Чо за фигня тут происходит? почему не хочешь посмотреть мой код, который работает в боевой программе?
а ещё лучше – почитай кусок факингмануала про потоки, чтобы врубиться, как это всё ваще работает.

Я пробовал и через Syncronize. Результат абсолютно такой же!

Поток завершается быстрее, чем я вызываю Syncronize в WBDocumentComplete

[min@y™]

Я пробовал и через Syncronize. Результат абсолютно такой же!

Поток завершается быстрее, чем я вызываю Syncronize в WBDocumentComplete

я чот не пойму: ты мои посты не видишь, что ли? или видишь, но не читаешь?
Это игнор?

Какого хрена тут происходит?

[bilibian]

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

я чот не пойму: ты мои посты не видишь, что ли? или видишь, но не читаешь?
Это игнор?

Посты повествующие о том, что мне нужно почитать мануал?