From 0bbf26e855ad7893e77183816d397ac65f0bb6e7 Mon Sep 17 00:00:00 2001 From: "d.breimaier" Date: Fri, 13 Sep 2024 08:29:41 +0200 Subject: [PATCH] Spire --- VERAG_PROG_ALLGEMEIN/DATENSERVER/cDATENSERVER.vb | 12 ++++++------ 1 file changed, 6 insertions(+), 6 deletions(-) diff --git a/VERAG_PROG_ALLGEMEIN/DATENSERVER/cDATENSERVER.vb b/VERAG_PROG_ALLGEMEIN/DATENSERVER/cDATENSERVER.vb index 075dbb3e..89f21cf1 100644 --- a/VERAG_PROG_ALLGEMEIN/DATENSERVER/cDATENSERVER.vb +++ b/VERAG_PROG_ALLGEMEIN/DATENSERVER/cDATENSERVER.vb @@ -1246,7 +1246,7 @@ Public Class cFormularManager Public Shared Sub mergePDFs(files As List(Of String), ByRef outputFile As String) - If Not VERAG_PROG_ALLGEMEIN.cProgramFunctions.spireLoadLicense() Then MsgBox("Fehler beim Laden der SPIRE-Lizenz") + 'If Not VERAG_PROG_ALLGEMEIN.cProgramFunctions.spireLoadLicense() Then MsgBox("Fehler beim Laden der SPIRE-Lizenz") files.RemoveAll(Function(v) v.Equals("")) 'Alle leeren Stings löschen If files.Count > 0 Then Dim doc As Spire.Pdf.PdfDocumentBase = Spire.Pdf.PdfDocument.MergeFiles(files.ToArray) @@ -1390,7 +1390,7 @@ Public Class cFormularManager ' Exit Sub 'End If - If Not VERAG_PROG_ALLGEMEIN.cProgramFunctions.spireLoadLicense() Then MsgBox("Fehler beim Laden der SPIRE-Lizenz") + 'If Not VERAG_PROG_ALLGEMEIN.cProgramFunctions.spireLoadLicense() Then MsgBox("Fehler beim Laden der SPIRE-Lizenz") For Each pdfPath In PDFFile @@ -1461,7 +1461,7 @@ Public Class cFormularManager Public Shared Sub PrintViaSpirePDF_FromURL(URLs As String(), Optional printerName As String = "") Try - If Not VERAG_PROG_ALLGEMEIN.cProgramFunctions.spireLoadLicense() Then MsgBox("Fehler beim Laden der SPIRE-Lizenz") + 'If Not VERAG_PROG_ALLGEMEIN.cProgramFunctions.spireLoadLicense() Then MsgBox("Fehler beim Laden der SPIRE-Lizenz") If printerName = "" Then Dim oPS As New System.Drawing.Printing.PrinterSettings printerName = oPS.PrinterName @@ -1514,7 +1514,7 @@ Public Class cFormularManager Try If targetPath = "" Then targetPath = getTMPPath_PDF() - If Not VERAG_PROG_ALLGEMEIN.cProgramFunctions.spireLoadLicense() Then MsgBox("Fehler beim Laden der SPIRE-Lizenz") + 'If Not VERAG_PROG_ALLGEMEIN.cProgramFunctions.spireLoadLicense() Then MsgBox("Fehler beim Laden der SPIRE-Lizenz") Dim doc As New Spire.Pdf.PdfDocument '= New Spire.Pdf.PdfDocument(URL) @@ -1555,7 +1555,7 @@ Public Class cFormularManager End If - If Not VERAG_PROG_ALLGEMEIN.cProgramFunctions.spireLoadLicense() Then MsgBox("Fehler beim Laden der SPIRE-Lizenz") + 'If Not VERAG_PROG_ALLGEMEIN.cProgramFunctions.spireLoadLicense() Then MsgBox("Fehler beim Laden der SPIRE-Lizenz") Using webClient As New Net.WebClient() Dim data() As Byte = webClient.DownloadData(URL) @@ -2248,7 +2248,7 @@ Public Class DATENVERVER_OPTIONS Try If targetPath = "" Then targetPath = TMP_PATH - If Not VERAG_PROG_ALLGEMEIN.cProgramFunctions.spireLoadLicense() Then MsgBox("Fehler beim Laden der SPIRE-Lizenz") + 'If Not VERAG_PROG_ALLGEMEIN.cProgramFunctions.spireLoadLicense() Then MsgBox("Fehler beim Laden der SPIRE-Lizenz") Dim doc As New Spire.Pdf.PdfDocument '= New Spire.Pdf.PdfDocument(URL) doc.LoadFromHTML(File, False, False, False) 'doc.LoadFromFile(File)