MS

DDTestService/MyNewService.vb

@@ -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

Modules.Windream/Windream.vb

@@ -503,7 +503,6 @@ Public Class Windream
             Dim oIndexAttribute As WMObject
             Dim oIndex As WMObject
             Dim oRelProperties As WMObjectRelation
-
             ' den Objekttyp laden
             oObjectType = CurrentSession.GetWMObjectByName(WMEntityObjectType, ObjecttypeName)
 
@@ -513,10 +512,8 @@ Public Class Windream
             ' Array für Indizes vorbereiten
             'Dim aIndexNames(oIndexAttributes.Count - 1) As String
             Dim indexNames As New List(Of String)
-
             ' alle Indizes durchlaufen
             For j As Integer = 0 To oIndexAttributes.Count - 1
-
                 ' aktuellen Index auslesen
                 oIndexAttribute = oIndexAttributes.Item(j)
 
@@ -596,7 +593,7 @@ Public Class Windream
         Dim dtresult As New DataTable
         dtresult.Columns.Add("DOC_ID", GetType(Integer))
         dtresult.Columns.Add("PATH", GetType(String))
-        If Not TestLoggedInSession() = False Then
+        If TestLoggedInSession() = False Then
             Return dtresult
         End If
         If TestWMFileExists(wdfLocation) = False Then

TestGUI/Form1.vb

@@ -42,7 +42,6 @@ Public Class Form1
         MyLogger = New LogConfig(LogConfig.PathType.CurrentDirectory, Nothing, "MAIN")
         Logger = MyLogger.LogFactory.GetCurrentClassLogger()
 
-
         Dim MySecondLogger = New LogConfig(LogConfig.PathType.CurrentDirectory, Nothing, "MAIN2")
         Dim SecondLogger = MySecondLogger.LogFactory.GetCurrentClassLogger()