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(1000, 1414, 1, Color.White)

            Return thumbnailBitmap

        Catch ex As Exception
            Logger.Error(ex)
            Return Nothing
        End Try
    End Function

End Class