You can not select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
46 lines
1.2 KiB
46 lines
1.2 KiB
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
|