AppStd/Monorepo
8
1
Fork 0
Code Issues Pull Requests Releases Wiki Activity

Compare commits

base: AppStd:14bd9af3293de57a2197686997cda6f672440a5b
Branches Tags
AppStd:master AppStd:upgrade-to-NET8-1 AppStd:Monorepo-Update-.NET-8 AppStd:Newest-GDPictureVersion AppStd:ZugferdService-Redesign
..
compare: AppStd:59900f2ab96634f6859a13ada4e0744081797b23
Branches Tags
AppStd:master AppStd:upgrade-to-NET8-1 AppStd:Monorepo-Update-.NET-8 AppStd:Newest-GDPictureVersion AppStd:ZugferdService-Redesign

4 Commits
14bd9af329 ... 59900f2ab9

Author SHA1 Message Date
Jonathan Jenne
59900f2ab9 Interfaces: Version 1.5.3 2021-07-09 12:46:10 +02:00
Jonathan Jenne
33b83a1f6c Interfaces: More logging for PDFEmbeds.Extract 2021-07-09 12:45:23 +02:00
Jonathan Jenne
9004b3db88 Config: Version 1.1.3 2021-07-09 12:44:41 +02:00
Jonathan Jenne
d2099f5315 Config: log about app config in info log 2021-07-09 12:44:29 +02:00
4 changed files with 17 additions and 5 deletions
Expand all files Collapse all files

2
Modules.Config/ConfigManager.vb
View File

@@ -123,7 +123,7 @@ Public Class ConfigManager(Of T)
End If End If
If ApplicationStartupPath <> String.Empty Then If ApplicationStartupPath <> String.Empty Then
_Logger.Debug($"AppConfig is being used: [{ApplicationStartupPath}]") _Logger.Info($"AppConfig is being used: [{ApplicationStartupPath}]")
_AppConfigPath = Path.Combine(ApplicationStartupPath, APP_CONFIG_NAME) _AppConfigPath = Path.Combine(ApplicationStartupPath, APP_CONFIG_NAME)
End If End If

4
Modules.Config/My Project/AssemblyInfo.vb
View File

@@ -31,5 +31,5 @@ Imports System.Runtime.InteropServices
' übernehmen, indem Sie "*" eingeben: ' übernehmen, indem Sie "*" eingeben:
' <Assembly: AssemblyVersion("1.0.*")> ' <Assembly: AssemblyVersion("1.0.*")>
<Assembly: AssemblyVersion("1.1.2.0")> <Assembly: AssemblyVersion("1.1.3.0")>
<Assembly: AssemblyFileVersion("1.1.2.0")> <Assembly: AssemblyFileVersion("1.1.3.0")>

4
Modules.Interfaces/My Project/AssemblyInfo.vb
View File

@@ -31,5 +31,5 @@ Imports System.Runtime.InteropServices
' übernehmen, indem Sie "*" eingeben: ' übernehmen, indem Sie "*" eingeben:
' <Assembly: AssemblyVersion("1.0.*")> ' <Assembly: AssemblyVersion("1.0.*")>
<Assembly: AssemblyVersion("1.5.2.0")> <Assembly: AssemblyVersion("1.5.3.0")>
<Assembly: AssemblyFileVersion("1.5.2.0")> <Assembly: AssemblyFileVersion("1.5.3.0")>

12
Modules.Interfaces/ZUGFeRDInterface/PDFEmbeds.vb
View File

@@ -25,10 +25,22 @@ Public Class PDFEmbeds
''' <param name="AllowedExtensions">List of allowed extensions to be extracted</param> ''' <param name="AllowedExtensions">List of allowed extensions to be extracted</param>
Public Function Extract(FilePath As String, AllowedExtensions As List(Of String)) As List(Of EmbeddedFile) Public Function Extract(FilePath As String, AllowedExtensions As List(Of String)) As List(Of EmbeddedFile)
Dim oFile As New List(Of EmbeddedFile) Dim oFile As New List(Of EmbeddedFile)
Dim oFileInfo As FileInfo
Dim oExtensions = AllowedExtensions.ConvertAll(New Converter(Of String, String)(Function(ext) ext.ToUpper)) Dim oExtensions = AllowedExtensions.ConvertAll(New Converter(Of String, String)(Function(ext) ext.ToUpper))
Logger.Debug("Extracting embedded files from [{0}]", FilePath) Logger.Debug("Extracting embedded files from [{0}]", FilePath)
Try
oFileInfo = New FileInfo(FilePath)
Logger.Debug("Filename: {0}", oFileInfo.Name)
Logger.Debug("Filesize: {0}", oFileInfo.Length)
Logger.Debug("Exists: {0}", oFileInfo.Exists)
Catch ex As Exception
Logger.Warn("File information for [{0}] could not be read!", FilePath)
Logger.Error(ex)
End Try
Try Try
Using oGDPicturePDF As New GdPicturePDF() Using oGDPicturePDF As New GdPicturePDF()
If oGDPicturePDF.LoadFromFile(FilePath, False) = GdPictureStatus.OK Then If oGDPicturePDF.LoadFromFile(FilePath, False) = GdPictureStatus.OK Then