网站首页 > 物联资讯 > 技术分享

ActiveX异步回调JavaScript

2016-09-28 00:00:00 广州睿丰德信息科技有限公司 阅读
睿丰德科技 专注RFID识别技术和条码识别技术与管理软件的集成项目。质量追溯系统、MES系统、金蝶与条码系统对接、用友与条码系统对接

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属性,并为该属性生成getset方法。我们将在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/

RFID管理系统集成商 RFID中间件 条码系统中间层 物联网软件集成