12.01.2024

EnvelopeGenerator.Form/Controllers/EnvelopeEditorController.vb

@@ -164,7 +164,8 @@ Public Class EnvelopeEditorController
                 .Filename = oFileInfoTemp.Name,
                 .Filepath = oFileInfoTemp.FullName,
                 .FileNameOriginal = oFileInfo.Name,
-                .Thumbnail = Thumbnail.GetThumbnailFromPDFFile(oTempFilePath)
+                .Thumbnail = Thumbnail.GetThumbnailFromPDFFile(oTempFilePath),
+                .PageCount = Thumbnail.GetPageCount(oTempFilePath)
             }
 
             Return oDocument
@@ -186,6 +187,15 @@ Public Class EnvelopeEditorController
         End Try
     End Function
 
+    Public Function GetPageCount(pDocumentPath As String) As Integer
+        Try
+            Return Thumbnail.GetPageCount(pDocumentPath)
+        Catch ex As Exception
+            Logger.Error(ex)
+            Return Nothing
+        End Try
+    End Function
+
     Public Overloads Function DeleteDocument(pDocument As EnvelopeDocument) As Boolean
         Dim oConnection As SqlConnection = Database.GetConnection
         Dim oTransaction As SqlTransaction = oConnection.BeginTransaction