From 276adda516670cbac158ec204ad6ac43f63d08ba Mon Sep 17 00:00:00 2001 From: Developer 02 Date: Thu, 24 Apr 2025 11:48:54 +0200 Subject: [PATCH] =?UTF-8?q?unn=C3=B6tige=20Protokollierung=20entfernt?= MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit --- .../FinalizeDocument/FinalizeDocumentJob.vb | 1 - .../Jobs/FinalizeDocument/PDFBurner.vb | 59 ++++++++----------- 2 files changed, 26 insertions(+), 34 deletions(-) diff --git a/EnvelopeGenerator.Common/Jobs/FinalizeDocument/FinalizeDocumentJob.vb b/EnvelopeGenerator.Common/Jobs/FinalizeDocument/FinalizeDocumentJob.vb index 0492359d..a0b33b78 100644 --- a/EnvelopeGenerator.Common/Jobs/FinalizeDocument/FinalizeDocumentJob.vb +++ b/EnvelopeGenerator.Common/Jobs/FinalizeDocument/FinalizeDocumentJob.vb @@ -382,7 +382,6 @@ Namespace Jobs End Try End If - Return PDFBurner.BurnInstantJSONAnnotationsToPDF(oInputDocumentBuffer, oAnnotations) End Function diff --git a/EnvelopeGenerator.Common/Jobs/FinalizeDocument/PDFBurner.vb b/EnvelopeGenerator.Common/Jobs/FinalizeDocument/PDFBurner.vb index c7010dc1..ea4626cd 100644 --- a/EnvelopeGenerator.Common/Jobs/FinalizeDocument/PDFBurner.vb +++ b/EnvelopeGenerator.Common/Jobs/FinalizeDocument/PDFBurner.vb @@ -31,45 +31,38 @@ Namespace Jobs.FinalizeDocument Public Function BurnInstantJSONAnnotationsToPDF(pSourceBuffer As Byte(), pInstantJSONList As List(Of String)) As Byte() Dim oResult As GdPictureStatus - - Try - Using oSourceStream As New MemoryStream(pSourceBuffer) - ' Open PDF - oResult = Manager.InitFromStream(oSourceStream) - If oResult <> GdPictureStatus.OK Then - Throw New BurnAnnotationException($"Could not open document for burning: [{oResult}]") + Using oSourceStream As New MemoryStream(pSourceBuffer) + ' Open PDF + oResult = Manager.InitFromStream(oSourceStream) + If oResult <> GdPictureStatus.OK Then + Throw New BurnAnnotationException($"Could not open document for burning: [{oResult}]") + End If + + ' Add annotation to PDF + For Each oJSON In pInstantJSONList + If AddInstantJSONAnnotationToPDF(oJSON) = False Then + Logger.Warn($"Error in AddInstantJSONAnnotationToPDF - oJson: ") + Logger.Warn(oJSON) + Throw New BurnAnnotationException($"Adding Annotation failed") End If - - ' Add annotation to PDF - For Each oJSON In pInstantJSONList - If AddInstantJSONAnnotationToPDF(oJSON) = False Then - Logger.Warn($"Error in AddInstantJSONAnnotationToPDF - oJson: ") - Logger.Warn(oJSON) - Throw New BurnAnnotationException($"Adding Annotation failed") - End If - Next - oResult = Manager.BurnAnnotationsToPage(RemoveInitialAnnots:=True, VectorMode:=True) + Next + oResult = Manager.BurnAnnotationsToPage(RemoveInitialAnnots:=True, VectorMode:=True) + If oResult <> GdPictureStatus.OK Then + Throw New BurnAnnotationException($"Could not burn annotations to file: [{oResult}]") + End If + + 'Save PDF + Using oNewStream As New MemoryStream() + oResult = Manager.SaveDocumentToPDF(oNewStream) If oResult <> GdPictureStatus.OK Then - Throw New BurnAnnotationException($"Could not burn annotations to file: [{oResult}]") + Throw New BurnAnnotationException($"Could not save document to stream: [{oResult}]") End If - 'Save PDF - Using oNewStream As New MemoryStream() - oResult = Manager.SaveDocumentToPDF(oNewStream) - If oResult <> GdPictureStatus.OK Then - Throw New BurnAnnotationException($"Could not save document to stream: [{oResult}]") - End If + Manager.Close() - Manager.Close() - - Return oNewStream.ToArray() - End Using + Return oNewStream.ToArray() End Using - Catch ex As Exception - Logger.Error(ex) - - Return Nothing - End Try + End Using End Function Private Function AddInstantJSONAnnotationToPDF(pInstantJSON As String) As Boolean