[w1zard]

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

[w1zard]

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

Код:

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]

Код:

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.

Код:

var
  CurDispatch: IDispatch; {save the interface globally }

procedure TForm1.WebBrowser1NavigateComplete2(Sender: TObject; const pDisp: IDispatch; var URL: OleVariant);

begin
  if CurDispatch = nilthen
    CurDispatch := pDisp; { save for comparison }
end;
procedure TForm1.WebBrowser1DocumentComplete(Sender: TObject; const pDisp: IDispatch; var URL: OleVariant);
begin
  if (pDisp = CurDispatch) then
  begin
    Beep; {the document is loaded, not just a frame }
    CurDispatch := nil; {clear the global variable }
  end;
end;