Initial commit

EDKB21/EDKB17/Service1.vb

@@ -0,0 +1,45 @@
+Imports System.IO
+Imports System.Timers
+
+Public Class Service1
+
+
+
+
+    Dim WithEvents fwinput As New FileSystemWatcher
+    Dim WithEvents CheckTimer As New Timers.Timer()
+    Protected Overrides Sub OnStart(ByVal args() As String)
+        ' Code zum Starten des Dienstes hier einfügen. Diese Methode sollte Vorgänge
+        ' ausführen, damit der Dienst gestartet werden kann.
+        PrintOut("Start EDKB21")
+
+        'Parameter auslesen
+        If params.Loadparameters() = False Then
+            PrintOut("Fehler beim Laden der Parameter")
+            PrintOut("Verarbeitung abgebrochen")
+            Exit Sub
+        End If
+        CheckTimer.Interval = params.TimeIntervall
+        CheckTimer.Start()
+
+
+
+        Me.fwinput.EnableRaisingEvents = True
+    End Sub
+
+    Protected Overrides Sub OnStop()
+        ' Hier Code zum Ausführen erforderlicher Löschvorgänge zum Beenden des Dienstes einfügen.
+    End Sub
+
+    Private Sub CheckTimer_Elapsed(sender As Object, e As ElapsedEventArgs) Handles CheckTimer.Elapsed
+        CheckTimer.Stop()
+        Verarbeiten()
+        CheckTimer.Start()
+    End Sub
+
+    Public Sub Verarbeiten()
+        Dim verarbeitung As New clsVerarbeitung
+        verarbeitung.startjob(params.Startparameter)
+    End Sub
+
+End Class