在 CPP 中調(diào)用 Jscript 中的函數(shù)
在 C++ 中調(diào)用 Jscript 的函數(shù)非常簡單， Windows 提供了一個 msscript.ocx 的控件，利用這個控件可以直接操作 Jscript: 執(zhí)行一段 Jscript 腳本，或者調(diào)用指定的函數(shù)。我寫了一個簡單的例子：
l 導入 msscript.ocx 。下面這條指令會在項目目錄中生成 msscript.tli 和 msscript.tlh 兩個文件，里面有 msscript.ocx 中所有接口的描述和 IID 的定義。
#import "msscript.ocx" no_namespace
l 聲明一個對象。
CComPtr < IScriptControl > m_iScriptControl;
l 創(chuàng)建對象實例
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 獲得函數(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 準備函數(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 );