PDF Erzeugung mit Visual Basic .NET (.NET Framework)

VB.NET Beispielanwendung - PDF COM Api

Das Beispiel soll zeigen, wie sie das COM Interface von 7-PDF Maker mit dem .NET Framework für die PDF Erzeugung nutzen können. Wir verwenden im Codebeispiel VB.NET als Programmiersprache. Das Beispiel kann aber leicht auf C# oder auch ASP.NET Web-Anwendungen abstrahiert werden.

Die Nutzung der Komponente im Beispiel zeigt auch hier das exemplarische Setzen von PDF Einstellungsoptionen über die PDF Setting Funktionen der Komponente und die eigentliche PDF Umwandlung der Eingangsdatei über die PDF Konvertierungsfunktion convertToPDF.

Der Returncode der PDF-Engine wird dann in einer Textbox ausgegeben. Über den Returncode weiss der Entwickler genau wann und ob die PDF Erzeugung erfolgreich abgeschlossen wurde, und kann darauf programmgesteuert flexibel reagieren.


Codebeispiel herunterladen

Quelltextauszug des Sourcecodebeispiels (VB.NET)

  1. Public Class frmSevenPDFCOMClient
  2.  
  3.     Private Sub btnSelectFile_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnSelectFile.Click
  4.         Dim strDatei As String
  5.  
  6.         'Select a File that should be convert to PDF here
  7.         With OpenFileDialog1
  8.  
  9.             .FilterIndex = 1
  10.  
  11.             If .ShowDialog() = Windows.Forms.DialogResult.OK Then
  12.                 strDatei = .FileName
  13.                 txtFile.Text = strDatei
  14.             End If
  15.  
  16.         End With
  17.  
  18.     End Sub
  19.  
  20.     Private Sub btnConvertToPDF_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnConvertToPDF.Click
  21.         Dim SevenPDFComObj As New SevenPDFComObj.SevenPDFObjConverter
  22.  
  23.         'COM DLL INVOKE CALL TO SevenPDFComObj.dll
  24.         'Note that you must register the ActiveX DLL first
  25.         'Use [regsvr32 "FULLPATH TO DLL FOLDER\SevenPDFComObj.dll"]
  26.         'Pleas Notice: You need administrative privileges for that!
  27.  
  28.         Try
  29.             txtReturnCode.Text = ""
  30.  
  31.             '******* INITIALIZATION *********
  32.  
  33.             SevenPDFComObj.Init()
  34.             'SevenPDFComObj.UnlockKey ("INSERT LICENSEKEY")
  35.  
  36.             '********************************
  37.  
  38.             '****** Customize some PDF Settings *******
  39.             'Notice: PDF encryption works only in registered version
  40.             '******************************************
  41.  
  42.             SevenPDFComObj.setExportNotes(0)
  43.             SevenPDFComObj.setExportNotesPages(0)
  44.             SevenPDFComObj.setExportBookmarks(0)
  45.  
  46.             'Set PDF Security Options
  47.             'SevenPDFComObj.setEncryptFile (1)
  48.             'SevenPDFComObj.setPermissionPassword ("test1232")
  49.             'SevenPDFComObj.setRestrictPermissions (1)
  50.             'SevenPDFComObj.setChanges (0)
  51.             'SevenPDFComObj.setPrinting (1)
  52.             'SevenPDFComObj.setEnableCopyingOfContent (0)
  53.             'SevenPDFComObj.setEnableTextAccessForAccessibilityTools (0)
  54.  
  55.             'Make the Conversion
  56.             txtReturnCode.Text = SevenPDFComObj.convertToPdf(txtFile.Text, txtPDF.Text, 0).ToString()
  57.  
  58.         Catch ex As Exception
  59.             MsgBox("Error occurs: " & ex.Message)
  60.         End Try
  61.  
  62.     End Sub
  63.  
  64.     Private Sub btnSelectPDF_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnSelectPDF.Click
  65.         Dim strDatei As String
  66.  
  67.         'Select a File that should be convert to PDF here
  68.         With SaveFileDialog1
  69.  
  70.             .FilterIndex = 1
  71.  
  72.             If .ShowDialog() = Windows.Forms.DialogResult.OK Then
  73.                 strDatei = .FileName
  74.                 txtPDF.Text = strDatei
  75.             End If
  76.  
  77.         End With
  78.     End Sub
  79. End Class