扫一扫
分享文章到微信
扫一扫
关注官方公众号
至顶头条
在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); |
如果您非常迫切的想了解IT领域最新产品与技术信息,那么订阅至顶网技术邮件将是您的最佳途径之一。
现场直击|2021世界人工智能大会
直击5G创新地带,就在2021MWC上海
5G已至 转型当时——服务提供商如何把握转型的绝佳时机
寻找自己的Flag
华为开发者大会2020(Cloud)- 科技行者