在CPP中调用Jscript中的函数
来源:互联网 发布:查分软件 编辑:程序博客网 时间:2024/05/01 01:23
转载时请注明出处和作者联系方式
文章出处: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);
- 在CPP中调用Jscript中的函数
- 在CPP中调用Jscript中的函数
- 在CPP中调用Jscript中的函数
- 在CPP中调用Jscript中的函数
- 在CPP中调用Jscript中的函数
- 在C++中调用Jscript/VBscript中的函数
- 如何在 ActiveX 控件中调用页面的 Jscript 函数
- 如何在一个cpp中调用另一个cpp中的类?
- 如何在一个cpp中调用另一个cpp中的类?
- JScript中的事件函数
- 在C++中调用DLL中的函数
- 在C++中调用DLL中的函数
- 在C++中调用DLL中的函数
- 在C++中调用DLL中的函数
- 在C++中调用DLL中的函数
- 在C++中调用DLL中的函数
- 在C++中调用DLL中的函数
- 如何在cpp文件中调用gcc编译的.o文件的函数
- Smart Client介绍
- CMD下的网络安全配置
- 规范化编程:ANSI和UNICODE的使用(转)
- CTime 和COleDateTime的常用操作和比较
- 还是选机械了。
- 在CPP中调用Jscript中的函数
- 项目计划书的编写说明
- 处理字符串
- VC中判断目录,文件是否存在,创建目录的方法
- Opera Mini 4.2 正式版发布
- 网络产品
- struts2.0配置问题
- win2003服务器安全设置教程
- .NET设计模式(2):单件模式(Singleton Pattern)