Service GDPicture

EnvelopeGenerator.Service/EnvelopeGenerator.Service.vbproj

@@ -14,6 +14,8 @@
     <TargetFrameworkVersion>v4.8</TargetFrameworkVersion>
     <AutoGenerateBindingRedirects>true</AutoGenerateBindingRedirects>
     <TargetFrameworkProfile />
+    <NuGetPackageImportStamp>
+    </NuGetPackageImportStamp>
   </PropertyGroup>
   <PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Debug|AnyCPU' ">
     <PlatformTarget>AnyCPU</PlatformTarget>
@@ -66,9 +68,8 @@
     <Reference Include="DigitalData.Modules.Messaging">
       <HintPath>..\..\2_DLL Projekte\DDModules\Messaging\bin\Debug\DigitalData.Modules.Messaging.dll</HintPath>
     </Reference>
-    <Reference Include="GdPicture.NET.14, Version=14.1.0.152, Culture=neutral, PublicKeyToken=f52a2e60ad468dbb, processorArchitecture=MSIL">
-      <SpecificVersion>False</SpecificVersion>
-      <HintPath>D:\ProgramFiles\GdPicture.NET 14\Redist\GdPicture.NET (.NET Framework 4.5)\GdPicture.NET.14.dll</HintPath>
+    <Reference Include="GdPicture.NET.14, Version=14.2.89.0, Culture=neutral, PublicKeyToken=f52a2e60ad468dbb, processorArchitecture=MSIL">
+      <HintPath>..\packages\GdPicture.14.2.89\lib\net462\GdPicture.NET.14.dll</HintPath>
     </Reference>
     <Reference Include="Microsoft.CSharp" />
     <Reference Include="Microsoft.Extensions.Logging.Abstractions, Version=2.1.1.0, Culture=neutral, PublicKeyToken=adb9793829ddae60, processorArchitecture=MSIL">
@@ -177,4 +178,11 @@
     </ProjectReference>
   </ItemGroup>
   <Import Project="$(MSBuildToolsPath)\Microsoft.VisualBasic.targets" />
+  <Import Project="..\packages\GdPicture.runtimes.windows.14.2.89\build\net462\GdPicture.runtimes.windows.targets" Condition="Exists('..\packages\GdPicture.runtimes.windows.14.2.89\build\net462\GdPicture.runtimes.windows.targets')" />
+  <Target Name="EnsureNuGetPackageBuildImports" BeforeTargets="PrepareForBuild">
+    <PropertyGroup>
+      <ErrorText>Dieses Projekt verweist auf mindestens ein NuGet-Paket, das auf diesem Computer fehlt. Verwenden Sie die Wiederherstellung von NuGet-Paketen, um die fehlenden Dateien herunterzuladen. Weitere Informationen finden Sie unter "http://go.microsoft.com/fwlink/?LinkID=322105". Die fehlende Datei ist "{0}".</ErrorText>
+    </PropertyGroup>
+    <Error Condition="!Exists('..\packages\GdPicture.runtimes.windows.14.2.89\build\net462\GdPicture.runtimes.windows.targets')" Text="$([System.String]::Format('$(ErrorText)', '..\packages\GdPicture.runtimes.windows.14.2.89\build\net462\GdPicture.runtimes.windows.targets'))" />
+  </Target>
 </Project>

EnvelopeGenerator.Service/My Project/AssemblyInfo.vb

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

EnvelopeGenerator.Service/Scheduler.vb

@@ -26,47 +26,52 @@ Public Class Scheduler
     End Sub
 
     Public Async Function Start(pInterval As Integer) As Task
-        Logger.Debug("Starting Scheduler..")
+        Try
+            Logger.Debug("Starting Scheduler..")
 
-        Dim oProperties As New NameValueCollection()
+            Dim oProperties As New NameValueCollection()
 
-        Scheduler = Await SchedulerBuilder.Create(oProperties).
-            UseDefaultThreadPool(Sub(x) x.MaxConcurrency = 5).
-            BuildScheduler()
+            Scheduler = Await SchedulerBuilder.Create(oProperties).
+                UseDefaultThreadPool(Sub(x) x.MaxConcurrency = 5).
+                BuildScheduler()
 
