如何在我们的程序中使用jscript脚本(zz)

原文地址:http://www.cppprog.com/2009/0406/99.html

在CSDN上看到有不少人问怎样才能象MS Office一样支持VBA，偶也很感兴趣，可惜Google后发现要支持VBA得付钱给M$才行，象我们这种无产阶级自然是只有想的份啦。

　　不过MS还是有点“爱心”D，它给了我们另外一个选择——ActiveX Scripting(后面简称[AS])。

　　简单的说[AS]就是：MS来帮我们解析脚本里的基本语句（如if、for、表态式、赋值等），我们负责解释、执行它所不认识的函数，对象。

　　下面再简单说一下操作[AS]的流程：

　　1． 实例化一个脚本对象（IActiveScript），一般装了IE的电脑上应该都有JScript和VBScript。
2． 告诉IActiveScript谁来解释脚本中的对象(IActiveScript ::SetScriptSite)
3． 告诉IActiveScript脚本里会用到哪些对象（用IActiveScript ::AddNamedItem）
4． 装入脚本(JScript或VBScript代码，UNICODE格式)
5． 运行脚本(通过设置IActiveScript ::SetScriptState实现)
6． [AS]在运行脚本过程中如果遇到第3步里告诉它的对象，它就会向我们要此对象的接口以便继续执行(它会调用IActiveScriptSite::GetItemInfo,第2步里告诉它的)。
7． 打完收工。当然也可以强制停下运行中的脚本（比如不小心编了一个死循环的脚本）。也是通过设置IActiveScript ::SetScriptState实现。

　　从上面可以看出，我们的主要工作是实现脚本里的对象的解释工作。在COM编程中，毫无悬念地，这个光荣而又艰巨的任务就又落到了IDispatch身上。IDispatch的生平事迹咱就不介绍了，不明白的去问明白的，都不明白的去Google，心急的可以看后面的示例代码。

　　对我们编程的来说，说再多也不如源代码来得直接有效，下面我们就来做一个支持脚本的小程序。这里我们使用BCB来做，其它如VC，GCC当然也行，不过对于快速原型开发方面，BCB绝对是不二选择(广告时间)。

先看偶写的一个JScript脚本:

  1. var bForward = true;
  2. for(var i=0;i<ScreenWidth-200;i+=100)
  3. {
  4. for(var j=0;j<ScreenHeight-200;j+=10)
  5.     {
  6. var x = i;
  7. var y = bForward? j : (ScreenHeight-200-j)
  8.         MyWin.MoveTo(x,y);
  9.         MyWin.Caption = "X:" + x + " Y:"+y;
  10.         MyWin.Color = (x<<16|y)&0xffffff;
  11.         Sleep(10);
  12.     }
  13.     bForward = !bForward;
  14. }

此脚本的目的是让一个叫MyWin的窗口从左到右地上下移动，同时改变标题和颜色。

前面说了MS只帮我们解决脚本语言上的问题，我们来处理对象和函数。在这个脚本里,我们的任务有：ScreenWidth、ScreenHeight、Sleep、MyWin对象以及它的方法属性。

这里还得说一下IDispatch的调用过程：比如当[AS]执行到MyWin.MoveTo(x,y);时，它先得到MyWin的IDispatch接口（它是怎么得到的？后面会讲先按下不提），然后调用IDispatch的GetIDsOfNames(riid,L"MoveTo",1,lcid,&rgDispId)获得MoveTo对应的"Member Id"(rgDispId参数)。再用这个"Member Id"去调用Invoke(rgDispId,...)。所以我们只需关注GetIDsOfNames和Invoke两个方法即可。

