TWebBrowser модель DOM

[Rolls]

Здравствуйте, форумчане!
Происходит какая-то нелогичная ситуация, уже голову сломал, как её обмануть, если кто в курсе, буду очень рад!
Дело в следующем:

загружаю страничку по ссылке в TwebBrowser, потом в переменную типа Variant считываю.
Вот две основные строчки:

var
  Doc : Variant;
...
wb1.Navigate(SearchURLGlob);
Doc := wb1.OleObject.document;

Так вот если эти строчки висят на двух кнопках, то всё ок, а если на одной кнопке, как в примере (просто одна за другой), то Doc постоянно равен nill.

Внимание! пытался бороться с этим таким образом: в обработчик события WebBrowsera OnDocumentComplete вписал код

WbLoaded := True;

а после wb1.Navigate код

 while not WbLoaded do
    Application.ProcessMessages;

работает через раз (лучше б уже совсем не работало).

Ещё вешал wb1.navigate на другую кнопку и программно вызывал её нажатие - опять же через раз отрабатывает правильно ( а то и через пять).

Внимание2!

если перед проверкой переменно DOC на пустоту вывести её через ShowMessage, то происходит чудо! через раз она отображается пучтойЮ но в МЕМО всегда записывается правильно!

кто знает как заставить строчку Doc := wb1.OleObject.document работать после ПОЛНОЙ загрузки WB, отзовитесь!

[evg_m]

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

Doc := wb1.OleObject.document;

ее при наступлении события

после ПОЛНОЙ загрузки WB

Oncompleted кажется так.

в обработчик события WebBrowsera OnDocumentComplete вписал код

а почему сюда не вписать

Doc := wb1.OleObject.document;

и ПЕРЕД загрузкой новой страницы очищать
doc:=nil;
wb1.navigate(...);

[maxidon]

после

wb1.navigate(...);

вставляешь вот это

while form1.wb.ReadyState<>4 do Application.ProcessMessages;

и он не будет ничего делать пока этот цикл не завершиться

[Rolls]

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

после

wb1.navigate(...);

вставляешь вот это

while form1.wb.ReadyState<>4 do Application.ProcessMessages;

и он не будет ничего делать пока этот цикл не завершиться

к сожалению этот вариант не канает

[eval]

OnDocumentComplete может вызыватся несколько раз, вам надо ждать последнего