-        Dim oJobKey = New JobKey(JobName)
-        Dim oJobData = New JobDataMap() From {
-            {Common.Constants.GDPICTURE, LicenseKey},
-            {Common.Constants.LOGCONFIG, LogConfig},
-            {Common.Constants.DATABASE, ConnectionString},
-            {Common.Constants.IGNORED_LABELS, _ignoredLabels}
-        }
+            Dim oJobKey = New JobKey(JobName)
+            Dim oJobData = New JobDataMap() From {
+                {Common.Constants.GDPICTURE, LicenseKey},
+                {Common.Constants.LOGCONFIG, LogConfig},
+                {Common.Constants.DATABASE, ConnectionString},
+                {Common.Constants.IGNORED_LABELS, _ignoredLabels}
+            }
 
-        Logger.Debug("Initialized Job [{0}]", JobName)
+            Logger.Debug("Initialized Job [{0}]", JobName)
 
-        Dim oJob As IJobDetail = JobBuilder.Create(Of FinalizeDocumentJob).
-            UsingJobData(oJobData).
-            WithIdentity(oJobKey).
-            Build()
+            Dim oJob As IJobDetail = JobBuilder.Create(Of FinalizeDocumentJob).
+                UsingJobData(oJobData).
+                WithIdentity(oJobKey).
+                Build()
 
-        Dim oTrigger As ITrigger = TriggerBuilder.Create().
-            ForJob(oJobKey).
-            WithIdentity($"{JobName}-trigger").
-            WithSimpleSchedule(Sub(s) s.
-                RepeatForever().
-                WithIntervalInMinutes(pInterval)).
-            StartNow().
-            Build()
+            Dim oTrigger As ITrigger = TriggerBuilder.Create().
+                ForJob(oJobKey).
+                WithIdentity($"{JobName}-trigger").
+                WithSimpleSchedule(Sub(s) s.
+                    RepeatForever().
+                    WithIntervalInMinutes(pInterval)).
+                StartNow().
+                Build()
 
-        Logger.Debug("Initialized Trigger")
+            Logger.Debug("Initialized Trigger")
 
-        Await Scheduler.ScheduleJob(oJob, oTrigger)
+            Await Scheduler.ScheduleJob(oJob, oTrigger)
 
-        Logger.Debug("Job scheduled.")
+            Logger.Debug("Job scheduled.")
 
-        Await Scheduler.Start()
+            Await Scheduler.Start()
+
+            Logger.Info("Scheduler started!")
+        Catch ex As Exception
+            Logger.Error(ex)
+        End Try
 
-        Logger.Info("Scheduler started!")
     End Function
 
     Public Async Function [Stop]() As Task

EnvelopeGenerator.Service/Service.vb

@@ -37,13 +37,14 @@ Public Class Service
             TempFiles.Create()
 
             ' === Initialize Databases ===
-            Logger.Info("Inititalize Databases")
+            Logger.Info("Inititalize Database ...")
 
             If Config.ConnectionString = String.Empty Then
                 Throw New ApplicationException("Connection String is empty!")
             End If
 
             Database = New MSSQLServer(LogConfig, Config.ConnectionString)
+            Logger.Debug("Database initialized")
 
             If Database.DBInitialized = False Then
                 Throw New ApplicationException("Database connection could not be established!")

EnvelopeGenerator.Service/packages.config

@@ -1,5 +1,7 @@
 <?xml version="1.0" encoding="utf-8"?>
 <packages>
+  <package id="GdPicture" version="14.2.89" targetFramework="net48" />
+  <package id="GdPicture.runtimes.windows" version="14.2.89" targetFramework="net48" />
   <package id="Microsoft.Extensions.Logging.Abstractions" version="2.1.1" targetFramework="net462" />
   <package id="NLog" version="5.0.5" targetFramework="net461" />
   <package id="Quartz" version="3.8.0" targetFramework="net462" />