Anbindung AZEZ-KI API, etc.

VERAG_PROG_ALLGEMEIN/cAllgemein.vb

@@ -2,6 +2,7 @@
 Imports GrapeCity.ActiveReports.Document
 Imports System.ComponentModel
 Imports System.Data.SqlClient
+Imports System.IO
 
 Public Class cAllgemein
     Public Shared FIRMA As String
@@ -597,6 +598,40 @@ Public Class cAllgemein
         End If
         Return ""
     End Function
+
+    Public Shared Function ExtractPdfPages(ByVal SourceFile As String, ByVal TargetFile As String, pageStart As Integer, pagesEnd As Integer) As Boolean 'ITEXTSHARP
+        Try
+            Dim impPage As iTextSharp.text.pdf.PdfImportedPage = Nothing
+            If SourceFile.Contains(" ") Then SourceFile = SourceFile
+            Dim Reader As New iTextSharp.text.pdf.PdfReader(SourceFile)
+            If Not TargetFile.ToLower.EndsWith(".pdf") Then TargetFile = TargetFile & ".pdf"
+            Dim srcDoc As New iTextSharp.text.Document() 'Reader.GetPageSizeWithRotation(0))
+            Dim PdfCopyProvider As New iTextSharp.text.pdf.PdfCopy(srcDoc, New FileStream(TargetFile, System.IO.FileMode.Create))
+            PdfCopyProvider.SetFullCompression()
+            srcDoc.Open()
+            For p As Integer = pageStart To pagesEnd
+                If p > Reader.NumberOfPages Then
+                    MsgBox("Seitenanzahl überschritten!")
+                    srcDoc.Close() : Reader.Close()
+                    Return False
+                End If
+                impPage = PdfCopyProvider.GetImportedPage(Reader, p)
+                ' ----- Ermitteln der Seitenauflösung und setzen für die neue Seite
+                PdfCopyProvider.SetPageSize(New iTextSharp.text.Rectangle(0.0F, 0.0F, impPage.Width, impPage.Height, Reader.GetPageRotation(p)))
+                ' ----- PDF Seite in das neue Dokument einfügen
+                PdfCopyProvider.AddPage(impPage)
+
+            Next
+            ' ----- neues PDF Dokument und den Reader schließen
+            srcDoc.Close()
+            Reader.Close()
+            Return True
+        Catch ex As Exception
+            VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name)
+        End Try
+        Return False
+    End Function
+
 End Class
 
 Public Class cNCTS_GUARANTEES
@@ -635,4 +670,6 @@ Public Class cNCTS_GUARANTEES
     End Function
 
 
+
+
 End Class