在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 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 aProcedureSet= m_iScriptControl->GetProcedures();
　　longn= aProcedureSet->GetCount();
　　
　　CComPtr aProcedure= aProcedureSet->GetItem(_variant_t(n));
　　_bstr_tstrFunction= aProcedure->GetName();
　　
　　
　　l 准备函数参数。
　　VARIANTva= {0};
　　va.vt= VT_BSTR
　　
　　n= 2;
　　SAFEARRAYBOUNDbounds[1] = {0};
　　bounds[0].cElements= n
　　SAFEARRAY* psa= SafeArrayCreate(VT_VARIANT, 1, bounds);
　　
　　longi= 0;
　　for(i= 0; i
　　{
　　va.bstrVal= SysAllocString(L"test");
　　SafeArrayPutElement(psa, &i, &va);
　　}
　　
　　l 调用函数。
　　_variant_tResult= m_iScriptControl->Run(strFunction, &psa);
　　
　　l 释放参数。
　　for(i= 0; i
　　{
　　va.bstrVal= SysAllocString(L"test");
　　SafeArrayGetElement(psa, &i, &va);
　　SysFreeString(va.bstrVal);
　　}
　　SafeArrayDestroy(psa);
　　
　　
　　Trackback: http://tb.blog.csdn.net/TrackBack.aspx?PostId=786824

本文转自
http://blog.csdn.net/absurd/archive/2006/06/10/786824.aspx