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-12 14:06:11 +02:00
parent 8021e5a30d
commit 10340868dc
10 changed files with 174 additions and 48 deletions
Download Patch File Download Diff File Expand all files Collapse all files

13
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)
VERAG_PROG_ALLGEMEIN.cProgramFunctions.spireLoadLicense()
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,9 +1390,10 @@ Public Class cFormularManager
' Exit Sub
'End If
VERAG_PROG_ALLGEMEIN.cProgramFunctions.spireLoadLicense()
If Not VERAG_PROG_ALLGEMEIN.cProgramFunctions.spireLoadLicense() Then MsgBox("Fehler beim Laden der SPIRE-Lizenz")
For Each pdfPath In PDFFile
Dim doc As New Spire.Pdf.PdfDocument(pdfPath)
doc.PageSettings.Size = Spire.Pdf.PdfPageSize.A4
@@ -1460,7 +1461,7 @@ Public Class cFormularManager
Public Shared Sub PrintViaSpirePDF_FromURL(URLs As String(), Optional printerName As String = "")
Try
VERAG_PROG_ALLGEMEIN.cProgramFunctions.spireLoadLicense()
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
@@ -1513,7 +1514,7 @@ Public Class cFormularManager
Try
If targetPath = "" Then targetPath = getTMPPath_PDF()
VERAG_PROG_ALLGEMEIN.cProgramFunctions.spireLoadLicense()
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)
@@ -1554,7 +1555,7 @@ Public Class cFormularManager
End If
VERAG_PROG_ALLGEMEIN.cProgramFunctions.spireLoadLicense()
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)
@@ -2247,7 +2248,7 @@ Public Class DATENVERVER_OPTIONS
Try
If targetPath = "" Then targetPath = TMP_PATH
VERAG_PROG_ALLGEMEIN.cProgramFunctions.spireLoadLicense()
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)