在中调用中的函数

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

l 导入x。下面这条指令会在项目目录中生成i和h两个文件，里面有x中所有接口的描述和IID的定义。

#import \"x\" no_namespace

l 声明一个对象。

CComPtrIScriptControl m_iScriptControl;

l 创建对象实例

if(SUCCEEDED(m_CreateInstance(__uuidof(ScriptControl))))

l 设置语言等属性。

m_iScriptControl-PutLanguage(L\"JScript\");

m_iScriptControl-PutAllowUI(VARIANT_FALSE);

l 加入Jscript代码。

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

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

CComPtrIScriptProcedureCollection aProcedureSet = m_iScriptControl-GetProcedures();

long n = aProcedureSet-GetCount();

CComPtrIScriptProcedure aProcedure = aProcedureSet-GetItem(_variant_t(n));

_bstr_t strFunction = aProcedure-GetName();

l 准备函数参数。

VARIANT va = {0};

= 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++)

{

trVal = SysAllocString(L\"test\");

SafeArrayPutElement(psa, i, va);

九红已经不是九红了。” }

l 调用函数。

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

l 释放参数。

for(i = 0; i n; i++)

{

trVal = SysAllocString(L\"test\");

SafeArrayGetElement(psa, i, va);

SysFreeString(trVal);

}

SafeArrayDestroy(psa);