ActiveX异步回调JavaScript

 

版权声明

请尊重原创作品。转载请保持文章完整性，并以超链接形式注明原始作者“tingsking18”和主站点地址，方便其他朋友提问和指正。

 

ActiveX异步回调JavaScript

       开发环境：VC6.0。

       背景知识：COM/ActiveX/JavaScript/MFC/Thread

 

       想必用过Ajax的童鞋们都知道xmlhttp这个东西吧，通过设定onreadystatechange属性，我们就可以指定他状态改变的回调函数，当状态改变时，ActiveX控件就会调用我们通过onreadystatechange属性制定的回调函数。从而就出现了Ajax给我们带来的精彩。关于Ajax的技术我们这里不做讨论，我们的目的就是实现像xmlhttp这样具有异步回调JavaScript功能的ocx控件来。

 

       Let’s go!

 

1.       建立MFC ActiveX Control（方法略）

2.       在ClassWizard中添加属性callbackfunction属性，并为该属性生成get和set方法。我们将在ActiveX控件中开启线程，线程执行完后将调用通过该属性执行的JavaScript函数。在该实例中，通过callbackfunction属性指定的JavaScript函数必须是返回值是void的，并且含有一个short类型的参数的函数。

3.       我们需要一个方法来触发回调函数，添加方法Invoke包含一个short类型的参数param。在这个函数里将开启一个线程进行运算，然后返回计算结果。并把结果以回调函数的形式调用JavaScript的函数。

4.       在Invoke方法中开启线程。进行计算。线程同步的方法采用PostMessage自定义消息。这个很重要，否则的话，我们在线程中操作界面控件是不正确的。（我就是忘记了进行线程同步才多走了好多弯路）

#define WM_THREADFIREEVENT WM_USER+101

void f(void * r)

{

       CThirdCtrl* p = (CThirdCtrl*)r;

       Sleep(5000);

       p->m_param +=10;

        PostMessage(p->m_hWnd,WM_THREADFIREEVENT,(WPARAM)NULL,(LPARAM)NULL);

       return;

}

 

void CThirdCtrl::invoke(short param)

{

       m_param = param;

       _beginthread(f, 0, (void*)(this));

}

 

5.       添加THREADFIREEVENT 消息的消息映射函数：

ON_MESSAGE(WM_THREADFIREEVENT,OnFireEventForThread)

 

       6.    实现函数OnFireEventForThread：

LRESULT CThirdCtrl::OnFireEventForThread(WPARAM wParam, LPARAM lParam)

{

    //FireLengthyProcessDone();

       InvokeScript ();

       return TRUE;

}

7.   在实现InvokeScript前，先说一个重要的东西，就是OnSetClientSite这是一个CThirdCtrl 的父类ColeControl的一个虚方法。我们需要重写他来获得IWebBrowser2指针，有了IWebBrowser2我们就可以为所欲为了。比方说获得document对象，获得html中的elements，设定他们的属性，调用方法。也可以执行页面中的JavaScript函数。

      为获得顶层IWebBrowser2 引用, 从客户站点获取IServiceProvider接口并且执行一个QueryService 操作获取IID_IServiceProvider服务：SID_STopLevelBrowser (这在Shlguid.h中定义)；对第二个IServiceProvider，执行一个QueryService 获取IID_IWebBrowser2 服务：SID_SWebBrowserApp.

      上代码：

void  CThirdCtrl::OnSetClientSite()

{

     

      IOleClientSite*   pClientSite   =   GetClientSite(); 

     

      HRESULT   hr   =   S_OK; 

      IServiceProvider   *isp,   *isp2   =   NULL;//用于导航DHTML对象层次,作用就是提供服务 

     

      if   (!pClientSite) 

      { 

       if(browser!=NULL)

       {

              browser->Release();

              browser = NULL;

       }

       return;//   !S_OK; 

      } 

      else 

      { 

       hr   =   pClientSite->QueryInterface(IID_IServiceProvider,   reinterpret_cast<void   **>(&isp)); 

       if   (FAILED(hr))   

       { 

              hr   =   S_OK; 

              goto   cleanup; 

       } 

      

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

       if   (FAILED(hr)) 

       { 

              hr   =   S_OK; 

              goto   cleanup; 

       } 

      

       //获得浏览器 

       hr   =   isp->QueryService(SID_SWebBrowserApp,   IID_IWebBrowser2,   reinterpret_cast<void   **>(&browser));

       if   (FAILED(hr))   

       { 

              hr   =   S_OK; 

              goto   cleanup; 

       } 

      

cleanup: 

       //   Free   resources. 

       if(isp!=NULL)

       {

              isp->Release();

              isp = NULL;

       }

       if(isp2!=NULL)

       {

              isp2->Release();

              isp2 = NULL;

       }

       return;//   hr; 

      } 

     

      return;//   hr;

     

}

              同样的道理，如果我们是ATL做的ActiveX，则需要重写

