VBScript

www.altova.com Imprimer cette rubrique Page précédente Un niveau supérieur Page suivante

Accueil >  MapForce Server API > Exemples de code >

VBScript

L'exemple suivant illustre comment exécuter un fichier d'exécution de mappage (.mfx) depuis le code VBScript. Sous Windows, les fichiers d'exemple sont disponibles sous le chemin suivant : C:\Program Files\Altova\MapForceServer2019\etc\Examples.

 

Avant de tester cet exemple, assurez-vous que les conditions préalables suivantes sont correctes :

 

MapForce Server est installé et mis sous licence
MapForce Server est disponible en tant qu'objet de serveur COM (normalement, ce processus a lieu automatiquement pendant l'installation MapForce Server ; pour vérifier si l'enregistrement a bien réussi, voir À propos de l'interface COM).

 

Option Explicit

 

'Create a MapForce Server object; use "MapForce_x64.Server" if you want to use the 64-bit installation

Dim objMFS

Set objMFS = WScript.GetObject( """MapForce.Server" )

 

'Set a working directory - used as a base for relative paths (you may need to adapt the path to the installation folder)

objMFS.WorkingDirectory = "C:\Program Files (x86)\Altova\MapForceServer2019\etc\Examples"

 

'Default path to the MapForce Server executable is the installation path (same dir with the MapForceServer.dll)

'In case you moved the binaries on the disk, you need to explicitly set the path to the .exe file

'objMFS.ServerPath = "C:\Program Files (x86)\Altova\MapForceServer2019\bin\MapForceServer.exe"

 

'Set global resource file and configuration, if your mapping uses global resources

'Call objMFS.SetOption("globalresourcefile", "GlobalResource.xml") '"gr" can be used as short name for "globalresourcefile"

'Call objMFS.SetOption("globalresourceconfig", "Config2") '"gc" can be used as short name for "globalresourceconfig"

 

'Prepare the parameters, if your mapping uses parameters

'Call objMFS.AddParameter( "testparam1", "value 1" )

 

' Run the mapping; input and output paths are stored inside the MFX file

' NOTE Please adapt the path to the input file in order to run the sample

If ( objMFS.Run( "C:\Program Files (x86)\Altova\MapForceServer2019\etc\Examples\TokenizeString.mfx" ) ) Then

 WScript.Echo( "Success - finished execution" )

Else

 WScript.Echo( objMFS.LastExecutionMessage )

End If


© 2019 Altova GmbH