在CPP中调用Jscript中的函数

在CPP中调用Jscript中的函数 - c/c++ - CSDN技术中心
在CPP中调用Jscript中的函数发表日期:2006-6-12
更新日期:2006-6-12
作者文章阅读次数:2572源自：李先静 (个人网站) 标签：c/c++
您认为本文应该得 12345 共有5人参与打分打印|收藏|讨论|投诉7c6ea0f7-f670-44ee-ba92-4a98278a477a
在CPP中调用Jscript中的函数
在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-&gt;PutLanguage(L"JScript");
m_iScriptControl-&gt;PutAllowUI(VARIANT_FALSE);
l 加入Jscript代码。
m_iScriptControl-&gt;AddCode(L"function test(str1, str2) { return str1 + /"-ok-/" + str2; }");
l 获得函数，这里要说明的是GetItem的参数是1到n，而不是0到n-1。
CComPtr&lt;IScriptProcedureCollection&gt; aProcedureSet = m_iScriptControl-&gt;GetProcedures();
long n = aProcedureSet-&gt;GetCount();
CComPtr&lt;IScriptProcedure&gt; aProcedure = aProcedureSet-&gt;GetItem(_variant_t(n));
_bstr_t strFunction = aProcedure-&gt;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 &lt; n; i++) &lt;br &gt; {
va.bstrVal = SysAllocString(L"test");
SafeArrayPutElement(psa, &i, &amp;va);
}
l 调用函数。
_variant_t Result = m_iScriptControl-&gt;Run(strFunction, &amp;psa);
l 释放参数。
for(i = 0; i &lt; n; i++)
{
va.bstrVal = SysAllocString(L"test");
SafeArrayGetElement(psa, &amp;i, &amp;va);
SysFreeString(va.bstrVal);
}
SafeArrayDestroy(psa);
您认为本文应该得 12345 共有5人参与打分打印|收藏|讨论|投诉7c6ea0f7-f670-44ee-ba92-4a98278a477a
Only those who attempt the absurd can achieve the impossible
本文转自
http://dev.csdn.net/author/absurd/7c6ea0f7f67044eeba924a98278a477a.html
标签词:
调用 jscript psa 控件 bounds test 参数 cpp aprocedureset long