VBScript

www.altova.com Imprimir este apartado Página anterior Subir un nivel Página siguiente

Inicio >  API de MapForce Server > Ejemplos de código >

VBScript

Este ejemplo muestra cómo ejecutar un archivo de ejecución de MapForce (.mfx) desde código VBScript. En Windows, los archivos de ejemplo están en: C:\Program Files\Altova\MapForceServer2019\etc\Examples.

 

Antes de ejecutar el siguiente código, compruebe que cumple con estos requisitos:

 

MapForce Server está instalado y tiene asignada una licencia válida.
MapForce Server está disponible como objeto de servidor COM (este proceso suele tener lugar automáticamente durante la instalación de MapForce Server. Consulte el apartado Información sobre la interfaz COM para obtener más información).

 

 

Option Explicit
 
'Crear un objeto MapForce Server; use "MapForce_x64.Server" si prefiere usar la versión de 64 bits
Dim objMFS
Set objMFS = WScript.GetObject( "", "MapForce.Server" )
 
'Establecer el directorio de trabajo, que sirve de base para las rutas de acceso relativas (puede que tenga que adaptar la ruta de acceso a la carpeta de instalación)
objMFS.WorkingDirectory = "C:\Archivos de programa (x86)\Altova\MapForceServer2019\etc\Examples"
 
'La ruta de acceso predeterminada del ejecutable de MapForce Server es la ruta de acceso de instalación (el directorio donde está MapForceServer.dll)
'Si cambió los binarios a otra ubicación del disco, deberá establecer la ruta de acceso del archivo .exe de forma explícita
'objMFS.ServerPath = "C:\Archivos de programa (x86)\Altova\MapForceServer2019\bin\MapForceServer.exe"
 
'Establecer archivo de recursos globales y configuración si la asignación usa recursos globales
'Llamar a objMFS.SetOption("globalresourcefile", "GlobalResource.xml") '"gr" puede usarse como abreviatura de "globalresourcefile"
'Llamar a objMFS.SetOption("globalresourceconfig", "Config2") '"gc" puede usarse como abreviatura de "globalresourceconfig"

 
'Preparar los parámetros si la asignación los usa
'Llamar a objMFS.AddParameter( "paramprueba1", "valor 1" )
 
' Ejecutar la asignación; las rutas de acceso de entrada y salida están en el archivo MFX
' NOTA: para poder ejecutar este ejemplo deberá adaptar la ruta de acceso del archivo de entrada
If ( objMFS.Run( "C:\Archivos de programa (x86)\Altova\MapForceServer2019\etc\Examples\TokenizeString.mfx" ) ) Then
  WScript.Echo( "La ejecución terminó correctamente." )
Else
  WScript.Echo( objMFS.LastExecutionMessage )
End If


© 2019 Altova GmbH