2023-09-11 - THUMBNAILS!!!!!

EnvelopeGenerator.Form/Helper/Thumbnail.vb

@@ -0,0 +1,35 @@
+Imports System.ComponentModel
+Imports DigitalData.Modules.Base
+Imports DigitalData.Modules.Logging
+Imports GdPicture14
+
+Public Class Thumbnail
+    Inherits BaseClass
+
+    Dim GDViewer As GdViewer
+
+    Public Sub New(pLogConfig As LogConfig)
+        MyBase.New(pLogConfig)
+
+        GDViewer = New GdViewer()
+        Dim oGDPictureKey As String = "21182889975216572111813147150675976632"
+
+        Dim licenseManager As GdPicture14.LicenseManager = New GdPicture14.LicenseManager()
+        licenseManager.RegisterKEY(oGDPictureKey)
+
+    End Sub
+
+    Public Function GetThumbnailFromPDFFile(pFilePath As String) As Bitmap
+        Try
+            GDViewer.DisplayFromFile(pFilePath)
+            Dim thumbnailBitmap As Bitmap = GDViewer.GetPageThumbnailAsBitmap(1414, 1000, 1, Color.White)
+
+            Return thumbnailBitmap
+
+        Catch ex As Exception
+            Logger.Error(ex)
+            Return Nothing
+        End Try
+    End Function
+
+End Class