unit1.cpp

C++Builder高级应用开发指南随书源码

//---------------------------------------------------------------------------

#include <vcl.h>
#pragma hdrstop

#include "Unit1.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma link "SHDocVw_OCX"
#pragma resource "*.dfm"
TForm1 *Form1;
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
        : TForm(Owner)
{
   CurDispatch = NULL; //初始化
}
//---------------------------------------------------------------------------
void __fastcall TForm1::ToolButton5Click(TObject *Sender)
{
   OleVariant TargetFrameName,PostData,Heads,Flags;
   WideString URL;
   TargetFrameName=AnsiString("");//指定Frame为空字符串时,则在当前Frame中打开网页
   PostData = OleVariant(false);//不发送数据
   Heads =AnsiString("");//Header信息为空
   Flags = OleVariant(0);//Flags设为0
   URL = Edit1->Text;
   CppWebBrowser1->Navigate(URL,Flags,TargetFrameName,PostData,Heads);
}
//---------------------------------------------------------------------------
void __fastcall TForm1::N2Click(TObject *Sender)
{
    Close();
}
//---------------------------------------------------------------------------
void __fastcall TForm1::ToolButton6Click(TObject *Sender)
{  //刷新当前页
   CppWebBrowser1->Refresh();
}
//---------------------------------------------------------------------------
void __fastcall TForm1::ToolButton4Click(TObject *Sender)
{  //停止当前操作
   CppWebBrowser1->Stop();
}
//---------------------------------------------------------------------------
void __fastcall TForm1::ToolButton2Click(TObject *Sender)
{  //后退一页
   CppWebBrowser1->GoBack();
}
//---------------------------------------------------------------------------
void __fastcall TForm1::ToolButton3Click(TObject *Sender)
{  //前进一页
   CppWebBrowser1->GoForward();
}
//---------------------------------------------------------------------------
void __fastcall TForm1::ToolButton7Click(TObject *Sender)
{  //回首页
   CppWebBrowser1->GoHome();
}
//---------------------------------------------------------------------------
void __fastcall TForm1::ToolButton8Click(TObject *Sender)
{   //传到默认搜索页
    CppWebBrowser1->GoSearch();
}
//---------------------------------------------------------------------------
void __fastcall TForm1::CppWebBrowser1ProgressChange(TObject *Sender,
      long Progress, long ProgressMax)
{
   if(ProgressMax==0||Progress==-1) return;
   StatusBar1->SimpleText="已下载"+AnsiString(100*Progress/ProgressMax)+"%";     
}
//---------------------------------------------------------------------------

void __fastcall TForm1::CppWebBrowser1TitleChange(TObject *Sender,
      BSTR URL)
{                      
   Form1->Caption=URL;        
}
//---------------------------------------------------------------------------


void __fastcall TForm1::CppWebBrowser1NavigateComplete2(TObject *Sender,
      LPDISPATCH pDisp, TVariant *URL)
{
  // 保存用于比较
  if (!CurDispatch) CurDispatch = pDisp;
}
//---------------------------------------------------------------------------

void __fastcall TForm1::CppWebBrowser1DocumentComplete(TObject *Sender,
      LPDISPATCH pDisp, TVariant *URL)
{
  if (pDisp == CurDispatch) 
  {
    //整个文档，包括其所有的框架都下载完毕
    StatusBar1->SimpleText="下载完毕";
    //清空工作变量
    CurDispatch = NULL; 
  }
}       
//---------------------------------------------------------------------------

void __fastcall TForm1::Edit1KeyDown(TObject *Sender, WORD &Key,
      TShiftState Shift)
{
  if (Key == VK_RETURN)//检查是否是按下回车键
  { //调用连接按钮的OnClick事件处理函数
    ToolButton5Click(Sender);
  }
}
//---------------------------------------------------------------------------