VB.NET und PDF

Hier finden Sie ein Beispielprojekt für die Nutzung des "Converter"-Webservice (OOoConverter) von webPDF unter VB.NET 2008 Express. In dem Beispiel wird davon ausgegangen, dass der webPDF Server auf dem gleichen Rechner läuft, auf dem auch das VB.NET Projekt ausgeführt wird.

Das Projekt bzw. der Code dienen nur zu Demo-Zwecken und müssen an die
lokalen Gegebenheiten angepasst werden.

Imports System.IO

Public Class FormMain

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
   
        ' access to Web service
        Dim oTestWebservice As OOoConverterService.OOoConverter = New
        OOoConverterService.OOoConverterClient
       
        ' return object for Web service
        Dim ret As OOoConverterService.convertSimpleResponse = Nothing
       
        ' parameter object for Web service
        Dim options As OOoConverterService.convertSimpleRequest = New
        OOoConverterService.convertSimpleRequest

        ' set Web service options
       
        ' options.options = "pdf.archive=1" ' PDF/A
        options.options = "pdf.encryptDocument=true&pdf.
        restrictPermissions=true&pdf.permissionPassword=abc"
        options.sourceExtension = ".doc"
        options.targetExtension = ".pdf"
       
        ' Read source file ("bin\debug")
        Dim fInfo As New FileInfo(TextBoxFileName.Text)
        Dim numBytes As Long = fInfo.Length
        Dim fStream As New FileStream(TextBoxFileName.Text, FileMode.Open,
        FileAccess.Read)
        Dim br As New BinaryReader(fStream)
        Dim data As Byte() = br.ReadBytes(CInt(numBytes))
       
        ' assign file content to Web service object
        options.fileContent = data
       
        ' show the number of bytes in the array
        TextBoxFileSize.Text = Convert.ToString(data.Length)
        br.Close()
        fStream.Close()
       
        Try
            ' call the Web service
            ret = oTestWebservice.convertSimple(options)
        Catch ex As Exception
            ' catch the exception
            MessageBox.Show(ex.Message.ToString(), "Info")
            Return
        End Try
       
        ' save the returned file to disk
        Dim fs As System.IO.FileStream
        fs = New System.IO.FileStream(TextBoxTargetFile.Text, IO.FileMode.
            OpenOrCreate)
        fs.Seek(0, System.IO.SeekOrigin.End)
        fs.Write(ret.return, 0, ret.return.Length())
        fs.Close()
       
        MessageBox.Show("Finished!", "Info")
       
    End Sub
   
End Class