PDF Erzeugung mit Visual Basic .NET

Das Beispiel soll zeigen, wie sie das COM Interface unseres PDF Makers 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.

Das nachfolgende Codebeispiel steht unten am Ende der Seite zum Download zur Verfügung.

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

Downloads

Anhang Größe
Codebeispiel herunterladen 129.23 KB
LiveZilla Live Chat Software
Top