先编写一个TMyGlobalFunc来处理ScreenWidth、ScreenHeight、Sleep这三个全局函数:

  1. struct TMyGlobalFunc : TDispatch{
  2. enum {itemScreenWidth,itemScreenHeight,itemSleep};
  3. static wchar_t Name[];
  4.     STDMETHOD(GetIDsOfNames)(REFIID riid,LPOLESTR *rgszNames,UINT cNames,LCID lcid,
  5.             DISPID *rgDispId){
  6. if(lstrcmpW(rgszNames[0],L"ScreenWidth") == 0){
  7.             *rgDispId = itemScreenWidth;
  8.         }
  9. else if(lstrcmpW(rgszNames[0],L"ScreenHeight") == 0) {
  10.             *rgDispId = itemScreenHeight;
  11.         }
  12. else if(lstrcmpW(rgszNames[0],L"Sleep") == 0) {
  13.             *rgDispId = itemSleep;
  14.         }
  15. else
  16. return E_NOTIMPL;
  17. return S_OK;
  18.     }
  20.     STDMETHOD(Invoke)(DISPID dispIdMember,REFIID riid,LCID lcid,WORD wFlags,
  21.             DISPPARAMS *pDispParams,
  22.             VARIANT *pVarResult,EXCEPINFO *pExcepInfo,UINT *puArgErr){
  23. switch(dispIdMember)
  24.         {
  25. case itemScreenWidth:
  26.                 pVarResult->vt=VT_I4;
  27.                 pVarResult->intVal = Screen->Width;
  28. break;
  29. case itemScreenHeight:
  30.                 pVarResult->vt=VT_I4;
  31.                 pVarResult->intVal = Screen->Height;
  32. break;
  33. case itemSleep:
  34. if(pDispParams->cArgs!=1) return DISP_E_BADPARAMCOUNT;
  35. if(pDispParams->rgvarg[0].vt != VT_I4) {
  36.                     *puArgErr = 0;
  37. return DISP_E_TYPEMISMATCH;
  38.                 }
  39.                 Application->ProcessMessages();
  40.                 Sleep(pDispParams->rgvarg[0].intVal);
  41. break;
  42. default:
  43. return DISP_E_MEMBERNOTFOUND;
  44.         }
  45. return S_OK;
  46.     }
  47. };
  48. wchar_t TMyGlobalFunc::Name[]=L"MyGlobalFunc";

再写个TMyWin来处理MyWin对象的方法和属性，和上面一样

  1. struct TMyWin : TDispatch{
  2. enum {itemCaption,itemColor,itemMoveTo};
  3. static wchar_t Name[];
  4. // IDispatch
  5.     STDMETHOD(GetIDsOfNames)(REFIID riid,LPOLESTR *rgszNames,UINT cNames,LCID lcid,
  6.                                 DISPID *rgDispId){
  7. if(lstrcmpW(rgszNames[0],L"Caption") == 0) {
  8.             *rgDispId = itemCaption;
  9.         }
  10. else if(lstrcmpW(rgszNames[0],L"Color") == 0) {
  11.             *rgDispId = itemColor;
  12.         }
  13. else if(lstrcmpW(rgszNames[0],L"MoveTo") == 0) {
  14.             *rgDispId = itemMoveTo;
  15.         }
  16. else
  17. return E_NOTIMPL;
  18. return S_OK;
  19.     }
  21.     STDMETHOD(Invoke)(DISPID dispIdMember,REFIID riid,LCID lcid,WORD wFlags,
  22.                       DISPPARAMS *pDispParams,
  23.                       VARIANT *pVarResult,EXCEPINFO *pExcepInfo,UINT *puArgErr){
  24. switch(dispIdMember)
  25.         {
  26. case itemCaption:
  27.           {
  28. if(wFlags==DISPATCH_PROPERTYGET)
  29.             {
  30.                 pVarResult->vt = VT_BSTR;
  31.                 pVarResult->bstrVal = GetCaption();
  32.             }
  33. else if(wFlags==DISPATCH_PROPERTYPUT)
  34.             {
  35. if(pDispParams->cArgs!=1) return DISP_E_BADPARAMCOUNT;
  36. if(pDispParams->rgvarg[0].vt != VT_BSTR) {
  37.                     *puArgErr = 0;
  38. return DISP_E_TYPEMISMATCH;
  39.                 }
  40.                 SetCaption(pDispParams->rgvarg[0].bstrVal);
  41.             }
  42. else
  43. return DISP_E_MEMBERNOTFOUND;
  44. break;
  45.           }
  46. case itemColor:
  47.           {
  48. if(wFlags==DISPATCH_PROPERTYGET)
  49.             {
  50.                 pVarResult->vt = VT_I4;
  51.                 pVarResult->intVal = GetColor();
  52.             }
  53. else if(wFlags==DISPATCH_PROPERTYPUT)
  54.             {
  55. if(pDispParams->cArgs!=1) return DISP_E_BADPARAMCOUNT;
  56. if(pDispParams->rgvarg[0].vt != VT_I4) {
  57.                     *puArgErr = 0;
  58. return DISP_E_TYPEMISMATCH;
  59.                 }
  60.                 SetColor(pDispParams->rgvarg[0].intVal);
  61.             }
  62. else
  63. return DISP_E_MEMBERNOTFOUND;
  64. break;
  65.           }
  66. case itemMoveTo:
  67.           {
  68. if(wFlags==DISPATCH_METHOD)
  69.             {
  70. if(pDispParams->cArgs!=2) return DISP_E_BADPARAMCOUNT;
  71. if(pDispParams->rgvarg[0].vt != VT_I4) {
  72.                     *puArgErr = 0;
  73. return DISP_E_TYPEMISMATCH;
  74.                 }
  75. else if(pDispParams->rgvarg[1].vt != VT_I4){
  76.                     *puArgErr = 1;
  77. return DISP_E_TYPEMISMATCH;
  78.                 }
  79.                 MoveTo( pDispParams->rgvarg[1].intVal,
  80.                         pDispParams->rgvarg[0].intVal);
  81.             }
  82. else
  83. return DISP_E_MEMBERNOTFOUND;
  84. break;
  85.           }
  86. default:
  87. return DISP_E_MEMBERNOTFOUND;
  88.         }
  89. return S_OK;
  90.     }
  92. //  TMyWin上所有的方法属性都对这个TForm *fm_Opt操作
  93.     TMyWin(TForm *fm_Opt) : TDispatch(),m_Form(fm_Opt){ ; }  
  95.     BSTR GetCaption(){
  96. return WideString(m_Form->Caption).Detach();
  97.     }
  98. void SetCaption(BSTR bstrCaption){
  99.         m_Form->Caption = bstrCaption;
  100.     }
  101. int GetColor(){
  102. return (int)m_Form->Color;
  103.     }
  104. void SetColor(int iColor){
  105.         m_Form->Color = TColor(iColor);
  106.     }
  108. void MoveTo(int X,int Y){
  109.         m_Form->Left=X;
  110.         m_Form->Top=Y;
  111.     }
  113. private:
  114.     TForm *m_Form;
  115. };
  116. wchar_t TMyWin::Name[]=L"MyWin";

