如何在vc程序中嵌入脚本语言(初稿).doc

如何在vc程序中嵌入脚本语言今天很多大型程序中都能够见到内嵌脚本进行二次开发的功能，例如ms word,excel，visual studio 等。一直以来我都希望能在自己的程序中加入同样的功能，经过前一段时间的研究，终于有所心得与大家分享。在研究过程中，我查找了发现一篇比较有价值的文章（/com/mfcscripthost.asp），其中描述了在vc程序中加入脚本语言的过程。其原理如下1. 首先使用CoCreateInstance()创建某种脚本语言（javascript，vbscript）的引擎，获得某种语言的脚本引擎的接口IActiveScript。2. 实现回调站点接口IActiveScriptSite通过IActiveScript-SetScriptSite()交由脚本引擎回调，在site中可以取得引擎的状态信息，并提供用户的自定义变量的自动化对象。3. 通过IActiveScript-QueryInterface()取得IActiveScriptParse接口，IActiveScriptParse用于解释执行用户的脚本代码。幸运的是这一系列接口和操作已经被文章的作者封装成CActiveScriptHost类，只需要掌握CreateEngine（）（创建脚本引擎），AddScriptCode（）（加入用户脚本代码），AddScriptItem（）（加入用户自定义变量）四个常用的方法即可。下面描述如何在自己mfc程序中使用上述类嵌入脚本和自定义脚本对象的过程，步骤如下。1. 首先将文章所附例子工程中ActiveScriptHost.cpp，ActiveScriptHost.h，Host_Proxy.cpp，Host_Proxy.h，MFCScriptHost.odl拷贝到当前工程中。2. 在当前工程的xxx.rc中加入以下内容，即将类型库加入到程序资源文件中#ifdef _DEBUG1 TYPELIB DebugMFCScriptHost.tlb#else1 TYPELIB ReleaseMFCScriptHost.tlb#endif3. 在需要使用的类成员中加入CHost_Proxym_ScriptProxy;成员，在OnCreate或OnInitDialog中加入m_ScriptProxy.CreateEngine( LJavaScript );/创建脚本引擎m_ScriptProxy.AddScriptItem(Ltest,m_ptestObject-GetUnknown();/加入名称为test的IDispatch对象4. com对象的生成有两种方案，一种是使用MFC方式生成，即对象从CmdTarget继承，并选中automation的radio button（如图表1），并通过Class Wizard中的自动化标签加入方法和属性（如图表2）。这种对象的缺点是无法自定义事件源供脚本程序接收。图表 1图表 25. 另一种是使用ATL产生com对象，这种方式可以生成带事件功能的对象，此外功能灵活、方便。我更倾向于ATL方式生成com对象。在Classes点击右键选择New ATL Object（如图表3），出现ATL Object Wizard（如图表4）。选中SimpleObject, 出现ATL Object Wizard 属性对话框（如图表5），按要求填入short name（即组件名称），如果欲支持组件的事件功能一定选中Support Connection Points（如图表6），点击确定后vc会自动生成代码。图表 3图表 4图表 5图表 66. 在vc生成的InitATL（）后，一定要手工加入_Module.RegisterTypeLib()用来注册组件的类型库。这是因为TL的IDispatch实现会将自身调用委托给相应组件的类型库接口ITypeInfo去执行（如图表7）。图表 77. 如欲实现组件的事件功能还需在相应对象点击Implement Connection Point菜单项（如图表8），选择实现事件源接口（如图表9），点击确定后系统会生成发送出发事件的委托类，并添加相应代码（如图表10）。图表 8图表 9图表 108. 因为com对象发出的事件需要在脚本环境下使用，脚本环境需要通过对象的IProvideClassInfo2接口获得默认事件源（即source default dispinterface），所以com对象还需实现IProvideClassInfo2接口（如图表11），加入红框内内容即可。图表 119. 脚本内调用的code sample 例子如下，假设对象test有方法hello，有事件OnRun（）javaScript 例子test.hello() /调用test对象的hello方法function test:OnRun（）/test对象事件OnRun()的回调函数vbScript 例子test.hello 调用test对象的hello方法Sub test_OnRun() test对象事件OnRun()的回调函数end SubJscript与VbScript详细用法见msdn/platform SDK documentation/Tools and Scripting/Scripting10. 如果使用mfc方式生成的com对象，用以下代码将对象作为脚本变量加入到脚本环境中m_ScriptProxy.AddScriptItem(Ltestctrl,m_ctrl.GetIDispatch(FALSE);11. 如果使用ATL方式生成的com对象，用以下代码将对象作为脚本变量加入到脚本环境中CComObject:CreateInstance(&m_peventObject); /因为多步骤构造需要调用finalContructm_ScriptProxy.AddScriptItem(Levent,m_peventObject-GetUnknown();12. 脚本代码的接入方法，strScriptText为代码脚本CString strScriptText;m_ctlScriptText.GetWindowText( strScriptText );if (strScriptText.GetLength()0)BSTR bstrText = strScriptText.AllocSysString();m_ScriptProxy.AddScriptCode(bstrText);SysFreeString(bstrText);下面简要介绍将一个MFC 的CButton 变为脚本中可用组件的方法用上述步骤建立CAtlButton，CAtlRectclass ATL_NO_VTABLE CAtlButton : public CComObjectRootEx,public CComCoClass,public IConnectionPointContainerImpl,public IDispatchImpl/ IAtlButtonpublic:STDMETHOD(Move)(/*in*/IAtlRect* rect);/移动buttonSTDMETHOD(get_Rect)(/*out, retval*/ IAtlRect* *pVal);/得到button size;class ATL_NO_VTABLE CAtlRect : public CComObjectRootEx,public CComCoClass,public IDispatchImplpublic:CRect m_rc;public:STDMETHOD(get_Bottom)(/*out, retval*/ long *pVal);STDMETHOD(put_Bottom)(/*in*/ long newVal);STDMETHOD(get_Right)(/*out, retval*/ long *pVal);STDMETHOD(put_Right)(/*in*/ long newVal);STDMETHOD(get_Left)(/*out, retval*/ long *pVal);STDMETHOD(put_Left)(/*in*/ long newVal);STDMETHOD(get_Top)(/*out, retval*/ long *pVal);STDMETHOD(put_Top)(/*in*/ long newVal);class CButtonWithAtl : public CButton,public CComObjectGlobalpublic:STDMETHOD(get_Rect)(/*out, retval*/ IAtlRect* *pVal);STDMETHOD(Move)(/*in*/IAtlRect* rect);CComObjectGlobal表示com对象全局生存不需要引用计数，CComObject表示在堆上创建对象，通过引用计数控制生命周期。STDMETHODIMP CButtonWithAtl:get_Rect(IAtlRect *pVal)CRect rc;this-GetWindowRect(rc);this-GetParent()-ScreenToClient(rc);CComObject* pRect;CComObject:CreateInstance(&pRect);pRect-m_rc = rc;pRect-QueryInterface(pVal);return S_OK;STDMETHODIMP CButtonWithAtl:Move(IAtlRect *rect)CRect rc;CComPtr ptr(rect);ptr-get_Left(&rc.left);ptr-get_Top(&rc.top);ptr-get_Right(&rc.right);ptr-get_Bottom(&