edv/SDL
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Spire

Browse Source
This commit is contained in:
d.breimaier
2024-09-13 08:29:41 +02:00
parent 29a398916a
commit 0bbf26e855
1 changed files with 6 additions and 6 deletions
Download Patch File Download Diff File Expand all files Collapse all files

12
VERAG_PROG_ALLGEMEIN/DATENSERVER/cDATENSERVER.vb
View File

@@ -1246,7 +1246,7 @@ Public Class cFormularManager
Public Shared Sub mergePDFs(files As List(Of String), ByRef outputFile As String) 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 files.RemoveAll(Function(v) v.Equals("")) 'Alle leeren Stings löschen
If files.Count > 0 Then If files.Count > 0 Then
Dim doc As Spire.Pdf.PdfDocumentBase = Spire.Pdf.PdfDocument.MergeFiles(files.ToArray) Dim doc As Spire.Pdf.PdfDocumentBase = Spire.Pdf.PdfDocument.MergeFiles(files.ToArray)
@@ -1390,7 +1390,7 @@ Public Class cFormularManager
' Exit Sub ' Exit Sub
'End If '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 For Each pdfPath In PDFFile
@@ -1461,7 +1461,7 @@ Public Class cFormularManager
Public Shared Sub PrintViaSpirePDF_FromURL(URLs As String(), Optional printerName As String = "") Public Shared Sub PrintViaSpirePDF_FromURL(URLs As String(), Optional printerName As String = "")
Try 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 If printerName = "" Then
Dim oPS As New System.Drawing.Printing.PrinterSettings Dim oPS As New System.Drawing.Printing.PrinterSettings
printerName = oPS.PrinterName printerName = oPS.PrinterName
@@ -1514,7 +1514,7 @@ Public Class cFormularManager
Try Try
If targetPath = "" Then targetPath = getTMPPath_PDF() 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) Dim doc As New Spire.Pdf.PdfDocument '= New Spire.Pdf.PdfDocument(URL)
@@ -1555,7 +1555,7 @@ Public Class cFormularManager
End If 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() Using webClient As New Net.WebClient()
Dim data() As Byte = webClient.DownloadData(URL) Dim data() As Byte = webClient.DownloadData(URL)
@@ -2248,7 +2248,7 @@ Public Class DATENVERVER_OPTIONS
Try Try
If targetPath = "" Then targetPath = TMP_PATH 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) Dim doc As New Spire.Pdf.PdfDocument '= New Spire.Pdf.PdfDocument(URL)
doc.LoadFromHTML(File, False, False, False) doc.LoadFromHTML(File, False, False, False)
'doc.LoadFromFile(File) 'doc.LoadFromFile(File)