在CPP中调用Jscript中的函数

王朝html/css/js·作者佚名  2006-06-12
窄屏简体版  字體: |||超大  

在CPP中调用Jscript中的函数

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

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

#import "msscript.ocx" no_namespace

l 声明一个对象。

CComPtr<IScriptControl> m_iScriptControl;

l 创建对象实例

if(SUCCEEDED(m_iScriptControl.CoCreateInstance(__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。

CComPtr<IScriptProcedureCollection> aProcedureSet = m_iScriptControl->GetProcedures();

long n = aProcedureSet->GetCount();

CComPtr<IScriptProcedure> aProcedure = aProcedureSet->GetItem(_variant_t(n));

_bstr_t strFunction = aProcedure->GetName();

l 准备函数参数。

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);

}

l 调用函数。

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

l 释放参数。

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

{

va.bstrVal = SysAllocString(L"test");

SafeArrayGetElement(psa, &i, &va);

SysFreeString(va.bstrVal);

}

SafeArrayDestroy(psa);

 
 
 
免责声明:本文为网络用户发布,其观点仅代表作者个人观点,与本站无关,本站仅提供信息存储服务。文中陈述内容未经本站证实,其真实性、完整性、及时性本站不作任何保证或承诺,请读者仅作参考,并请自行核实相关内容。
 
 
© 2005- 王朝網路 版權所有 導航