From 631929ec4664c51541a4f84f87c663fbc986278c Mon Sep 17 00:00:00 2001 From: Digital Data - Marlon Schreiber Date: Mon, 27 Apr 2020 15:09:44 +0200 Subject: [PATCH 1/2] MS --- Modules.Windream/Windream.vb | 11 +++++++++-- 1 file changed, 9 insertions(+), 2 deletions(-) diff --git a/Modules.Windream/Windream.vb b/Modules.Windream/Windream.vb index 50866a63..2300dc57 100644 --- a/Modules.Windream/Windream.vb +++ b/Modules.Windream/Windream.vb @@ -1161,9 +1161,16 @@ Public Class Windream _logger.Warn("File '{0}' does not exist", Path) Return False End If + Dim oWMObject As IWMObject6 - Dim oWMObject As IWMObject6 = GetFileByPath(Path) - + Try + oWMObject = GetFileByPath(Path) + Catch ex As Exception + _logger.Warn("Could not create a WMObject for path '{0}'!!", Path) + _logger.Warn(ex.Message) + Return False + End Try + _logger.Debug("SetFileIndex '{0}' ... ", IndexName) If LockObject(oWMObject, WMObjectEditModeIndexEdit) = False Then _logger.Warn("File {0} could not be locked") Return False From 66bab9b7c179e325ab494fd0c90d04718201724a Mon Sep 17 00:00:00 2001 From: Digital Data - Marlon Schreiber Date: Wed, 6 May 2020 15:23:08 +0200 Subject: [PATCH 2/2] ms --- Modules.Interfaces/ZUGFeRDInterface/PDFAttachments.vb | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/Modules.Interfaces/ZUGFeRDInterface/PDFAttachments.vb b/Modules.Interfaces/ZUGFeRDInterface/PDFAttachments.vb index d2382f37..1ee220ae 100644 --- a/Modules.Interfaces/ZUGFeRDInterface/PDFAttachments.vb +++ b/Modules.Interfaces/ZUGFeRDInterface/PDFAttachments.vb @@ -77,7 +77,7 @@ Public Class PDFAttachments End Try End Function - Private Function DoExtract(GDPicturePDF As GdPicturePDF, Extensions As List(Of String)) As List(Of AttachmentResult) + Private Function DoExtract(GDPicturePDF As GdPicturePDF, pExtensions As List(Of String)) As List(Of AttachmentResult) Dim oResults As New List(Of AttachmentResult) Dim oEmbeddedFileCount As Integer = GDPicturePDF.GetEmbeddedFileCount() @@ -92,7 +92,7 @@ Public Class PDFAttachments Logger.Debug("Extracting embedded file [{0}]", oFileName) Dim oExtension = New FileInfo(oFileName).Extension.ToUpper.Substring(1) - If Extensions.Contains(oExtension) Then + If pExtensions.Contains(oExtension) Then Dim oFileSize As Integer = GDPicturePDF.GetEmbeddedFileSize(oIndex) If GDPicturePDF.GetStat() = GdPictureStatus.OK Then