Visual Basic

www.altova.com Dieses Kapitel drucken Vorherige Seite Eine Ebene nach oben Nächste Seite

Startseite >  Altova StyleVision Server 2019 > StyleVision Server API > Codebeispiele >

Visual Basic

Im Beispiel unten wird gezeigt, wie Sie über C++-Code anhand einer PXF-Datei und einer XML-Input-Datei eine RTF-Output-Datei generieren. Stellen Sie sicher, dass StyleVision Server installiert und lizenziert ist und als COM-Servereobjekt zur Verfügung steht. Die Registrierung als COM-Serverobjekt erfolgt normalerweise während der Installation von StyleVision Server. Eine Anleitung, wie Sie überprüfen, ob die Registrierung erfolgreich war, finden Sie unter Informationen zur COM-Schnittstelle.

 

Option Explicit On

 

Module Program

 

  Sub Main()

 

      'Create a StyleVision Server object

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

 

      'Set a working directory - used for output and for intermediate files

      objSVS.WorkingDirectory = "C:\temp"

 

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

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

      'objSVS.ServerPath = "C:\Program Files (x86)\Altova\StyleVisionServer2019\bin\StyleVisionServer.exe"

 

      'Prepare the name of the working XML

      objSVS.InputXML = "ExpReport.xml"

 

      'Add output paths (absolute or relative to WorkingDirectory) for all formats that should be generated

      objSVS.OutputRTF = "ExpReport.rtf"

 

      'Prepare the parameters, if your design uses parameters

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

 

      ' Run the transformation; the output will be stored at C:\temp\ExpReport.rtf

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

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

          System.Console.WriteLine("Success - finished execution")

      Else

          System.Console.WriteLine(objSVS.LastExecutionMessage)

      End If

 

  End Sub

 

End Module

 


© 2019 Altova GmbH