CB6中使用浏览器控件的一些操作

浏览器的表现形式丰富，适度的使用能使界面增色不少，介绍一下CB6中TCppWebBrowser控件的一些用法

分开说比较麻烦，从以前的工程里找了一个完整网页贴过来

网页：

<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN">

<html>

<head>

input {border:1px solid #000000}

<!--

-->

</style>

<!--

function MM_preloadImages() { //v3.0

var d=document; if(d.images){ if(!d.MM_p) d.MM_p=new Array();

var i,j=d.MM_p.length,a=MM_preloadImages.arguments; for(i=0; i<a.length; i++)

if (a[i].indexOf("#")!=0){ d.MM_p[j]=new Image; d.MM_p[j++].src=a[i];}}

}

function MM_swapImgRestore() { //v3.0

var i,x,a=document.MM_sr; for(i=0;a&&i<a.length&&(x=a[i])&&x.oSrc;i++) x.src=x.oSrc;

}

function MM_findObj(n, d) { //v4.01

var p,i,x; if(!d) d=document; if((p=n.indexOf("?"))>0&&parent.frames.length) {

d=parent.frames[n.substring(p+1)].document; n=n.substring(0,p);}

if(!(x=d[n])&&d.all) x=d.all[n]; for (i=0;!x&&i<d.forms.length;i++) x=d.forms[i][n];

for(i=0;!x&&d.layers&&i<d.layers.length;i++) x=MM_findObj(n,d.layers[i].document);

if(!x && d.getElementById) x=d.getElementById(n); return x;

}

function MM_swapImage() { //v3.0

var i,j=0,x,a=MM_swapImage.arguments; document.MM_sr=new Array; for(i=0;i<(a.length-2);i+=3)

if ((x=MM_findObj(a[i]))!=null){document.MM_sr[j++]=x; if(!x.oSrc) x.oSrc=x.src; x.src=a[i+2];}

}

//-->

</script>

<!--

td {

font-family: "Arial";

font-size: 12px;

color: #990000;

cursor: default;

}

.jiben {

font-family: "Arial";

font-size: 12px;

font-weight: bold;

color: #990000;

cursor: default;

}

-->

</style>

</head>

<tr>

<tr>

<tr>

<td valign="middle" 4>8751免费点歌登陆</td>

<tr>

</tr>

</table>

</div></td>

</tr>

</table>

</div></td>

</tr>

</table></td>

</tr>

<tr>

<tr>

<tr>

<tr>

<tr>

</tr>

<tr>

<td colspan="2" ><div align="center" class="jiben">基

本信息</div></td>

</tr>

<tr >

</tr>

<tr >

</tr>

<tr >

</tr>

<tr >

</tr>

</table></td>

</tr>

</table></td>

</tr>

<tr>

</tr>

<tr>

</tr>

<tr>

</tr>

</table></td>

</tr>

</table></td>

</tr>

</table>

</body>

</html>

#ifndef AddFriendFormH

#define AddFriendFormH

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

#include <Classes.hpp>

#include <Controls.hpp>

#include <StdCtrls.hpp>

#include <Forms.hpp>

#include "SHDocVw_OCX.h"

#include <OleCtrls.hpp>

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

class TfrmAddFriend : public TForm

{

__published: // IDE-managed Components

TCppWebBrowser *CppWebBrowserAddFriend;

void __fastcall FormCreate(TObject *Sender);

void __fastcall CppWebBrowserAddFriendDocumentComplete(TObject *Sender,

LPDISPATCH pDisp, Variant *URL);

void __fastcall FormDestroy(TObject *Sender);

private:

void MoveFormEvt(DISPID id, VARIANT* pVarResult);

void MoveForm(void);

void MaskEvt(DISPID id, VARIANT* pVarResult);

void SetBrowserStyle(void);

void CancelEvt(void);

void ReleaseHook(void);

void AddFriendOnClick(DISPID id, VARIANT* pVarResult);

AnsiString GetInputValue(AnsiString itemname);

void OnKeyPressEvt(DISPID id, VARIANT* pVarResult);

void SetFocusInput(AnsiString itemname);

void PutInputValue(AnsiString itemname, AnsiString value); // User declarations

public: // User declarations

AnsiString MbNum;

AnsiString FriendName;

AnsiString ID8751;

AnsiString Info;

__fastcall TfrmAddFriend(TComponent* Owner);

};

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

extern PACKAGE TfrmAddFriend *frmAddFriend;

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

#endif

.cpp

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

#include <vcl.h>

#pragma hdrstop

#include "AddFriendForm.h"

#include "GlobalFunc.h"

#include "GlobalVar.h"

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

#pragma package(smart_init)

#pragma link "SHDocVw_OCX"

#pragma resource "*.dfm"

TfrmAddFriend *frmAddFriend;

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

__fastcall TfrmAddFriend::TfrmAddFriend(TComponent* Owner)

: TForm(Owner)

{

}

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

void __fastcall TfrmAddFriend::FormCreate(TObject *Sender)

{

this->CppWebBrowserAddFriend->HandleNeeded();

this->CppWebBrowserAddFriend->Navigate(WideString(GetResPath("AddFriends.htm")),NULL,NULL,NULL,NULL);

CutFormRgn(Handle,316,225);

}

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

void TfrmAddFriend::MoveFormEvt(DISPID id, VARIANT* pVarResult)

{

//TODO: Add your source code here

_di_IDispatch disp;

System::DelphiInterface<IHTMLDocument2> htmldoc2;

System::DelphiInterface<IHTMLWindow2> htmlwnd2;

System::DelphiInterface<IHTMLEventObj> htmlevt;

System::DelphiInterface<IHTMLElement> htmlelem;

disp = this->CppWebBrowserAddFriend->Document;

if(!disp)

return;

htmldoc2 = disp;

htmldoc2->get_parentWindow(&htmlwnd2);

htmlwnd2->get_event(&htmlevt);

htmlevt->get_srcElement(&htmlelem);

WideString _tag;

htmlelem->get_tagName(&_tag);

long btn,_x,_y;

htmlevt->get_button(&btn);

htmlevt->get_screenX(&_x);

htmlevt->get_screenY(&_y);

if(_tag == WideString("TD") && btn == 1)

{

::ReleaseCapture();

::SendMessage(Handle,WM_NCLBUTTONDOWN,HTCAPTION,MAKELPARAM(_x,_y));

}

pVarResult->vt = VT_BOOL;

pVarResult->boolVal = FALSE;

}

void TfrmAddFriend::MoveForm(void)

{

//TODO: Add your source code here

_di_IDispatch disp;

System::DelphiInterface<IHTMLDocument2> htmldoc2;

System::DelphiInterface<IHTMLElementCollection> htmlelemcoll;

System::DelphiInterface<IHTMLElement> htmlelem;

disp = this->CppWebBrowserAddFriend->Document;

if(!disp)

return;

htmldoc2 = disp;

htmldoc2->get_all(&htmlelemcoll);

htmlelemcoll->item(TVariant("moveform"),TVariant(0),&disp);

htmlelem = disp;

TVariant OnfrmMosuseDown;

OnfrmMosuseDown = CFunctionObject<TfrmAddFriend>::CreateEventFunctionObject(this,&TfrmAddFriend::MoveFormEvt,0);

htmlelem->put_onmousedown(OnfrmMosuseDown);

}

void TfrmAddFriend::MaskEvt(DISPID id, VARIANT* pVarResult)

{

//TODO: Add your source code here

_di_IDispatch disp;

System::DelphiInterface<IHTMLDocument2> htmldoc2;

System::DelphiInterface<IHTMLWindow2> htmlwnd2;

System::DelphiInterface<IHTMLEventObj> htmlevt;

System::DelphiInterface<IHTMLElement> htmlelem;

disp = this->CppWebBrowserAddFriend->Document;

if(!disp)

return;

htmldoc2 = disp;

htmldoc2->get_parentWindow(&htmlwnd2);

htmlwnd2->get_event(&htmlevt);

htmlevt->get_srcElement(&htmlelem);

WideString _tag;

htmlelem->get_tagName(&_tag);

if(_tag == WideString("INPUT"))

return;

pVarResult->vt = VT_BOOL;

pVarResult->boolVal = FALSE;

}

void TfrmAddFriend::CancelEvt(void)

{

//TODO: Add your source code here

_di_IDispatch disp;

System::DelphiInterface<IHTMLDocument2> htmldoc2;

System::DelphiInterface<IHTMLElement> htmlelem;

System::DelphiInterface<IHTMLElement2> htmlelem2;

disp = this->CppWebBrowserAddFriend->Document;

if(!disp)

return;

htmldoc2 = disp;

htmldoc2->get_body(&htmlelem);

htmlelem2 = htmlelem;

TVariant vt;

vt = CFunctionObject<TfrmAddFriend>::CreateEventFunctionObject(this,&TfrmAddFriend::MaskEvt,0);

htmlelem->put_onselectstart(vt);

htmlelem2->put_oncontextmenu(vt);

}

void TfrmAddFriend::SetBrowserStyle(void)

{

//TODO: Add your source code here

_di_IDispatch disp;

System::DelphiInterface<IHTMLDocument2> htmldoc2;

System::DelphiInterface<IHTMLElement> htmlelem;

System::DelphiInterface<IHTMLBodyElement> htmlbody;

System::DelphiInterface<IHTMLStyle> htmlsty;

disp = this->CppWebBrowserAddFriend->Document;

if(!disp)

return;

htmldoc2 = disp;

htmldoc2->get_body(&htmlelem);

htmlbody = htmlelem;

htmlbody->put_scroll(WideString("no"));

htmlelem->get_style(&htmlsty);

htmlsty->put_border(WideString("none"));

}

void TfrmAddFriend::ReleaseHook(void)

{

//TODO: Add your source code here

_di_IDispatch disp;

System::DelphiInterface<IHTMLDocument2> htmldoc2;

System::DelphiInterface<IHTMLElementCollection> htmlelemcoll;

System::DelphiInterface<IHTMLElement> htmlelem;

System::DelphiInterface<IHTMLElement2> htmlelem2;

disp = this->CppWebBrowserAddFriend->Document;

if(!disp)

return;

htmldoc2 = disp;

htmldoc2->get_all(&htmlelemcoll);

htmlelemcoll->item(TVariant("moveform"),TVariant(0),&disp);

htmlelem = disp;

VARIANT varNull;

varNull.vt = VT_NULL;

htmlelem->put_onmousedown(varNull);

htmldoc2->get_body(&htmlelem);

htmlelem->put_onselectstart(varNull);

htmlelem->put_onclick(varNull);

htmlelem->put_onkeypress(varNull);

htmlelem2 = htmlelem;

htmlelem2->put_oncontextmenu(varNull);

}

AnsiString TfrmAddFriend::GetInputValue(AnsiString itemname)

{

//TODO: Add your source code here

AnsiString rtn = "";

_di_IDispatch disp;

System::DelphiInterface<IHTMLDocument2> htmldoc2;

System::DelphiInterface<IHTMLElement> htmlelem;

System::DelphiInterface<IHTMLElementCollection> htmlelemcoll;

disp = this->CppWebBrowserAddFriend->Document;

if(!disp)

return rtn;

htmldoc2 = disp;

htmldoc2->get_all(&htmlelemcoll);

htmlelemcoll->item(TVariant(itemname),TVariant(0),&disp);

htmlelem = disp;

TVariant val;

htmlelem->getAttribute(WideString("value"),0,&val);

rtn = val.bstrVal;

return rtn;

}

void TfrmAddFriend::PutInputValue(AnsiString itemname, AnsiString value)

{

//TODO: Add your source code here

_di_IDispatch disp;

System::DelphiInterface<IHTMLDocument2> htmldoc2;

System::DelphiInterface<IHTMLElement> htmlelem;

System::DelphiInterface<IHTMLElementCollection> htmlelemcoll;

disp = this->CppWebBrowserAddFriend->Document;

if(!disp)

return;

htmldoc2 = disp;

htmldoc2->get_all(&htmlelemcoll);

htmlelemcoll->item(TVariant(itemname),TVariant(0),&disp);

htmlelem = disp;

htmlelem->setAttribute(WideString("value"),TVariant(value),0);

}

void TfrmAddFriend::AddFriendOnClick(DISPID id, VARIANT* pVarResult)

{

//TODO: Add your source code here

_di_IDispatch disp;

System::DelphiInterface<IHTMLDocument2> htmldoc2;

System::DelphiInterface<IHTMLWindow2> htmlwnd2;

System::DelphiInterface<IHTMLEventObj> htmlevt;

System::DelphiInterface<IHTMLElement> htmlelem;

disp = this->CppWebBrowserAddFriend->Document;

if(!disp)

return;

htmldoc2 = disp;

htmldoc2->get_parentWindow(&htmlwnd2);

htmlwnd2->get_event(&htmlevt);

htmlevt->get_srcElement(&htmlelem);

WideString ws;

bool flag;

ws.SetLength(64);

htmlelem->get_tagName(&ws);

if(ws == WideString("IMG"))

{

TVariant val;

htmlelem->getAttribute(WideString("name"),0,&val);

AnsiString str;

str = val.bstrVal;

if(str == WideString("closeform"))

{

this->Close();

}

else if(str == WideString("minform"))

{

this->WindowState = wsMinimized ;

}

else if(str == WideString("Ok"))

{

this->MbNum = this->GetInputValue("MbNum");

this->FriendName = this->GetInputValue("Name");

this->ID8751 = this->GetInputValue("ID");

this->Info = this->GetInputValue("MemTextArea");

this->ModalResult = mrOk;

this->Close();

}

else if(str == WideString("Cancel"))

{

this->ModalResult = mrCancel;

this->Close();

}

pVarResult->vt = VT_BOOL;

pVarResult->boolVal = FALSE;

}

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

void __fastcall TfrmAddFriend::CppWebBrowserAddFriendDocumentComplete(

TObject *Sender, LPDISPATCH pDisp, Variant *URL)

{

this->CancelEvt();

this->SetBrowserStyle();

this->MoveForm();

_di_IDispatch disp;

System::DelphiInterface<IHTMLDocument2> htmldoc2;

System::DelphiInterface<IHTMLElement> htmlelem;

disp = this->CppWebBrowserAddFriend->Document;

if(!disp)

return;

htmldoc2 = disp;

htmldoc2->get_body(&htmlelem);

TVariant vt;

vt = CFunctionObject<TfrmAddFriend>::CreateEventFunctionObject(this,&TfrmAddFriend::AddFriendOnClick,0);

htmlelem->put_onclick(vt);

vt = CFunctionObject<TfrmAddFriend>::CreateEventFunctionObject(this,&TfrmAddFriend::OnKeyPressEvt,0);

htmlelem->put_onkeypress(vt);

this->SetFocusInput("MbNum");

}

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

void TfrmAddFriend::OnKeyPressEvt(DISPID id, VARIANT* pVarResult)

{

//TODO: Add your source code here

_di_IDispatch disp;

System::DelphiInterface<IHTMLDocument2> htmldoc2;

System::DelphiInterface<IHTMLWindow2> htmlwnd2;

System::DelphiInterface<IHTMLEventObj> htmlevt;

disp = this->CppWebBrowserAddFriend->Document;

if(!disp)

return;

htmldoc2 = disp;

htmldoc2->get_parentWindow(&htmlwnd2);

htmlwnd2->get_event(&htmlevt);

long key;

htmlevt->get_keyCode(&key);

if(int(key) == 13)

{

this->MbNum = this->GetInputValue("MbNum");

this->FriendName = this->GetInputValue("Name");

this->ID8751 = this->GetInputValue("ID");

this->Info = this->GetInputValue("MemTextArea");

this->ModalResult = mrOk;

this->Close();

pVarResult->vt = VT_BOOL;

pVarResult->boolVal = FALSE;

}

if(int(key) == 27)

{

this->Close();

pVarResult->vt = VT_BOOL;

pVarResult->boolVal = FALSE;

}

void TfrmAddFriend::SetFocusInput(AnsiString itemname)

{

//TODO: Add your source code here

_di_IDispatch disp;

System::DelphiInterface<IHTMLDocument2> htmldoc2;

System::DelphiInterface<IHTMLElementCollection> htmlelemcoll;

System::DelphiInterface<IHTMLElement2> htmlelem2;

disp = this->CppWebBrowserAddFriend->Document;

if(!disp)

return;

htmldoc2 = disp;

htmldoc2->get_all(&htmlelemcoll);

htmlelemcoll->item(TVariant(itemname),TVariant(0),&disp);

if(!disp)

return;

htmlelem2 = disp;

htmlelem2->focus();

}

void __fastcall TfrmAddFriend::FormDestroy(TObject *Sender)

{

this->ReleaseHook();

}