主要任务完成，接着我们要实现IActiveScriptSite，它用于上面所说的第2步和第6步。[AS]解析上面的脚本时遇到MyWin及ScreenWidth、ScreenHeight、Sleep时会通过GetItemInfo向它要接口，它则负责把我们刚才写的IDispatch喂给[AS]。
这个IActiveScriptSite要包含头文件#include <activscp.h>

  1. struct TMyActiveScriptSite
  2.     : IActiveScriptSite
  3. {
  4.     TMyActiveScriptSite(TMyWin *pMyWin,TMyGlobalFunc *pMyGlobalFunc)
  5.         : m_iRefCount(1),m_pMyWin(pMyWin),m_pMyGlobalFunc(pMyGlobalFunc){
  6.     }
  8. // IUNKnown,不得不写
  9. HRESULT __stdcall QueryInterface(REFIID iid, void **ppv){
  10. if(iid==IID_IUnknown||iid==IID_IActiveScriptSite)
  11.         {
  12.             *ppv=this;
  13.             AddRef();
  14. return S_OK;
  15.         }
  16.         *ppv=NULL;
  17. return E_NOINTERFACE;
  18.     }
  19. ULONG __stdcall AddRef(void) {
  20. return ++m_iRefCount;
  21.     }
  22. ULONG __stdcall Release(void) {
  23. if(--m_iRefCount==0){
  24. delete this;
  25. return 0;
  26.         }
  27. return m_iRefCount;
  28.     }
  30. // IActiveScriptSite
  31.     STDMETHOD(GetLCID)(LCID* /**//*plcid*/) {
  32. return E_NOTIMPL;
  33.     }
  35. //主要的就是这个
  36.     STDMETHOD(GetItemInfo)(LPCOLESTR pstrName,
  37. DWORD dwReturnMask,
  38.                           IUnknown** ppiunkItem,
  39.                           ITypeInfo** ppti) {
  40. if( (dwReturnMask & SCRIPTINFO_ITYPEINFO)!=0 ){
  41.             *ppti = NULL;
  42. return E_FAIL;
  43.         }
  44. if( (dwReturnMask & SCRIPTINFO_IUNKNOWN)==0 ) return E_FAIL;
  45. if( ppiunkItem==NULL ) return E_POINTER;
  46.         *ppiunkItem = NULL;
  47. if( lstrcmpW( pstrName, TMyWin::Name )==0 ) {
  48. //[AS]要MyWin，送上！
  49.             m_pMyWin->AddRef();
  50.             *ppiunkItem = m_pMyWin;
  51. return S_OK;
  52.         }
  53. else if( lstrcmpW( pstrName, TMyGlobalFunc::Name )==0 ) { 
  54. //[AS]要MyGlobalFunc，送上！
  55.             m_pMyGlobalFunc->AddRef();
  56.             *ppiunkItem = m_pMyGlobalFunc;
  57. return S_OK;
  58.         }
  59. return E_FAIL;   //要其它的，没有！
  60.    }
  62.    STDMETHOD(GetDocVersionString)(BSTR* pbstrVersion) {
  63. if( pbstrVersion==NULL ) return E_POINTER;
  64.       *pbstrVersion = ::SysAllocString(OLESTR("Script 1.0"));
  65. return S_OK;
  66.    }
  68.    STDMETHOD(OnScriptTerminate)(
  69. const VARIANT* /**//*pvarResult*/,
  70. const EXCEPINFO* /**//*pexcepinfo*/) {
  71. return S_OK;
  72.    }
  74.    STDMETHOD(OnStateChange)(SCRIPTSTATE /**//*ssScriptState*/) {
  75. return S_OK;
  76.    }
  77. // 脚本里有错误时会调用OnScriptError
  78.    STDMETHOD(OnScriptError)(IActiveScriptError* pScriptError) {
  79.       EXCEPINFO e;
  80. DWORD dwContext;
  81. ULONG ulLine;
  82. LONG lPos;
  83.       pScriptError->GetExceptionInfo(&e);
  84.       pScriptError->GetSourcePosition(&dwContext, &ulLine, &lPos);
  85. char *pstrFormat = "An error occured while parsing script:"
  86. " Source: %ws Error: %08X Description: %ws Line: %d";
  87. char pstrStr[1024];
  88.       ::wsprintf( pstrStr, pstrFormat,
  89.          e.bstrSource,
  90.          e.scode,
  91.          e.bstrDescription,
  92.          ulLine+1);
  93.       ::MessageBox(::GetActiveWindow(), pstrStr,
  94.         _T("Compile Error"), MB_OK | MB_ICONEXCLAMATION | MB_SETFOREGROUND);
  95. return S_OK;
  96.    }
  98.    STDMETHOD(OnEnterScript)() {
  99. return S_OK;
  100.    }
  102.    STDMETHOD(OnLeaveScript)() {
  103. return S_OK;
  104.    }
  105. private:
  106.     TMyWin *m_pMyWin;
  107.     TMyGlobalFunc *m_pMyGlobalFunc;
  108. int m_iRefCount;
  109. };

