pGDPictureLicenseKey als Variable hinzugefügt.

This commit is contained in:
Developer 02 2024-06-19 12:35:46 +02:00
parent ecec1e1206
commit a4b880f1d2

View File

@ -14,18 +14,19 @@ Public Class frmFinalizePDF
Private Viewer As GdViewer Private Viewer As GdViewer
Private Manager As AnnotationManager Private Manager As AnnotationManager
Private PDFBurner As FinalizeDocument.PDFBurner Private PDFBurner As FinalizeDocument.PDFBurner
Private pGDPictureLicenseKey As String = "21182889975216572111813147150675976632"
Private Sub frmFinalizePDF_Load(sender As Object, e As EventArgs) Handles MyBase.Load Private Sub frmFinalizePDF_Load(sender As Object, e As EventArgs) Handles MyBase.Load
LogConfig = New LogConfig(LogConfig.PathType.CustomPath, Application.StartupPath) LogConfig = New LogConfig(LogConfig.PathType.CustomPath, Application.StartupPath)
Database = New MSSQLServer(LogConfig, MSSQLServer.DecryptConnectionString(CONNECTIONSTRING)) Database = New MSSQLServer(LogConfig, MSSQLServer.DecryptConnectionString(CONNECTIONSTRING))
PDFBurner = New FinalizeDocument.PDFBurner(LogConfig, "PS231031-44053-15086") PDFBurner = New FinalizeDocument.PDFBurner(LogConfig, pGDPictureLicenseKey)
Viewer = New GdViewer()
Manager = New AnnotationManager() Manager = New AnnotationManager()
Dim oLicense = New LicenseManager() Dim oLicense = New LicenseManager()
oLicense.RegisterKEY("PS231031-44053-15086") oLicense.RegisterKEY(pGDPictureLicenseKey)
End Sub End Sub
Private Function LoadAnnotationDataForReceiver() As String Private Function LoadAnnotationDataForReceiver() As String