STDMETHODIMP   CThirdCtrl::SetClientSite()

这个方法。

8.    下面就是最关键的InvokeScript函数的实现，我们在这里使用上面获取到的IWebBrowser2指针来获取document对象，然后获取Idispatch接口的script对象，然后调用Idispatch接口的Invoke方法。就可以调用JavaScript了。Idispatch接口真是强大啊。

废话少说，上代码：

void   CThirdCtrl::InvokeScript() 

{ 

if(!browser) 

{ 

        if(browser!=NULL)

        {

               browser->Release();

               browser = NULL;

        }

        return; 

} 

 

CComPtr<IHTMLDocument2> m_spDoc; 

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

if(FAILED(hr)) 

        throw(""); 

 

CComPtr<IDispatch> pScript; 

hr = m_spDoc->get_Script(&pScript); 

if(FAILED(hr)) 

        throw(""); 

 

CComBSTR   bstrMember(m_callbackfunction);   

DISPID   dispid; 

hr=pScript->GetIDsOfNames(IID_NULL,&bstrMember,1,LOCALE_SYSTEM_DEFAULT,&dispid); 

 

//   设置函数参数 

DISPPARAMS   dispparams; 

memset(&dispparams,0,sizeof(dispparams)); 

dispparams.cArgs = 1;//表示参数的计数。 

dispparams.rgvarg = new VARIANT[dispparams.cArgs];//表示对参数数组的引用。 

 

for(int i = 0; i < 1; i++) 

{ 

        //CComBSTR  bstr  =  "111";   //   back   reading 

        //bstr.CopyTo(&dispparams.rgvarg[i].bstrVal); 

        dispparams.rgvarg[i].iVal = m_param;

        dispparams.rgvarg[i].vt = VT_I2; 

} 

 

dispparams.cNamedArgs =0;//表示命名参数的计数。 

EXCEPINFO excepInfo; 

memset(&excepInfo,0,sizeof(excepInfo)); 

CComVariant vaResult; 

UINT nArgErr = (UINT)-1;   //   initialize   to   invalid   arg 

hr = pScript->Invoke(dispid, IID_NULL,0,DISPATCH_METHOD,&dispparams,&vaResult,&excepInfo,&nArgErr); 

} 

这样，ActiveX控件就完成了。

9.       编写html页面代码。打开Microsoft ActiveX Control Pad，插入控件。然后编写JavaScript代码。

<HTML>

<HEAD>

<TITLE>New Page</TITLE>

</HEAD>

<BODY>

    <SCRIPT LANGUAGE="JavaScript" >

function invoke()

{

        Third1.callbackfunction = "callback";

        Third1.invoke(2);

        alert("begin invoke");

}

function callback(param)

{

        alert(param);

}

 

    </SCRIPT>

<OBJECT ID="Third1" WIDTH=100 HEIGHT=51

 CLASSID="CLSID:E9D38528-0F4E-468B-858D-69905F16942F">

    <PARAM NAME="_Version" VALUE="65536">

    <PARAM NAME="_ExtentX" VALUE="2646">

    <PARAM NAME="_ExtentY" VALUE="1323">

    <PARAM NAME="_StockProps" VALUE="0">

</OBJECT>

<input type="button" value="test" onclick="invoke();" />

</BODY>

</HTML>

10.   测试：打开浏览器，打开test.html页面。点击“test“按钮，将会先显示对话框begin invoke，然后过5秒钟再显示对话框12。

11.   调试方法：我们可以直接调试浏览器。浏览器加载了控件，然后我们调用控件的方法，这时会自动触发我们在工程中设置的断点。在

project---settings---debug---executable for debug sessions设置浏览器的exe文件的路径。我用的世界之窗浏览器。所以值设置为：C:/Program Files/TheWorld/TheWorld.exe

如果你用IE浏览器，可设置为：C:/Program Files/Internet Explorer/iexplore.exe

 

说明：

1.    上述控件与xmlhttp不同的地方是callbackfunction我传的是一个字符串，而xmlhttp传的是一个JavaScript的函数指针。

2.    COM中的线程模型不在本文讨论范围之内。还有浏览器安全问题和打包CAB的问题也不在本文讨论范围之内。

 

参考：

http://vcfaq.mvps.org/com/1.htm

http://vcfaq.mvps.org/com/11.htm

http://support.microsoft.com/kb/q157437/