万事俱备，就等执行了:
打开BCB,新建一VCL Form Application。
在默认的Form1上加入一个TMemo改名为:mmoScript；加入一个TButton改名为btnRun。btnRun->OnClick代码：
偷懒用到了TComInterface，要包含: #include <utilcls.h>

  1. void __fastcall TForm1::btnRunClick(TObject *Sender)
  2. {
  3.     TComInterface<IActiveScript> pAS;
  4. // 第一步，实例化Jscript(同学们也可以试试VBScript)
  5.     pAS.CreateInstance(L"JScript");   
  6. if(!pAS) return;
  8.     TComInterface<IActiveScriptParse> pASP(pAS);
  9. if(!pASP) return;
  11.     pASP->InitNew();
  13. // 我们的劳动成果在这里
  14.     TComInterface<TMyWin> pDispatch_MyWin = new TMyWin(this);
  15.     TComInterface<TMyGlobalFunc> pDispatch_MyGlobalFunc = new TMyGlobalFunc;
  16.     TComInterface<TMyActiveScriptSite> pActiveScriptSite_Mine = 
  17. new TMyActiveScriptSite(pDispatch_MyWin,pDispatch_MyGlobalFunc);
  19. //第二步，告诉IActiveScript谁来解释脚本中的对象
  20. 　　pAS->SetScriptSite(pActiveScriptSite_Mine);
  22. //第三步，告诉IActiveScript脚本里会用到哪些对象
  23.     pAS->AddNamedItem(TMyWin::Name,SCRIPTITEM_ISVISIBLE);  //会用到”MyWin”
  24. //多了一个SCRIPTITEM_GLOBALMEMBERS，意思是如果遇到全局函数就向”MyGlobalFunc”要。
  25.     pAS->AddNamedItem(TMyGlobalFunc::Name,
  26.         SCRIPTITEM_ISVISIBLE|SCRIPTITEM_GLOBALMEMBERS);
  28. //第四步，装入脚本
  29.     pASP->ParseScriptText(WideString(mmoScript->Lines->Text),
  30.                                   NULL,
  31.                                   NULL,
  32.                                   NULL,
  33.                                   0,
  34.                                   0,
  35.                                   0,
  36.                                   NULL,
  37.                                   NULL);
  39. //第五步，运行脚本
  40. 　　pAS->SetScriptState(SCRIPTSTATE_STARTED);
  42.     pAS->Close();
  43. }

