36 lines
954 B
VB.net
36 lines
954 B
VB.net
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
|