ActiveX Scripting技术(三)

ActiveX Scripting技术(三)(接上期)然后我们看看类CScriptHo
st中接口IActiveS criptSite的成员函数GetItemInfo的实现,因为引
擎调用GetItemInfo函数获取其名字空间中名字项的信息,所以我们要
在此函数中把应用系统的对象暴露给引擎和脚本,代码如下:
    STDMETHODIMP CScriptHost::GetItemInfo(LPCOLESTR pstrName
,DWORD dwReturnM ask,IUnknown **ppiunkItem, ITypeInfo **ppti
)
    {
    HRESULT hr = S_OK;
    // initialize the sent-in pointers
    if(dwReturnMask & SCRIPTINFO_ITYPEINFO)
    {
    if(ppti == NULL)
    return E_INVALIDARG;
    *ppti = NULL;
    }
    if(dwReturnMask & SCRIPTINFO_IUNKNOWN)
    {
    if(ppiunkItem == NULL)
    return E_INVALIDARG;
    *ppiunkItem = NULL;
    }
    if(!_wcsicmp(m_pNamedItem, pstrName))
    {
    if(dwReturnMask & SCRIPTINFO_IUNKNOWN)
    {
    // give out the object's IUnknown pointer
    *ppiunkItem = m_lpUnkCtrl;
    static_cast(*ppiunkItem)- AddRef();
    }
    if(dwReturnMask & SCRIPTINFO_ITYPEINFO)
    {
    IProvideClassInfo* pClsInfo = NULL;
    hr = m_lpUnkCtrl- QueryInterface(IID_IProvideClassInfo,
(void**)&pClsInf o);
    if(pClsInfo != NULL)
    {
    hr = pClsInfo- GetClassInfo(ppti);
    pClsInfo- Release();
    }
    }
    }
    return hr;
    }
    函数GetItemInfo首先对输出参数ppiunkItem和ppti进行有效性
检查,然后判断是否输入的名字与应用支持的受控对象的名字一致,如
果一致的话,则根据参数dwReturnMask 所指示的标志,把对象的IUnkn
own接口或者对象的类型信息通过输出参数传递给引擎,供引擎解释执
行脚本代码使用。
    我们再看类CScriptHost中接口IActiveScriptSiteWindow的成员
函数GetWindow的实现。函数比较简单,只是把应用系统的窗口句柄通
过输出参数传递给引擎,代码如下:
    HRESULT CScriptHost::GetWindow(HWND *phwnd)
    {
    if (m_Wnd != NULL) {
    *phwnd = m_Wnd;
    return S_OK;
    } else
    return E_FAIL;
    }
    类CScriptHost的其他成员函数都比较简单,有的接口成员函数可
以不实现,仅仅返回S_OK或者E_NOTIMPL即可,其代码不再一一列举。
    CScriptHost提供了应用系统为支持脚本代码运行所做的基本工
作,CScriptHost为引擎提供了应用系统的必要信息。CScriptHost类
是一个通用的类,如果应用系统只有一个Automation对象暴露给脚本
代码,则可以用CScriptHost类快速实现对脚本代码的支持。如果应用
系统有多个Automation对象要暴露给脚本代码,则需要对上面介绍的C
ScriptHo st类作些修改,使其支持多个名字项的处理。
    四、ActiveX Scripting实例
    在这一节,我们通过一个实例来说明如何利用上节提供的CScript
Host类为应用程序加上脚本特性。例程序很简单,只是一个基于对话
框的应用,但对话框中有一个日历控制,这是Microsoft提供的ActiveX
控制,它本身也是一个Automation对象,我们将在脚本代码中对该日历
对象进行控制,并且在脚本代码中响应日历控制的一些事件。图3是例
程序的运行界面图。
图3 例程序运行界面图
    创建例程序的过程并不复杂,利用Microsoft Visual C++ 5.0(或
6.0)提供的AppWiz ard和ClassWizard可以很快创建工程,并添加各项
功能,下面是其操作过程。
    (1)首先我们创建一个MFC工程,因为例程序比较简单,所以我们选
择了基于对话框的应用类型。工程名为Script,对话框类名为CScript
Dlg。
    (2)然后我们在对话框资源模板中添加日历控制,打开对话框模板
,用右键单击,从菜单中选择"Insert ActiveX Control"命令,选择Cal
endar Control,然后调整大小合适即可,并设置控制的ID为IDC_CONTR
OL1。
    (3)在对话框模板中添加两个按钮"Load Script"和"Run Script"
放在适当的位置上。
    (4)把上一节完成的文件ScriptHost.h和ScriptHost.cpp加入到
工程中。
    (5)在类CScriptDlg中加入数据成员m_pScHost,其类型为CScript
Host *。
    (6)用ClassWizard生成按钮"Load Script"的消息控制函数,编写