编译，运行。
把写的Jscript代码拷贝到mmoScript里然后按btnRun运行可以看到效果。当然也可以修改脚本弄点更好玩的花样出来，呵呵。
最后还要多说一句关于ParseScriptText，用好它后面的几个参数。看MSDN，修改其中一个参数这段代码就可以用作表态式解析了。
附上完整代码:
Script.h

  1. #ifndef SCRIPT_H
  2. #define SCRIPT_H
  3. //=============================================================
  4. #include <tchar.h>
  5. #include <activscp.h>
  7. // TDispatch：简单实现IDispath的所有方法，用于作自动化对象的基类。
  8. struct TDispatch : IDispatch{
  9.     TDispatch():m_iRefCount(1){;}
  10.     ~TDispatch(){;}
  11. // IUNKnown
  12. HRESULT __stdcall QueryInterface(REFIID iid, void **ppv){
  13. if(iid==IID_IUnknown||iid==IID_IDispatch)
  14.         {
  15.             *ppv=this;
  16.             AddRef();
  17. return S_OK;
  18.         }
  19.         *ppv=NULL;
  20. return E_NOINTERFACE;
  21.     }
  22. ULONG __stdcall AddRef(void) {
  23. return ++m_iRefCount;
  24.     }
  25. ULONG __stdcall Release(void) {
  26. if(--m_iRefCount==0){
  27. delete this;
  28. return 0;
  29.         }
  30. return m_iRefCount;
  31.     }
  33. // IDispatch
  34.     STDMETHOD(GetTypeInfoCount)(UINT *pctinfo){return S_OK;}
  35.     STDMETHOD(GetTypeInfo)(UINT iTInfo,
  36. LCID lcid,ITypeInfo **ppTInfo){return S_OK;}
  37.     STDMETHOD(GetIDsOfNames)(REFIID riid,
  38.             LPOLESTR *rgszNames,UINT cNames,LCID lcid,DISPID *rgDispId){
  39. return E_NOTIMPL;
  40.     }
  42.     STDMETHOD(Invoke)(DISPID dispIdMember,REFIID riid,
  43. LCID lcid,WORD wFlags,
  44.             DISPPARAMS *pDispParams,
  45.             VARIANT *pVarResult,EXCEPINFO *pExcepInfo,UINT *puArgErr){
  46. return S_OK;
  47.     }
  48. private:
  49. int m_iRefCount;
  50. };
  52. // TMyWin,实现MyWin对象类，解释Caption,Color属性，MoveTo方法
  53. struct TMyWin : TDispatch{
  54. enum {itemCaption,itemColor,itemMoveTo};
  55. static wchar_t Name[];
  56. // IDispatch
  57.     STDMETHOD(GetIDsOfNames)(REFIID riid,
  58.             LPOLESTR *rgszNames,UINT cNames,LCID lcid,
  59.             DISPID *rgDispId){
  60. if(lstrcmpW(rgszNames[0],L"Caption") == 0)
  61.         {
  62.             *rgDispId = itemCaption;
  63.         }
  64. else if(lstrcmpW(rgszNames[0],L"Color") == 0)
  65.         {
  66.             *rgDispId = itemColor;
  67.         }
  68. else if(lstrcmpW(rgszNames[0],L"MoveTo") == 0)
  69.         {
  70.             *rgDispId = itemMoveTo;
  71.         }
  72. else
  73. return E_NOTIMPL;
  74. return S_OK;
  75.     }
  77.     STDMETHOD(Invoke)(DISPID dispIdMember,
  78.             REFIID riid,LCID lcid,WORD wFlags,
  79.             DISPPARAMS *pDispParams,
  80.             VARIANT *pVarResult,EXCEPINFO *pExcepInfo,UINT *puArgErr){
  81. switch(dispIdMember)
  82.         {
  83. case itemCaption:
  84.                 {
  85. if(wFlags==DISPATCH_PROPERTYGET)
  86.                     {
  87.                         pVarResult->vt = VT_BSTR;
  88.                         pVarResult->bstrVal = GetCaption();
  89.                     }
  90. else if(wFlags==DISPATCH_PROPERTYPUT)
  91.                     {
  92. if(pDispParams->cArgs!=1) return DISP_E_BADPARAMCOUNT;
  93. if(pDispParams->rgvarg[0].vt != VT_BSTR) {
  94.                             *puArgErr = 0;
  95. return DISP_E_TYPEMISMATCH;
  96.                         }
  97.                         SetCaption(pDispParams->rgvarg[0].bstrVal);
  98.                     }
  99. else
  100. return DISP_E_MEMBERNOTFOUND;
  101. break;
  102.                 }
  103. case itemColor:
  104.                 {
  105. if(wFlags==DISPATCH_PROPERTYGET)
  106.                     {
  107.                         pVarResult->vt = VT_I4;
  108.                         pVarResult->intVal = GetColor();
  109.                     }
  110. else if(wFlags==DISPATCH_PROPERTYPUT)
  111.                     {
  112. if(pDispParams->cArgs!=1) return DISP_E_BADPARAMCOUNT;
  113. if(pDispParams->rgvarg[0].vt != VT_I4) {
  114.                             *puArgErr = 0;
  115. return DISP_E_TYPEMISMATCH;
  116.                         }
  117.                         SetColor(pDispParams->rgvarg[0].intVal);
  118.                     }
  119. else
  120. return DISP_E_MEMBERNOTFOUND;
  121. break;
  122.                 }
  123. case itemMoveTo:
  124.                 {
  125. if(wFlags==DISPATCH_METHOD)
  126.                     {
  127. if(pDispParams->cArgs!=2) return DISP_E_BADPARAMCOUNT;
  128. if(pDispParams->rgvarg[0].vt != VT_I4) {
  129.                             *puArgErr = 0;
  130. return DISP_E_TYPEMISMATCH;
  131.                         }
  132. else if(pDispParams->rgvarg[1].vt != VT_I4){
  133.                             *puArgErr = 1;
  134. return DISP_E_TYPEMISMATCH;
  135.                         }
  136.                         MoveTo( pDispParams->rgvarg[1].intVal,
  137.                                 pDispParams->rgvarg[0].intVal);
  138.                     }
  139. else
  140. return DISP_E_MEMBERNOTFOUND;
  141. break;
  142.                 }
  143. default:
  144. return DISP_E_MEMBERNOTFOUND;
  145.         }
  146. return S_OK;
  147.     }
  149. //  TMyWin
  150.     TMyWin(TForm *fm_Opt) : TDispatch(),m_Form(fm_Opt){ ; }
  152.     BSTR GetCaption(){
  153. return WideString(m_Form->Caption).Detach();
  154.     }
  155. void SetCaption(BSTR bstrCaption){
  156.         m_Form->Caption = bstrCaption;
  157.     }
  158. int GetColor(){
  159. return (int)m_Form->Color;
  160.     }
  161. void SetColor(int iColor){
  162.         m_Form->Color = TColor(iColor);
  163.     }
  165. void MoveTo(int X,int Y){
  166.         m_Form->Left=X;
  167.         m_Form->Top=Y;
  168.     }
  170. private:
  171.     TForm *m_Form;
  172. };
  173. wchar_t TMyWin::Name[]=L"MyWin";
  175. struct TMyGlobalFunc : TDispatch{
  176. enum {itemScreenWidth,itemScreenHeight,itemSleep};
  177. static wchar_t Name[];
  178.     STDMETHOD(GetIDsOfNames)(REFIID riid,
  179.             LPOLESTR *rgszNames,UINT cNames,LCID lcid,
  180.             DISPID *rgDispId){
  181. if(lstrcmpW(rgszNames[0],L"ScreenWidth") == 0)
  182.         {
  183.             *rgDispId = itemScreenWidth;
  184.         }
  185. else if(lstrcmpW(rgszNames[0],L"ScreenHeight") == 0)
  186.         {
  187.             *rgDispId = itemScreenHeight;
  188.         }
  189. else if(lstrcmpW(rgszNames[0],L"Sleep") == 0)
  190.         {
  191.             *rgDispId = itemSleep;
  192.         }
  193. else
  194. return E_NOTIMPL;
  195. return S_OK;
  196.     }
  198.     STDMETHOD(Invoke)(DISPID dispIdMember,
  199.             REFIID riid,LCID lcid,WORD wFlags,
  200.             DISPPARAMS *pDispParams,
  201.             VARIANT *pVarResult,EXCEPINFO *pExcepInfo,UINT *puArgErr){
  202. switch(dispIdMember)
  203.         {
  204. case itemScreenWidth:
  205.                 pVarResult->vt=VT_I4;
  206.                 pVarResult->intVal = Screen->Width;
  207. break;
  208. case itemScreenHeight:
  209.                 pVarResult->vt=VT_I4;
  210.                 pVarResult->intVal = Screen->Height;
  211. break;
  212. case itemSleep:
  213. if(pDispParams->cArgs!=1) return DISP_E_BADPARAMCOUNT;
  214. if(pDispParams->rgvarg[0].vt != VT_I4) {
  215.                     *puArgErr = 0;
  216. return DISP_E_TYPEMISMATCH;
  217.                 }
  218.                 Application->ProcessMessages();
  219.                 Sleep(pDispParams->rgvarg[0].intVal);
  220. break;
  221. default:
  222. return DISP_E_MEMBERNOTFOUND;
  223.         }
  224. return S_OK;
  225.     }
  226. };
  227. wchar_t TMyGlobalFunc::Name[]=L"MyGlobalFunc";
  229. struct TMyActiveScriptSite
  230. : IActiveScriptSite
  231. {
  232.     TMyActiveScriptSite(TMyWin *pMyWin,TMyGlobalFunc *pMyGlobalFunc)
  233.         : m_iRefCount(1),m_pMyWin(pMyWin),
  234.         m_pMyGlobalFunc(pMyGlobalFunc){
  235.         }
  237. // IUNKnown
  238. HRESULT __stdcall QueryInterface(REFIID iid, void **ppv){
  239. if(iid==IID_IUnknown||iid==IID_IActiveScriptSite)
  240.         {
  241.             *ppv=this;
  242.             AddRef();
  243. return S_OK;
  244.         }
  245.         *ppv=NULL;
  246. return E_NOINTERFACE;
  247.     }
  248. ULONG __stdcall AddRef(void) {
  249. return ++m_iRefCount;
  250.     }
  251. ULONG __stdcall Release(void) {
  252. if(--m_iRefCount==0){
  253. delete this;
  254. return 0;
  255.         }
  256. return m_iRefCount;
  257.     }
  259. // IActiveScriptSite
  260.     STDMETHOD(GetLCID)(LCID* /**//*plcid*/) {
  261. return E_NOTIMPL;
  262.     }
  264.     STDMETHOD(GetItemInfo)(LPCOLESTR pstrName,
  265. DWORD dwReturnMask,
  266.             IUnknown** ppiunkItem,
  267.             ITypeInfo** ppti) {
  268. if( (dwReturnMask & SCRIPTINFO_ITYPEINFO)!=0 ){
  269.             *ppti = NULL;
  270. return E_FAIL;
  271.         }
  272. if( (dwReturnMask & SCRIPTINFO_IUNKNOWN)==0 ) return E_FAIL;
  273. if( ppiunkItem==NULL ) return E_POINTER;
  274.         *ppiunkItem = NULL;
  275. if( lstrcmpW( pstrName, TMyWin::Name )==0 ) {
  276.             m_pMyWin->AddRef();
  277.             *ppiunkItem = m_pMyWin;
  278. return S_OK;
  279.         }
  280. else if( lstrcmpW( pstrName, TMyGlobalFunc::Name )==0 ) {
  281.             m_pMyGlobalFunc->AddRef();
  282.             *ppiunkItem = m_pMyGlobalFunc;
  283. return S_OK;
  284.         }
  285. return E_FAIL;
  286.     }
  288.     STDMETHOD(GetDocVersionString)(BSTR* pbstrVersion) {
  289. if( pbstrVersion==NULL ) return E_POINTER;
  290.         *pbstrVersion = ::SysAllocString(OLESTR("Script 1.0"));
  291. return S_OK;
  292.     }
  294.     STDMETHOD(OnScriptTerminate)(
  295. const VARIANT* /**//*pvarResult*/,
  296. const EXCEPINFO* /**//*pexcepinfo*/) {
  297. return S_OK;
  298.     }
  300.     STDMETHOD(OnStateChange)(SCRIPTSTATE /**//*ssScriptState*/) {
  301. return S_OK;
  302.     }
  304.     STDMETHOD(OnScriptError)(IActiveScriptError* pScriptError) {
  305.         EXCEPINFO e;
  306. DWORD dwContext;
  307. ULONG ulLine;
  308. LONG lPos;
  309.         pScriptError->GetExceptionInfo(&e);
  310.         pScriptError->GetSourcePosition(&dwContext, &ulLine, &lPos);
  311. char *pstrFormat = "An error occured while parsing script:"
  312. " Source: %ws Error: %08X Description: %ws Line: %d";
  313. char pstrStr[1024];
  314.         ::wsprintf( pstrStr, pstrFormat,
  315.                 e.bstrSource,
  316.                 e.scode,
  317.                 e.bstrDescription,
  318.                 ulLine+1);
  319.         ::MessageBox(::GetActiveWindow(), pstrStr,
  320.             _T("Compile Error"), MB_OK | MB_ICONEXCLAMATION | MB_SETFOREGROUND);
  321. return S_OK;
  322.     }
  324.     STDMETHOD(OnEnterScript)() {
  325. return S_OK;
  326.     }
  328.     STDMETHOD(OnLeaveScript)() {
  329. return S_OK;
  330.     }
  331. private:
  332.     TMyWin *m_pMyWin;
  333.     TMyGlobalFunc *m_pMyGlobalFunc;
  334. int m_iRefCount;
  335. };
  336. //=============================================================
  337. #endif

