在CPP中调用Jscript中的函数

时间：2009-08-11 来源：lixianjing

在CPP中调用Jscript中的函数

转载时请注明出处和作者联系方式
文章出处：http://www.limodev.cn/blog
作者联系方式：李先静 <xianjimli at hotmail dot com>

在C++中调用Jscript的函数非常简单，Windows提供了一个msscript.ocx的控件，利用这个控件可以直接操作Jscript: 执行一段Jscript脚本，或者调用指定的函数。我写了一个简单的例子：

o 导入msscript.ocx。下面这条指令会在项目目录中生成msscript.tli和msscript.tlh两个文件，里面有msscript.ocx中所有接口的描述和IID的定义。

#import "msscript.ocx" no_namespace

o 声明一个对象。

CComPtr<IScriptControl> m_iScriptControl;

o 创建对象实例

if(SUCCEEDED(m_iScriptControl.CoCreateInstance(__uuidof(ScriptControl))))

o 设置语言等属性。

m_iScriptControl->PutLanguage(L"JScript");
m_iScriptControl->PutAllowUI(VARIANT_FALSE);

o 加入Jscript代码。

m_iScriptControl->AddCode(L"function test(str1, str2) { return str1 + \"-ok-\" + str2; }");

o 获得函数，这里要说明的是GetItem的参数是1到n，而不是0到n-1。

CComPtr<IScriptProcedureCollection> aProcedureSet = m_iScriptControl->GetProcedures();
long n = aProcedureSet->GetCount();
 
CComPtr<IScriptProcedure> aProcedure = aProcedureSet->GetItem(_variant_t(n));
_bstr_t strFunction = aProcedure->GetName();

o 准备函数参数。

VARIANT va = {0};
va.vt = VT_BSTR;
 
n = 2;
SAFEARRAYBOUND bounds[1] = {0};
bounds[0].cElements = n;
SAFEARRAY* psa = SafeArrayCreate(VT_VARIANT, 1, bounds);
 
 
long i = 0;
for(i = 0; i < n; i++)
{
 va.bstrVal = SysAllocString(L"test");
 SafeArrayPutElement(psa, &i, &va);
}

o 调用函数。

_variant_t Result = m_iScriptControl->Run(strFunction, &psa);

o 释放参数。

for(i = 0; i < n; i++)
{
 va.bstrVal = SysAllocString(L"test");
 SafeArrayGetElement(psa, &i, &va);
 SysFreeString(va.bstrVal);
}
 
SafeArrayDestroy(psa);