unit1.cpp

开发环境c++ builder 6.0。主要功能是实现ie浏览器

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

#include <vcl.h>
#pragma hdrstop

#include "Unit1.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma link "SHDocVw_OCX"
#pragma resource "*.dfm"
TWebMain *WebMain;
BSTR newURL;



   
//---------------------------------------------------------------------------
__fastcall TWebMain::TWebMain(TComponent* Owner)
        : TForm(Owner)
{

}
//---------------------------------------------------------------------------
void __fastcall TWebMain::URLComboBoxClick(TObject *Sender)
{
 if(URLComboBox->Text!="")
  HTML->Navigate(WideString(URLComboBox->Text));

}
//---------------------------------------------------------------------------
void __fastcall TWebMain::URLComboBoxKeyPress(TObject *Sender, char &Key)
{
if(Key==VK_RETURN)
{
 /* Key=0;
  if(URLComboBox->Text=="")return;
  URLComboBox->Items->Insert(0,URLComboBox->Text);
  URLComboBoxClick(Sender);
                        */


   




  }

    }
//---------------------------------------------------------------------------
void __fastcall TWebMain::gobtnClick(TObject *Sender)
{
  URLComboBoxClick(0);
}
//---------------------------------------------------------------------------
void __fastcall TWebMain::zhuandaoClick(TObject *Sender)
{
 URLComboBoxClick(0);

}
//---------------------------------------------------------------------------

void __fastcall TWebMain::qianjinClick(TObject *Sender)
{
  HTML->GoForward();

}
//---------------------------------------------------------------------------

void __fastcall TWebMain::houtuiClick(TObject *Sender)
{
  HTML->GoBack();

}
//---------------------------------------------------------------------------

void __fastcall TWebMain::zhuyeClick(TObject *Sender)
{
 HTML->GoHome();

}
//---------------------------------------------------------------------------

void __fastcall TWebMain::shuaxinClick(TObject *Sender)
{
  HTML->Refresh();

}
//---------------------------------------------------------------------------
  
void __fastcall TWebMain::HTMLNewWindow2(TObject *Sender,
      LPDISPATCH *ppDisp, VARIANT_BOOL *Cancel)
{

       TVariant url(newURL);
       TVariant flag("_self");
       HTML->Navigate2(url,NULL,flag,NULL,NULL);

       *Cancel=true;
}
//---------------------------------------------------------------------------

void __fastcall TWebMain::StatusBar1Click(TObject *Sender)
{
     /*TProgressBar   *   aa;
      aa   =   new   TProgressBar(StatusBar1);
      aa->Parent   =   StatusBar1;
      aa->Left   =   350;
      aa->Top     =   4;
      aa->Height   =   StatusBar1->Height-6;
      进度条*/
      }
//---------------------------------------------------------------------------

void __fastcall TWebMain::FormShow(TObject *Sender)
{
      URLComboBoxClick(0);

}
//---------------------------------------------------------------------------

void __fastcall TWebMain::HTMLStatusTextChange(TObject *Sender, BSTR URL)
{

   StatusBar1->SimpleText   =   URL;
   newURL = URL;

}
//---------------------------------------------------------------------------


void __fastcall TWebMain::HTMLDocumentComplete(TObject *Sender,
      LPDISPATCH pDisp, Variant *URL)
{
       URLComboBox->Text=HTML->LocationURL;

          if   (TCppWebBrowser*   wb   =   dynamic_cast<TCppWebBrowser*>(Sender))
                  Variant(wb->Document).OlePropertyGet("body").OlePropertyGet("style").OlePropertySet("border",   WideString("none"));
          //去掉CppWebBrowser的边框

}
//---------------------------------------------------------------------------

void __fastcall TWebMain::FormCreate(TObject *Sender)
{
  BorderStyle=bsNone;  
      Left   =0;
      Top   =0;  
      WindowState=wsMaximized;
      Width=Screen->Width   ;  
      Height=Screen->Height;
      //全屏


      WideString   str;
      str   =  "http://www.jlagri.gov.cn/"   ;   //左边广告栏

      CppWebBrowser1->Navigate(str);

      str   =     "http://www.hao123.com/ " ;       //右边广告栏
       CppWebBrowser2->Navigate(str);

      m_bOver   =   0;


   //str   =   ExtractFileDir(Application->ExeName)   +   "\\HTML\\index.htm"   ;

}
//---------------------------------------------------------------------------