Unit1.cpp

  1. //---------------------------------------------------------------------------
  3. #include <vcl.h>
  4. #pragma hdrstop
  6. #include "Unit1.h"
  7. #include "Script.h"
  8. #include <utilcls.h>
  9. //---------------------------------------------------------------------------
  10. #pragma package(smart_init)
  11. #pragma resource "*.dfm"
  12. TForm1 *Form1;
  13. //---------------------------------------------------------------------------
  14. __fastcall TForm1::TForm1(TComponent* Owner)
  15.     : TForm(Owner)
  16. {
  17. }
  18. //---------------------------------------------------------------------------
  19. void __fastcall TForm1::btnRunClick(TObject *Sender)
  20. {
  21.     TComInterface<IActiveScript> pAS;
  22.     pAS.CreateInstance(L"JScript");
  23. if(!pAS) return;
  25.     TComInterface<IActiveScriptParse> pASP(pAS);
  26. if(!pASP) return;
  28.     pASP->InitNew();
  30.     TComInterface<TMyWin> pDispatch_MyWin=new TMyWin(this);
  31.     TComInterface<TMyGlobalFunc> pDispatch_MyGlobalFunc = new TMyGlobalFunc;
  32.     TComInterface<IActiveScriptSite> pActiveScriptSite_Mine = 
  33. new TMyActiveScriptSite(pDispatch_MyWin,pDispatch_MyGlobalFunc);
  35.     pAS->SetScriptSite(pActiveScriptSite_Mine);
  37.     pAS->AddNamedItem(TMyWin::Name,SCRIPTITEM_ISVISIBLE);
  38.     pAS->AddNamedItem(TMyGlobalFunc::Name,
  39.         SCRIPTITEM_ISVISIBLE|SCRIPTITEM_GLOBALMEMBERS);
  41.     pASP->ParseScriptText(WideString(mmoScript->Lines->Text),
  42.                                   NULL,
  43.                                   NULL,
  44.                                   NULL,
  45.                                   0,
  46.                                   0,
  47.                                   0,
  48.                                   NULL,
  49.                                   NULL);
  50.     pAS->SetScriptState(SCRIPTSTATE_STARTED);
  52.     pAS->Close();
  53. }
  54. //---------------------------------------------------------------------------
posted @ 2010-06-07 22:54  拿走不谢  阅读(1155)  评论(0)  编辑  收藏  举报