Visual Basic

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

Inicio >  Introducción > API de StyleVision Server > Ejemplos de código >

Visual Basic

Este ejemplo muestra cómo usar código Visual Basic para generar un archivo RTF de salida con un archivo PXF y un archivo XML de entrada.

 

Antes de empezar a probar el ejemplo, compruebe que cumple con estos requisitos:

 

StyleVision Server está instalado y tiene asignada una licencia válida.
Su proyecto de Visual Studio incluye una referencia al DLL de StyleVision Server.

 

Option Explicit On

 

Module Program

 

  Sub Main()

 

      'Crear un objeto de StyleVision Server

      Dim objSVS As Altova.StyleVisionServer.Server = New Altova.StyleVisionServer.Server

 

      'Establecer un directorio de trabajo, utilizado para archivos de salida e intermedios

      objSVS.WorkingDirectory = "C:\temp"

 

      'La ruta predeterminada del ejecutable de StyleVision Server es la ruta de instalación (mismo directorio que StyleVisionServer.dll)

      'Si movió los binarios de sitio, deberá establecer la ruta de acceso del archivo .exe de forma explícita

      'objSVS.ServerPath = "C:\Archivos de programa (x86)\Altova\StyleVisionServer2019\bin\StyleVisionServer.exe"

 

      'Preparar el nombre del XML de trabajo

      objSVS.InputXML = "ExpReport.xml"

 

      'Agregar rutas de acceso de salida (absolutas o relativas a DirectorioDeTrabajo) para todos los formatos de salida que se deben generar

      objSVS.OutputRTF = "ExpReport.rtf"

 

      'Preparar los parámetros, si el diseño utiliza alguno

      'Call objSVS.AddParameter( "paramPrueba1", "valor 1" )

 

      ' Ejecutar la transformación. El resultado se almacenará en C:\temp\ExpReport.rtf

      ' NOTA: ajuste la ruta de acceso al archivo de entrada para poder ejecutar el ejemplo

      If (objSVS.Run("C:\Program Files (x86)\Altova\StyleVisionServer2019\etc\Examples\ExpReport.pxf")) Then

          System.Console.WriteLine("La ejecución finalizó correctamente")

      Else

          System.Console.WriteLine(objSVS.LastExecutionMessage)

      End If

 

  End Sub

 

End Module

 


© 2019 Altova GmbH