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