void   __fastcall   TWebMain::OnWMSysCommand(TMessage&   Message)
{
  if(Message.WParam!=   SC_CLOSE   )  
  TForm::Dispatch(&Message);  
}
  //屏蔽Alt+F4

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



void __fastcall TWebMain::BitBtn5Click(TObject *Sender)
{
  URLComboBoxClick(0);
}
//---------------------------------------------------------------------------

void __fastcall TWebMain::BitBtn1Click(TObject *Sender)
{
 HTML->GoBack();       
}
//---------------------------------------------------------------------------

void __fastcall TWebMain::BitBtn2Click(TObject *Sender)
{
  HTML->GoForward();
      
}
//---------------------------------------------------------------------------

void __fastcall TWebMain::BitBtn3Click(TObject *Sender)
{
 HTML->Refresh();       
}
//---------------------------------------------------------------------------

void __fastcall TWebMain::BitBtn4Click(TObject *Sender)
{
 HTML->GoHome();       
}
//---------------------------------------------------------------------------


void __fastcall TWebMain::CppWebBrowser1NewWindow2(TObject *Sender,
      LPDISPATCH *ppDisp, VARIANT_BOOL *Cancel)
{
   TVariant url(newURL);
       TVariant flag("");
       HTML->Navigate2(url,NULL,flag,NULL,NULL);

        *Cancel=true;

}
//---------------------------------------------------------------------------

void __fastcall TWebMain::CppWebBrowser1StatusTextChange(TObject *Sender,
      BSTR URL)
{
    StatusBar1->SimpleText   =   URL;
   newURL = URL;     
}
//---------------------------------------------------------------------------


void __fastcall TWebMain::CppWebBrowser2NewWindow2(TObject *Sender,
      LPDISPATCH *ppDisp, VARIANT_BOOL *Cancel)
{
    TVariant url(newURL);
       TVariant flag("");
       HTML->Navigate2(url,NULL,flag,NULL,NULL);

        *Cancel=true;    
}
//---------------------------------------------------------------------------

void __fastcall TWebMain::CppWebBrowser2StatusTextChange(TObject *Sender,
      BSTR URL)
{
   StatusBar1->SimpleText   =   URL;
   newURL = URL;      
}
//---------------------------------------------------------------------------



    


void __fastcall TWebMain::CppWebBrowser1DocumentComplete(TObject *Sender,
      LPDISPATCH pDisp, Variant *URL)
{
//去掉滚动条
  IHTMLDocument2*   pDoc;
  IHTMLElement*   pEl;
  IHTMLBodyElement   *   pBodyEl;
  if(SUCCEEDED(CppWebBrowser1->Document->QueryInterface(IID_IHTMLDocument2,   (void**)&pDoc)))
  {
     if(SUCCEEDED(pDoc->get_body(&pEl)))
     {
      if   (SUCCEEDED(pEl->QueryInterface(IID_IHTMLBodyElement,   (void**)&pBodyEl)))
       {
           pBodyEl->put_scroll(L"no");
       }
  }
  }
   //去掉滚动条


}
//---------------------------------------------------------------------------

void __fastcall TWebMain::CppWebBrowser2DocumentComplete(TObject *Sender,
      LPDISPATCH pDisp, Variant *URL)
{

   IHTMLDocument2*   pDoc;
  IHTMLElement*   pEl;
  IHTMLBodyElement   *   pBodyEl;
  if(SUCCEEDED(CppWebBrowser2->Document->QueryInterface(IID_IHTMLDocument2,   (void**)&pDoc)))
  {
     if(SUCCEEDED(pDoc->get_body(&pEl)))
     {
      if   (SUCCEEDED(pEl->QueryInterface(IID_IHTMLBodyElement,   (void**)&pBodyEl)))
       {
           pBodyEl->put_scroll(L"no");
       }
  }
  }

}
//---------------------------------------------------------------------------