代码如下。
    void CScriptDlg::OnLoadscript()
    {
    CFileDialog dlg(TRUE, "*.txt","*.txt",OFN_HIDEREADONLY |
    OFN_OVERWRITEPROMPT,"Text files (*.txt)");
    if(dlg.DoModal()==IDOK)
    {
    CString strPath;
    strPath = dlg.GetPathName();
    if (strPath.IsEmpty())
    return;
    if (m_pScHost != NULL)
    m_pScHost-m_ps-Close();
    CWnd *pCalander = GetDlgItem(IDC_CONTROL1);
    m_pUnknownCtrl = pCalander- GetControlUnknown();
    m_pScHost = new CScriptHost(m_pUnknownCtrl, L"control",
m_hWnd);
    HRESULT hr = m_pScHost-CreateScriptEngine();
    hr = m_pScHost- ParseFile(strPath,L"control");
    GetDlgItem(IDC_RUNSCRIPT)-EnableWindow(TRUE);
    GetDlgItem(IDC_RUNSCRIPT)- SetWindowText("Run Script");
    return;
    }
    return;
    }
    在消息控制函数OnLoadscript中,首先打开标准文件对话框,待用
户选中脚本文件后,取到文件名,放到变量strPath中,如果原先已经存
在引擎对象,则先关闭引擎对象。
    然后通过CWnd::GetControlUnknown函数取出日历控制的IUnknow
n接口指针。完成了这些准备工作后,再构造一个CScriptHost对象,把
控制的IUnknown接口指针、控制名以及对话框的窗口句柄传到CScrip
tHost对象中,然后调用其CreateScriptEngine成员函数创建脚本引擎
对象,创建完成后,再调用ParseFile成员函数装入脚本文件。装入脚
本之后, 设置"Run Script"按钮使其接收运行脚本的命令。注意,在O
nLoadscript函数返回后,脚本引擎已经创建完成,脚本文件也已经装
入到引擎中,但这时脚本代码并没有被运行。
    (7)用ClassWizard生成按钮"Run Script"的消息控制函数,编写
代码如下。
    void CScriptDlg::OnRunscript()
    {
    if (m_pScHost != NULL) {
    SCRIPTSTATE ss;
    if (FAILED(m_pScHost- m_ps- GetScriptState(&ss)))
    return;
    if (ss == SCRIPTSTATE_CONNECTED) {m_pScHost- m_ps-SetScr
iptState(SCRIPTS TATE_DISCONNECTED);
    GetDlgItem(IDC_RUNSCRIPT)-SetWindowText("Run Script");
    } else {
    m_pScHost- m_ps- SetScriptState(SCRIPTSTATE_CONNECTED);
    GetDlgItem(IDC_RUNSCRIPT)- SetWindowText("Stop Script");
    }
    }
    }
    OnRunscript函数比较简单,它调用引擎的IActiveScript接口的G
etScriptState成员函数获取当前引擎的状态,如果当前引擎中脚本正
在运行,则调用SetScriptState成员函数使引擎停止运行,引擎进入非
运行状态,并设置"Run Script"按钮的标题变为"Run Scr ipt";如果
当前引擎中脚本不在运行,则调用SetScriptState成员函数使引擎进
入运行状态,并设置"Run Script"按钮的标题变为"Stop Script"。
    (8)编译并连接例程序。
    至此我们已经完成了例程序的创建工作,接下来我们再写一个脚
本文件用来测试例程序是否能正确运行脚本文件。脚本文件中的代码
分两部分,一部分是全局的执行代码,当引擎首次被启动时,这部分代
码就开始运行;另一部分是事件响应函数,当日历控制产生事件时,脚
本代码中的事件响应函数就会被执行。为了测试例程序的正确性,我
们使用了下面的脚本代码。
    ' Golobal code
    MSGBOX("Global!")
    '---------------------------------------------
    Sub control_DblClick()
    control.Nextyear
    MSGBOX("You have double-clicked!")
    End Sub
    '----------------------------------------------
    上述脚本代码并不进行实际的操作,只是弹出一个消息框表明脚
本代码获得了控制。
    因为我们在例程序的CScriptDlg::OnLoadscript函数中指定了应
用受控对象名字为"control",所以在脚本代码中的control_DblClick
函数即指响应"control"对象的"DblC lick"事件,在函数control_Dbl
Click中,调用了control对象方法Nextyear使当前日历后翻一年。并
弹出消息框以示脚本代码被执行了。
    程序执行过程中,对事件响应后的情况如图4所示。图4 例程序响
应双击事件后的运行结果
    如果我们单击"Stop Script"按钮停止脚本的执行,则再双击日历
控制,脚本代码中的事件响应函数不会被执行;如果用户再单击"Run S
cript"按钮,则事件响应函数会再次被执行。如果用户希望执行其他
的脚本文件,则可以单击"Load Script"按钮,重新装入脚本文件。从
这里我们可以看出,应用程序对脚本引擎的控制是非常灵活的。读者
可以试一试。
    五、结束语
    Active Scripting技术是近几年发展起来的新技术,它对于软件
的性能扩展有重要的意义。从本文以上几节的介绍可以看出,在应用
系统中提供脚本语言的支持并不困难,甚至非常简单,因此,这种技术
有着广泛的发展前景,而且我们也已经看到越来越多的应用系统提供
了脚本语言的支持。
    本文旨在对脚本技术作一个基本的介绍,希望文中所讲述的内容
能帮助读者在工作中用好这种技术。