为应用程序添加脚本支持

核心提示：本文示例源代码或素材下载 代码运行效果图如下：介绍有时我们并不需要提供完整的脚本支持,就像本文所要介绍的ActiveX脚本宿主(script hosting,可能称为脚本引擎更好理解),本文提供的ScriptControlMacro程序展示了使用Microsoft脚本控件简单地实现脚本支持功能,代码中还包括了以

本文示例源代码或素材下载

代码运行效果图如下：

介绍

有时我们并不需要提供完整的脚本支持,就像本文所要介绍的ActiveX脚本宿主(script hosting,可能称为脚本引擎更好理解),本文提供的ScriptControlMacro程序展示了使用Microsoft脚本控件简单地实现脚本支持功能,代码中还包括了以下一些技术:

用文件映射实现只允许一个应用实例.

如何用MFC存储读取二进制注册表数据

如何保存恢复应用程序窗口尺寸,位置

如何在CEditView派生类中使用不同地字体

如何捕捉OLE异常并显示错误信息

等...

开始前的准备

这篇文章假定你已经对COM、ActiveX控件、OLE自动化有所熟悉，并知道如何在MFC里使用他们。因为这些技术包含了相当多的内容，因此你应该先学习一下这些内容再来看本文。

基本步骤：

1、建立一个提供ActiveX控件支持的新的MFC工程

2、使用ClassWizard从脚本控件类型库中建立一个dispatch类

ClassWizard将为脚本控件接口生成头文件与执行文件。 // Machine generated IDispatch wrapper class(es) created with
// ClassWizard
////////////////////////////////////////////////////////////
// IScriptControl wrapper class
class IScriptControl : public COleDispatchDriver
{
// Operations
public:
　void SetLanguage(LPCTSTR lpszNewValue);
　void SetSitehWnd(HWND hWnd);
　LPDISPATCH GetError();
　void AddObject(LPCTSTR Name, LPDISPATCH Object,
　　　　　　　　 BOOL AddMembers);
　void AddCode(LPCTSTR Code);
};
// Machine generated IDispatch wrapper class(es) created
// with ClassWizard
#include "stdafx.h"
#include "MSScriptControl.h"
#ifdef _DEBUG
#define new DEBUG_NEW
#undef THIS_FILE
static char THIS_FILE[] = __FILE__;
#endif
////////////////////////////////////////////////////////////
// IScriptControl operations
void IScriptControl::SetLanguage(LPCTSTR lpszNewValue)
{
　static BYTE parms[] =
　　VTS_BSTR;
　InvokeHelper(0x5dc, DISPATCH_PROPERTYPUT, VT_EMPTY,
　　　　　　　 NULL, parms,
　　lpszNewValue);
}
void IScriptControl::SetSitehWnd(HWND hWnd)
{
　static BYTE parms[] =
　　VTS_I4;
　InvokeHelper(0x5de, DISPATCH_PROPERTYPUT, VT_EMPTY,
　　　　　　　 NULL, parms,
　　hWnd);
}
LPDISPATCH IScriptControl::GetError()
{
　LPDISPATCH result;
　InvokeHelper(0x5e3, DISPATCH_PROPERTYGET, VT_DISPATCH,
　　　　　　　 (void*)&result, NULL);
　return result;
}
void IScriptControl::AddObject(LPCTSTR Name,
　　　　　　　　　　　　　　　 LPDISPATCH Object,
　　　　　　　　　　　　　　　 BOOL AddMembers)
{
　static BYTE parms[] =
　　VTS_BSTR VTS_DISPATCH VTS_BOOL;
　InvokeHelper(0x9c4, DISPATCH_METHOD, VT_EMPTY, NULL, parms,
　　 Name, Object, AddMembers);
}
void IScriptControl::AddCode(LPCTSTR Code)
{
　static BYTE parms[] =
　　VTS_BSTR;
　InvokeHelper(0x7d0, DISPATCH_METHOD, VT_EMPTY, NULL, parms,
　　Code);
}3、删除类中不需要的IDispatch封装的方法