文档介绍：附录六
部分源代码
1、浏览
完成浏览器必需的浏览功能。
//---------------------------------------------------------------------------
#include <>
#pragma hdrstop
#include ""
#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) ;
}
//---------------------------------------------------------------------------
void __fastcall TForm1::CppWebBrowser1BeforeNavigate2(TObject *Sender,
LPDISPATCH pDisp, TVariant *URL, TVariant *Flags,
TVariant *TargetFrameName, TVariant *PostData, TVariant *Headers,
TOLEBOOL *Cancel)
{
//修改地址栏为当前页面网址
AddrBar->Text = *URL ;
}
//---------------------------------------------------------------------------
void __fastcall TForm1::StartBrowseClick(TObject *Sender)
{
//按钮 go ;浏览
//鼠标点击按钮,开始浏览地址栏中请求网页
//默认,回车键
TVariant *url=new TVariant(AddrBar->Text);
CppWebBrowser1->Navigate2(url) ;
}
//---------------------------------------------------------------------------
void __fastcall TForm1::stopClick(TObject *Sender)
{
//按钮 stop ;停止