CppWebBrowser学习笔记四判断网页加载完成

  在使用CppWebBrowser 的DocumentComplete的时候，会发现，加载多帧页面的时候，该函数会被多次调用，要想判断全部页面加载完成，需要加个判断。

代码如下：

void __fastcall TForm1::CppWebBrowser1DocumentComplete(TObject *Sender,
      LPDISPATCH pDisp, Variant *URL)
{
Memo1->Lines->Add("Complete"); //每次触发的Complete
if(pDisp==CppWebBrowser1->DefaultDispatch) // TWebBrowser用DefaultInterface或DefaultDispatch都正常
  {
       Memo1->Lines->Add("all Complete!"); //最后触发的Complete
       //TodoSomething();
  }

}

示例如下：

点击按钮5，可以看到效果。

void __fastcall TForm1::Button5Click(TObject *Sender)
{
  CppWebBrowser1->Navigate(WideString("http://www.bcbgame.com"));

}

以上代码在WinXP BCB6.0 编译调试通过