Visual Basic
El ejemplo siguiente muestra cómo utilizar código Visual Basic para generar un archivo RTF de salida utilizando un archivo PXF y un archivo XML de entrada. Asegúrese de que StyleVision Server está instalado y tiene licencia, y de que está disponible como objeto de servidor COM. El registro como objeto de servidor COM suele hacerse durante la instalación de StyleVision Server. Para comprobar si el registro se ha realizado correctamente, consulte Información sobre la interfaz COM.
Option Explicit On
Module Program
Sub Main()
Pruebe
'Crear un objeto StyleVision Server
Dim objSVS As Altova.StyleVisionServer.Server = New Altova.StyleVisionServer.Server
'Establezca un directorio de trabajo, que se utilizará para los archivos de salida y los archivos intermedios
'objSVS.WorkingDirectory = "C:\Archivos de programa (x86)\Altova\MapForceServer2020\etc\Examples"
objSVS.WorkingDirectory = "..\..\.."
'La ruta predeterminada al ejecutable de StyleVision Server es la ruta de instalación (el mismo directorio que StyleVisionServer.dll).
'En caso de que haya movido los archivos binarios en el disco, debe establecer explícitamente la ruta al archivo .exe.
'La propiedad ServerPath debe configurarse antes que cualquier otra propiedad, ya que reinicializa el servidor y restablece todas las propiedades.
'objSVS.ServerPath = "C:\Archivos de programa (x86)\Altova\StyleVisionServer2020\bin\StyleVisionServer.exe"
'objSVS.ServerPath = "C:\Archivos de programa\Altova\StyleVisionServer2020\bin\StyleVisionServer.exe"
'Prepare el nombre del XML de trabajo.
' Puede ser una ruta absoluta/relativa si el archivo está almacenado externamente (no dentro de PXF).
' objSVS.InputXML = "ExpReport.xml"
' O puede contener la ruta DENTRO del PXF.
objSVS.InputXML = "ExpReport.pxf|zip\ExpReport.xml"
' Lo más fácil es hacer referencia al archivo como incrustado en el archivo de transformación
' objSVS.InputXML = "altova://packagedfile/ExpReport.xml"
'Añada rutas de salida (absolutas o relativas a DirectorioDeTrabajo) para todos los formatos que deban generarse.
objSVS.OutputRTF = "C:\tmp\ExpReport.rtf"
objSVS.OutputPDF = "C:\tmp\ExpReport.pdf"
objSVS.OutputHTML = "C:\tmp\ExpReport.html"
'Prepare los parámetros, si su diseño utiliza parámetros.
'objSVS.AddParameter( "testparam1", "value 1" )
' Ejecute la transformación; el resultado se almacenará en C:\temp
If (objSVS.Generate("ExpReport.pxf")) Then
System.Console.WriteLine(objSVS.LastExecutionMessage)
System.Console.WriteLine("La ejecución ha finalizado correctamente")
Else
System.Console.WriteLine(objSVS.LastExecutionMessage)
End If
Catch ex As Exception
System.Console.WriteLine("Error interno - " & ex.Message())
End Try
End Sub
End Module