Как заставить поток ждать пока браузер завершит свою работу

[bilibian]

Привет!

Задача: Необходимо заставить поток ждать пока браузер завершит загрузку страницы и выполнит код в OnDocumentComplete.

Пока копал в этом направлении и раскуривал гугл, выяснил, что это можно сделать с помощью "WailForSingleObject".

Особых примеров как ее реализовать в моем случае не нашел.

Написал код:

procedure TMyThread.Execute;
 var
  i : integer;
begin
…
  for i := 0 to ArrayLinks.Length-1 do begin
    Navigate(ArrayLinks[i]);
  end;
…
end;
 
procedure TMyThread.Navigate(url);
begin
  WB.OnDocumentComplete := WBDocumentComplete;
  WB.Navigate(url);
  WaitCompliting;
end;
 
procedure TMyThread.WBDocumentComplete;
 var
  Doc : Variant;
begin
  Doc := WB.OleObject.document;
  WB.Height := Doc.body.scrollHeight;
  …
end;
 
procedure TMyThread.WaitCompliting;
 var
  Reason: DWORD;
begin
  repeat
    Reason := WailForSingleObject(WB.Handle, INFINITE);
  until Reason = WAIT_OBJECT_0;
end;

Но я его даже протестировать не могу, так как delphi подчеркивает "WailForSingleObject".

[Stilet]

выяснил, что это можно сделать с помощью "WailForSingleObject".

Браузер генерирует событие. Я бы на эту функцию не надеялся.
Можно описать для WB событие загрузки документа, в котором будет устанавливаться некая переменка, которую будет ждать поток циклом типа

while not flag do sleep(100);

Где flag - Boolean свойство класса потока.

[come-on]

Есть подозрение что и браузер тут тоже не нужен.

[bilibian]

Stilet, Спасибо!

[SQLPowerUser]

Зачем создавать ещё одну тему? К тому же я ответил
http://programmersforum.ru/showthread.php?t=284580