浏览器X 的设计 32 附录六 部分源代码 1、浏览 完成浏览器必需的浏览功能
//--------------------------------------------------------------------------- #include #pragma hdrstop #include "CWin
h" #include //--------------------------------------------------------------------------- #pragma package(smart_init) #pragma link "SHDocVw_OCX" #pragma resource "*
dfm" TForm1 *Form1; //--------------------------------------------------------------------------- __fastcall TForm1::TForm1(TComponent* Owner) : TForm(Owner) { //设置浏览器起始页面 //空白页 TVariant *starturl=new TVariant(CppWebBrowser1->Path+"blank") ; CppWebBrowser1->Navigate2(starturl) ; } //--------------------------------------------------------------------------- 浏览器X 的设计 33 void __fastcall TForm1::CppWebBrowser1BeforeNavigate2(TObject *Sender, LPDISPATCH pDisp, TVariant *URL,