[w1zard]

Друзья, подскажите пожалуйста как поступить..
Нужно выполнить действие после полной загрузки страницы в Webbrowser со всеми фреймами и прочим.
Когда цепляю действие на событие "OnDocumentComplete" оно дублируется несколько раз.
Нагуглил, что действие на данном событии может срабатывать несколько раз. Но как поступить, если нужно только одно срабатывание?

[w1zard]

Разобрался...
Вот пример, если кому вдруг нужно будет.

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21

procedure TForm1.WebBrowser1DocumentComplete(Sender: TObject;                const pDisp: IDispatch; var URL: OLEvariant); var   CurWebrowser : IWebBrowser;   TopWebBrowser: IWebBrowser;   Document     : OLEvariant;   WindowName   : string; begin { TForm1.WebBrowser1DocumentComplete }   CurWebrowser := pDisp as IWebBrowser;   TopWebBrowser := (Sender as TWebBrowser).DefaultInterface;   if CurWebrowser=TopWebBrowser then   begin     ShowMessage('Document is complete.')   end   else   begin     Document := CurWebrowser.Document;     WindowName := Document.ParentWindow.Name;     ShowMessage('Frame ' + WindowName + ' is loaded.')   end; end;

[lmikle]

Можно еще проще.
У WebBrowser'а есть свойство, которое выставляется в TRUE, когда загрузка полностью закончена. Достаточно в цикле просто проверять это свойство. Как называется - на вскидку не помню, но погугли.

[NumLock]

Код:

1 2 3 4 5 6 7

var   url: OleVariant; begin   url:='http://www.delphisources.ru/';   WebBrowser.Navigate2(url);   while WebBrowser.ReadyState<>READYSTATE_COMPLETE do Application.ProcessMessages; end;

а это из файла справки Delphi 6:

This example shows how to detect when a document is completely loaded, even if it includes multiple frames. Only the final OnDocumentComplete event passes the same Dispatch interface as the OnNavigateComplete event handler.

Код: