Comment faire pour l'appel de m�thode Run() du contr�le de Microsoft Script dans C++

Num�ro d'article: 229669 - Voir les produits auxquels s'applique cet article

ATTENTION : Cet article est issu du syst�me de traduction automatique

Cliquez ici si vous souhaitez afficher en c�te � c�te l?article anglais et sa traduction automatique en fran�ais

Agrandir tout | R�duire tout

R�sum�

Cet article explique comment utiliser le contr�le Microsoft script pour appeler des fonctions ou sous-routines d�finies dans JavaScript ou VBScript.

Retour au d�but | Envoyer des commentaires

Le contr�le de script comporte quatre m�thodes. Un des est Run(), qui s'ex�cute une sous-routine ou une fonction. Avant d'appeler cette m�thode, sp�cifiez la langue du script, d�finir AllowUI et ajouter le script suivant au contr�le script :

//---------------------- 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 -----------------------

Retour au d�but | Envoyer des commentaires

R�f�rences

Informations sur le contr�le de script peuvent trouver dans le MSDN Scripting Site

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

.

Vous trouverez des informations suppl�mentaires dans les articles suivants dans la Base de connaissances Microsoft :

184977

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

CORRECTIF : rapports ScriptControl langue non valide de VBScript dans la biblioth�que MFC

165967

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

MOD�LE : erreur de script se produit lorsque faisant r�f�rence � groupe non variant

Retour au d�but | Envoyer des commentaires

Propri�t�s

Num�ro d'article: 229669 - Derni�re mise � jour: mardi 29 juin 2004 - Version: 2.1

Les informations contenues dans cet article s'appliquent au(x) produit(s) suivant(s):

Microsoft Visual C++ 6.0 �dition Entreprise
Microsoft Visual C++ 6.0 �dition Professionnelle
Microsoft Visual C++, 32-bit Learning Edition 6.0
Microsoft JScript�5.0
Visual Basic, Scripting Edition�5.0

kbmt kbautomation kbhowto kbscript KB229669 KbMtfr

Traduction automatique

IMPORTANT : Cet article est issu du syst�me de traduction automatique mis au point par Microsoft (http://support.microsoft.com/gp/mtdetails). Un certain nombre d?articles obtenus par traduction automatique sont en effet mis � votre disposition en compl�ment des articles traduits en langue fran�aise par des traducteurs professionnels. Cela vous permet d?avoir acc�s, dans votre propre langue, � l?ensemble des articles de la base de connaissances r�dig�s originellement en langue anglaise. Les articles traduits automatiquement ne sont pas toujours parfaits et peuvent comporter des erreurs de vocabulaire, de syntaxe ou de grammaire (probablement semblables aux erreurs que ferait une personne �trang�re s?exprimant dans votre langue !). N�anmoins, mis � part ces imperfections, ces articles devraient suffire � vous orienter et � vous aider � r�soudre votre probl�me. Microsoft s?efforce aussi continuellement de faire �voluer son syst�me de traduction automatique.

La version anglaise de cet article est la suivante: 229669

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

L'INFORMATION CONTENUE DANS CE DOCUMENT EST FOURNIE PAR MICROSOFT SANS GARANTIE D'AUCUNE SORTE, EXPLICITE OU IMPLICITE. L'UTILISATEUR ASSUME LE RISQUE DE L'UTILISATION DU CONTENU DE CE DOCUMENT. CE DOCUMENT NE PEUT ETRE REVENDU OU CEDE EN ECHANGE D'UN QUELCONQUE PROFIT.

Retour au d�but | Envoyer des commentaires