C�mo llamar a la forma de Run() de Microsoft Script Control en C++

Id. de art�culo: 229669 - Ver los productos a los que se aplica este art�culo

Advertencia: Art�culo de Traducci�n Autom�tica, vea la exenci�n de responsabilidad.

Haga clic aqu� para ver en paralelo el art�culo de traducci�n autom�tica y el art�culo original en ingl�s.

Expandir todo | Contraer todo

Resumen

En este art�culo se muestra c�mo utilizar el control de Microsoft Script para llamar a funciones o subrutinas definidas en JavaScript o VBScript.

Volver al principio | Enviar comentarios

El control de secuencias de comandos tiene cuatro m�todos. Uno de ellos es Run(), que se ejecuta una subrutina o una funci�n. Antes de llamar a este m�todo, especifique el idioma de la secuencia de comandos, establecer AllowUI y agregue la siguiente secuencia de comandos al control de secuencia de comandos:

//---------------------- Begin ---------------------------

#include <stdio.h>
#import "C:\winnt\system32\msscript.ocx"  // msscript.ocx 
using namespace MSScriptControl;

int main(void)
{
	HRESULT hr = CoInitialize(NULL);

	IScriptControlPtr pScriptControl(__uuidof(ScriptControl));

	// Create a VARIANT array of VARIANTs which hold BSTRs
	LPSAFEARRAY psa;
	SAFEARRAYBOUND rgsabound[]  = { 3, 0 }; // 3 elements, 0-based
	int i;

	psa = SafeArrayCreate(VT_VARIANT, 1, rgsabound);
	if (!psa)
	{
		return E_OUTOFMEMORY;
	}

	VARIANT vFlavors[3];
	for (i = 0; i < 3; i++)
	{
		VariantInit(&vFlavors[i]);
		V_VT(&vFlavors[i]) = VT_BSTR;
	}

	V_BSTR(&vFlavors[0]) = SysAllocString(OLESTR("Vanilla"));
	V_BSTR(&vFlavors[1]) = SysAllocString(OLESTR("Chocolate"));
	V_BSTR(&vFlavors[2]) = SysAllocString(OLESTR("Espresso Chip"));

	long lZero = 0;
	long lOne = 1;
	long lTwo = 2;

	// Put Elements to the SafeArray:
	hr = SafeArrayPutElement(psa, &lZero,&vFlavors[0]);
	hr = SafeArrayPutElement(psa, &lOne,&vFlavors[1]);
	hr = SafeArrayPutElement(psa, &lTwo,&vFlavors[2]);

	// Free Elements from the SafeArray:
	for(i=0;i<3;i++)
	{
		SysFreeString(vFlavors[i].bstrVal);
	}

	// Set up Script control properties
	pScriptControl->Language = "JScript";
	pScriptControl->AllowUI = TRUE;
	pScriptControl->AddCode(
		"function MyStringFunction(Argu1,Argu2,Argu3)\ 
		{  return \"hi there\" ;}" );

	//  Call MyStringFunction with the two args:
	_variant_t outpar = pScriptControl->Run("MyStringFunction", &psa);
	

	// Convert VARIANT to C string:
	_bstr_t bstrReturn = (_bstr_t)outpar;
	char *pResult = (char *)bstrReturn;


	// Print the result out:
	printf("func=%s\n",pResult);
	
	//  Clean up:
	SafeArrayDestroy(psa);

	CoUninitialize();
	return(0);
}

// --------------- End -----------------------

Volver al principio | Enviar comentarios

Referencias

Puede encontrar informaci�n en el control de secuencias de comandos en el MSDN Scripting Site

(http://msdn.microsoft.com/scripting/)

.

Puede encontrar informaci�n adicional en los siguientes art�culos en Microsoft Knowledge Base:

184977

(http://support.microsoft.com/kb/184977/EN-US/ )

REVISI�N: Informes ScriptControl idioma no v�lido de VBScript en MFC

165967

(http://support.microsoft.com/kb/165967/EN-US/ )

PRB: Secuencia de comandos produce cuando referencias Array no variante

Volver al principio | Enviar comentarios

Propiedades

Id. de art�culo: 229669 - �ltima revisi�n: martes, 29 de junio de 2004 - Versi�n: 2.1

La informaci�n de este art�culo se refiere a:

Microsoft Visual C++ 6.0 Enterprise
Microsoft Visual C++ 6.0 Professional
Microsoft Visual C++, 32-bit Learning Edition 6.0
Microsoft JScript 5.0
Visual Basic, Scripting Edition 5.0

kbmt kbautomation kbhowto kbscript KB229669 KbMtes

Traducci�n autom�tica

IMPORTANTE: Este art�culo ha sido traducido por un software de traducci�n autom�tica de Microsoft (http://support.microsoft.com/gp/mtdetails) en lugar de un traductor humano. Microsoft le ofrece art�culos traducidos por un traductor humano y art�culos traducidos autom�ticamente para que tenga acceso en su propio idioma a todos los art�culos de nuestra base de conocimientos (Knowledge Base). Sin embargo, los art�culos traducidos autom�ticamente pueden contener errores en el vocabulario, la sintaxis o la gram�tica, como los que un extranjero podr�a cometer al hablar el idioma. Microsoft no se hace responsable de cualquier imprecisi�n, error o da�o ocasionado por una mala traducci�n del contenido o como consecuencia de su utilizaci�n por nuestros clientes. Microsoft suele actualizar el software de traducci�n frecuentemente.

Haga clic aqu� para ver el art�culo original (en ingl�s): 229669

(http://support.microsoft.com/kb/229669/en-us/ )

Volver al principio | Enviar comentarios