在CPP中調(diào)用Jscript中的函數(shù)
在C++中調(diào)用Jscript的函數(shù)非常簡單，Windows提供了一個msscript.ocx的控件，利用這個控件可以直接操作Jscript: 執(zhí)行一段Jscript腳本，或者調(diào)用指定的函數(shù)。我寫了一個簡單的例子：
l 導(dǎo)入msscript.ocx。下面這條指令會在項目目錄中生成msscript.tli和msscript.tlh兩個文件，里面有msscript.ocx中所有接口的描述和IID的定義。
|
#import "msscript.ocx" no_namespace
|
l 聲明一個對象。
|
CComPtr<IScriptControl> m_iScriptControl;
|
l 創(chuàng)建對象實(shí)例
|
if(SUCCEEDED(m_iScriptControl.CoCreateInstance(__uuidof(ScriptControl))))
|
l 設(shè)置語言等屬性。
|
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 獲得函數(shù)，這里要說明的是GetItem的參數(shù)是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 準(zhǔn)備函數(shù)參數(shù)。
|
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 調(diào)用函數(shù)。
|
_variant_t Result = m_iScriptControl->Run(strFunction, &psa);
|
l 釋放參數(shù)。
for(i = 0; i < n; i++)
{
va.bstrVal = SysAllocString(L"test");
SafeArrayGetElement(psa, &i, &va);
SysFreeString(va.bstrVal);
}
SafeArrayDestroy(psa);