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

Entfernen ProjctInstaller etc

Browse Source
This commit is contained in:
Developer01 2025-10-02 17:10:19 +02:00
parent 67ee7e6d3f
commit bc14644a5f
3 changed files with 6 additions and 28 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
Services.ZUGFeRDService/DDZUGFeRDService.vbproj
View File

@ -43,6 +43,8 @@
<PackageReference Include="CoreWCF.Http" Version="1.8.0" />
<PackageReference Include="CoreWCF.WebHttp" Version="1.8.0" />
<PackageReference Include="CoreWCF.NetTcp" Version="1.8.0" />
<PackageReference Include="System.DirectoryServices" Version="9.0.9" />
<PackageReference Include="System.ServiceProcess.ServiceController" Version="9.0.9" />
</ItemGroup>
</Project>

24
Services.ZUGFeRDService/ProjectInstaller.vb
View File

@ -1,24 +0,0 @@
Imports System.ComponentModel
Imports System.Configuration.Install
Imports System.ServiceProcess
<RunInstaller(True)>
Public Class ProjectInstaller
Inherits Installer
Private ReadOnly process As ServiceProcessInstaller
Private ReadOnly components As IContainer
Private ReadOnly service As ServiceInstaller
Public Sub New()
process = New ServiceProcessInstaller With {
.Account = ServiceAccount.LocalSystem
}
service = New ServiceInstaller With {
.ServiceName = Constants.SERVICE_NAME,
.DisplayName = Constants.SERVICE_DISPLAY_NAME
}
Installers.Add(process)
Installers.Add(service)
End Sub
End Class

8
Services.ZUGFeRDService/ZUGFeRDService.vb
View File

@ -9,10 +9,10 @@ Public Class ZUGFeRDService
Private Logger As Logger
Private ThreadRunner As ThreadRunner
Protected Sub OnStart(args() As String)
Protected Overrides Sub OnStart(args() As String)
Try
LogConfig = New LogConfig(PathType.CustomPath, Path.Combine(My.Application.Info.DirectoryPath, "Log"), Nothing, "Digital Data", "DDZUGFeRDService")
Dim oConfig = New ConfigManager(Of Config)(LogConfig, My.Application.Info.DirectoryPath)
LogConfig = New LogConfig(PathType.CustomPath, Path.Combine(AppContext.BaseDirectory, "Log"), Nothing, "Digital Data", "DDZUGFeRDService")
Dim oConfig = New ConfigManager(Of Config)(LogConfig, AppContext.BaseDirectory)
LogConfig.Debug = oConfig.Config.Debug
Logger = LogConfig.GetLogger()
Logger.Info($"{Constants.SERVICE_NAME} is starting.")
@ -37,7 +37,7 @@ Public Class ZUGFeRDService
End Try
End Sub
Protected Sub OnStop()
Protected Overrides Sub OnStop()
Logger.Info($"{Constants.SERVICE_NAME} is stopping.")
ThreadRunner.Stop()
Logger.Info($"{Constants.SERVICE_NAME} stopped.")