big refactor, move most zugferd processing into Modules.Interfaces

Modules.Interfaces/ZUGFeRDInterface.vb

@@ -1,9 +1,11 @@
-Imports System.Xml
+Imports System.IO
+Imports System.Xml
 Imports System.Xml.Serialization
 Imports System.Xml.XPath
 Imports System.Xml.Xsl
 Imports DigitalData.Modules.Interfaces.Exceptions
 Imports DigitalData.Modules.Logging
+Imports GdPicture14
 
 Public Class ZUGFeRDInterface
     Private _logConfig As LogConfig
@@ -21,13 +23,23 @@ Public Class ZUGFeRDInterface
     Public ReadOnly Property FileGroup As FileGroups
     Public ReadOnly Property PropertyValues As PropertyValues
 
-    Public Sub New(LogConfig As LogConfig)
+    Public Sub New(LogConfig As LogConfig, GDPictureKey As String)
         _logConfig = LogConfig
         _logger = _logConfig.GetLogger()
+
         FileGroup = New FileGroups(_logConfig)
         PropertyValues = New PropertyValues(_logConfig)
+
+        Try
+            Dim oLicenseManager As New LicenseManager
+            oLicenseManager.RegisterKEY(GDPictureKey)
+        Catch ex As Exception
+            _logger.Warn("GDPicture License could not be registered!")
+            _logger.Error(ex)
+        End Try
     End Sub
 
+
     ''' <summary>
     ''' Validates a ZUGFeRD File and extracts the XML Document from it
     ''' </summary>
@@ -35,7 +47,6 @@ Public Class ZUGFeRDInterface
     ''' <exception cref="ZUGFeRDExecption"></exception>
     ''' <returns></returns>
     Public Function ExtractZUGFeRDFile(Path As String) As CrossIndustryDocumentType
-        Dim oException As New Exception
         Dim oXmlDocument = ValidateZUGFeRDFile(Path)
 
         If IsNothing(oXmlDocument) Then
@@ -45,6 +56,15 @@ Public Class ZUGFeRDInterface
         Return SerializeZUGFeRDDocument(oXmlDocument)
     End Function
 
+    Public Function ExtractZUGFeRDFileWithGDPicture(Path As String) As CrossIndustryDocumentType
+        Dim oXmlDocument = ValidateZUGFeRDFileWithGDPicture(Path)
+
+        If IsNothing(oXmlDocument) Then
+            Throw New ZUGFeRDExecption(ErrorType.NoZugferd, "Datei ist keine ZUGFeRD Datei.")
+        End If
+
+        Return SerializeZUGFeRDDocument(oXmlDocument)
+    End Function
 
     Public Function ValidateZUGFeRDFile(Path As String) As XPathDocument
         Dim oProcessOutput, oProcessError As String
@@ -90,6 +110,52 @@ Public Class ZUGFeRDInterface
         Return oXmlDocument
     End Function
 
+    Public Function ValidateZUGFeRDFileWithGDPicture(Path As String) As XPathDocument
+        Dim oAttachmentExtractor = New PDFAttachments(_logConfig)
+        Dim oAllowedExtensions = New List(Of String) From {"xml"}
+        Dim oXmlDocument As XPathDocument
+
+        Try
+            Dim oResults = oAttachmentExtractor.Extract(Path, oAllowedExtensions)
+
+            If oResults Is Nothing Then
+                Throw New ZUGFeRDExecption(ErrorType.NoZugferd, "Datei ist keine ZUGFeRD Datei.")
+            End If
+
+            If oResults.Count = 0 Then
+                Throw New ZUGFeRDExecption(ErrorType.NoZugferd, "Datei ist keine ZUGFeRD Datei.")
+            End If
+
+            Dim oFound As Boolean = False
+            Dim oFoundResult As PDFAttachments.AttachmentResult = Nothing
+
+            For Each oResult In oResults
+                If oResult.FileName = PDFAttachments.ZUGFERD_XML_FILENAME Then
+                    oFound = True
+                    oFoundResult = oResult
+                End If
+            Next
+
+            If Not oFound Then
+                Throw New ZUGFeRDExecption(ErrorType.NoZugferd, "Datei ist keine ZUGFeRD Datei.")
+            End If
+
+            Try
+                Using oStream As New MemoryStream(oFoundResult.FileContents)
+                    oXmlDocument = New XPathDocument(oStream)
+                End Using
+
+                Return oXmlDocument
+            Catch ex As Exception
+                _logger.Error(ex)
+                Throw ex
+            End Try
+        Catch ex As Exception
+            _logger.Error(ex)
+            Throw ex
+        End Try
+    End Function
+
     Public Function SerializeZUGFeRDDocument(Document As XPathDocument) As CrossIndustryDocumentType
         Try
             Dim oNavigator As XPathNavigator = Document.CreateNavigator()