如何在我们的程序中使用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. //---------------------------------------------------------------------------