AppStd/Modules
8
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

MS

Browse Source
This commit is contained in:
Digital Data - Marlon Schreiber
2018-08-27 14:16:58 +02:00
parent 550041698f
commit 3d6251feaf
3 changed files with 13 additions and 17 deletions
Download Patch File Download Diff File Expand all files Collapse all files

24
DDTestService/MyNewService.vb
View File

@@ -2,11 +2,12 @@
Imports DigitalData.Modules.Logging
Imports NLog
Public Class MyNewService
Private Shared _MyLoggerConfig1 As LogConfig
Private Shared _MyLoggerConfig2 As LogConfig
Dim MyLogger1 As LogConfig
Shared Logger1 As NLog.Logger
Dim MyLogger2 As LogConfig
Shared Logger2 As NLog.Logger
Public Shared threadRunner1 As BackgroundWorker
Private Shared Logger1 As Logger '= LogManager.GetCurrentClassLogger
Private Shared Logger2 As Logger '= LogManager.GetCurrentClassLogger
Private eventId As Integer = 1
Protected Overrides Sub OnStart(ByVal args() As String)
@@ -24,31 +25,32 @@ Public Class MyNewService
'Das Event hinterlegen welches bei "Tick" ausgelöst wird
AddHandler Timer1.Elapsed, AddressOf Thread1_Run
' Set the Interval
Timer1.Interval = 60000
Timer1.Interval = 10000
'ClassLogger.Add("Timer - Intervall: " & clsSQLITE.konf_intervall & " Minuten", False)
Timer1.Enabled = True
MyLogger1 = New LogConfig(LogConfig.PathType.CurrentDirectory, Nothing, "Log1")
Logger1 = MyLogger1.LogFactory.GetCurrentClassLogger()
MyLogger2 = New LogConfig(LogConfig.PathType.CurrentDirectory, Nothing, "Log2")
Logger2 = MyLogger2.LogFactory.GetCurrentClassLogger()
Logger1.Info("Timer gestartet")
' Und den Durchlauf das erste Mal starten
threadRunner1.RunWorkerAsync()
' Code zum Starten des Dienstes hier einfügen. Diese Methode sollte Vorgänge
' ausführen, damit der Dienst gestartet werden kann.
' _MyLoggerConfig1 = New LogConfig(LogConfig.PathType.CurrentDirectory, Nothing, "Timer1")
_MyLoggerConfig2 = New LogConfig(LogConfig.PathType.CurrentDirectory, Nothing, "Timer2")
' clsLogger.Init(My.Application.Info.DirectoryPath & "\Log", "_SERVICEResultHandler")
Logger1.Info("Service started")
Logger2.Info("Service started")
' Set up a timer to trigger every minute.
Dim timer As System.Timers.Timer = New System.Timers.Timer()
timer.Interval = 30000 ' 30 seconds
timer.Interval = 12000 ' 12 seconds
AddHandler timer.Elapsed, AddressOf Me.OnTimer1
timer.Start()
End Sub
Private Sub RUN_THREAD()
_MyLoggerConfig1 = New LogConfig(LogConfig.PathType.CurrentDirectory, Nothing, "TimerXYZ")
Logger1 = LogManager.GetCurrentClassLogger
' TODO: Insert monitoring activities here.
Logger1.Info("RUN_THREAD - Monitoring the System - eventId: " & eventId)
End Sub
@@ -72,8 +74,6 @@ Public Class MyNewService
End Try
End Sub
Private Sub OnTimer1(sender As Object, e As Timers.ElapsedEventArgs)
_MyLoggerConfig2 = New LogConfig(LogConfig.PathType.CurrentDirectory, Nothing, "Timer1")
Logger2 = LogManager.GetCurrentClassLogger
' TODO: Insert monitoring activities here.
Logger2.Info("OnTimer1 - Monitoring the System - eventId: " & eventId)
eventId = eventId + 1