sPIRE

Aviso/frmHauptfenster.vb

@@ -16,6 +16,8 @@ Imports GrapeCity.Viewer.Common.Model
 Imports System.Drawing.Drawing2D
 Imports SDL
 Imports Microsoft.Office.Interop
+Imports Spire.Pdf.Print
+Imports Spire.Pdf.Texts
 
 
 'Imports UID
@@ -4688,6 +4690,35 @@ Public Class frmHauptfenster
         f.ShowDialog(Me)
     End Sub
 
+    Private Sub SpireLizenzPrüfenToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles SpireLizenzPrüfenToolStripMenuItem.Click
+
+        If Not VERAG_PROG_ALLGEMEIN.cProgramFunctions.spireLoadLicense() Then MsgBox("Fehler beim Laden der SPIRE-Lizenz")
+
+
+        Dim pdf As New Spire.Pdf.PdfDocument()
+        Dim pdfNew As New Spire.Pdf.PdfDocument()
+        pdf.PageSettings.Size = Spire.Pdf.PdfPageSize.A4
+        pdf.AppendPage()
+        pdf.SaveToFile("test.pdf")
+        pdfNew = New Spire.Pdf.PdfDocument("test.pdf")
+
+        If pdfNew.Pages.Count = 0 Then
+            MsgBox("FEhler beim erstellen der PDF-Datei")
+            Exit Sub
+
+        End If
+
+        Dim finder As PdfTextFinder = New PdfTextFinder(pdfNew.Pages(0))
+
+        If finder.Find("Evaluation").Count > 0 Then
+            MsgBox("PDF License wurde nicht geladen!")
+            Process.Start("test.pdf")
+        Else
+            MsgBox("PDF License wurde erfolgreich geladen!")
+            Process.Start("test.pdf")
+        End If
+
+    End Sub
 End Class
 
 Public Class AvisoStatusFunctions