VC与JavaScript混合编程

精选转载

wellwy 2011-02-12 17:06:48 博主文章分类：Web

文章标签 职场 JavaScript 休闲 文章分类 Java 后端开发

ATL IWebBrowser2

一、JavaScript调用VC的函数

1.编写Activex控件，在JavaScript中创建控件对象，并调用控件提供的方法

二、VC调用JavaScript的函数

关键是获取IWebBrowser2对象和IHTMLDocument对象及Script接口(IDispatch自动化接口)。

客户站点(m_pClientSite)->ServiceProvider->TopLevelBrowser->WebBrowserApp(IWebBrowser2)->Document(IHTMLDocument)->Script接口->JavaScript函数

1.实现COleContrl子类的虚函数CXXXCtrl::OnSetClientSite

try {

LPOLECLIENTSITE pClientSite = GetClientSite();

if(pClientSite == NULL)

return;

IServiceProvider *isp = NULL;

HRESULT hr = pClientSite->QueryInterface(IID_IServiceProvider, reinterpret_cast(&isp)); //COM对象指针获取一般利用QueryInterface函数

if (FAILED(hr)) return;

IServiceProvider *isp2 = NULL;

hr = isp->QueryService(SID_STopLevelBrowser, IID_IServiceProvider, reinterpret_cast(&isp2));

isp->Release();

if (FAILED(hr)) return;

IWebBrowser2* browser = NULL;

hr = isp2->QueryService(SID_SWebBrowserApp, IID_IWebBrowser2, reinterpret_cast(&browser));

isp2->Release();

if (FAILED(hr)) return;

IHTMLDocument* doc = NULL;

hr=browser->get_Document((IDispatch**)&doc);

browser->Release();

if(FAILED(hr)) return;

// IDispatch* script = NULL;

hr=doc->get_Script(&g_script);

// m_script = &script;

doc->Release();

if(FAILED(hr))

{

g_script = NULL;

return;

}

catch(...) {

}

COleControl::OnSetClientSite();

其中g_script是全局变量(IDispatch*)，此处最好做成全局变量，因为随着窗口的弹出和关闭，CXXXCtrl类的对象很有可能会不停的变化，如果是成员变量，则该变量的值很有可能在程序执行过程中被改变。

2.在需要调用JavaScript函数的地方输入如下例所示的代码:

try

{

if( NULL != g_script )

{

OLECHAR FAR* sClose = L"SelfClose"; //页面的javascript函数

DISPID dispid;

HRESULT hr=g_script->GetIDsOfNames(IID_NULL,&sClose,1,LOCALE_SYSTEM_DEFAULT,&dispid);

if(FAILED(hr)) return;

DISPPARAMS dpNoArgs = {NULL, NULL, 0, 0};

g_script->Invoke(dispid,IID_NULL,0,DISPATCH_METHOD,&dpNoArgs,NULL,NULL,NULL);

g_script->Release();

}

catch(...){

}

IDispatch(Automation技术) IScriptControl接口

一、JavaScript调用VC的函数

利用Automation技术。从IDispatch派生的类，并实现IDispatch的主要函数，尤其是GetIDsOfNames和Invoke。AppWizard简化了制作过程。

1.利用Automation的AppWizard(exe)。

在基于对话框的应用程序向导过程的Step 2 of 4中，what other support would you like to include选择Automation

在基于文档视图的应用程序向导过程的Step 3 of 6中，what other support would you like to include选择Automation，在Step 4 of 6中，单击"Advanced"按钮，在File type ID 中输入该自动化组件的名字，也就是javascript中的new ActivexObject(File type ID);中的参数。

2.添加方法和属性

利用类向导，其中Class name选择CXXXAutoProxy，添加函数和属性，与Activex类似

3.在JavaScript中:

3.1 创建组件对象 var obj = new ActiveXObject("JSCallVC.Application"); //JSCallVC.Application为组件对象名，基于对话框的应用程序可以从CXXXAutoProxy实现文件，一般为DlgProxy.cpp，中找到IMPLEMENT_OLECREATE2，其第二个参数即为组件对象名。

3.2 利用组件对象obj调用VC提供的方法和属性如obj.AddTow(4,5);

二、VC调用JavaScript的函数

利用IScriptControlPtr接口(IDispatch)执行JavaScript函数，具体过程如下:

1.include控件msscript.ocx:

#import "C:\windows\system32\msscript.ocx" // msscript.ocx

using namespace MSScriptControl;

2.在需要调用JavaScript函数的地方输入如下例所示的代码,注意:JavaScript函数中不能有跟网页有关的函数，如alert——window.alert

HRESULT hr = CoInitialize(NULL);

IScriptControlPtr pScriptControl(__uuidof(ScriptControl));

pScriptControl->Language = "JavaScript";

pScriptControl->AllowUI = TRUE; //很重要

//{{将整个文件的内容付给strCode，即AddCode函数的参数