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

MS Errorhandling eventlogger

Browse Source
This commit is contained in:
Digital Data - Marlon Schreiber
2018-02-02 10:50:25 +01:00
parent 8e5fd9e663
commit d835accd7d
4 changed files with 59 additions and 22 deletions
Download Patch File Download Diff File Expand all files Collapse all files

50
app/DDWDResultHandler/DDWDResultHandler.vb
View File

@@ -16,27 +16,34 @@ Public Class DDWDResultHandler
Public Sub New()
MyBase.New()
InitializeComponent()
If Not System.Diagnostics.EventLog.SourceExists("Windream Result Handler") Then
System.Diagnostics.EventLog.CreateEventSource("Windream Result Handler",
"DigitalData Log")
End If
'EventLog1.Source = "Windream Result Handler"
'EventLog1.Log = "DigitalData Log"
End Sub
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.
'EventLog1.WriteEntry("Dienst 'DD windream Result Handler' gestartet")
Try
clsLogger.Init(My.Application.Info.DirectoryPath & "\Log", "logResultHandler_")
clsLogger.Add(" ", False)
clsLogger.Add("## WindreamResultHandler gestartet - " & Now & " ## ", False)
If Not System.Diagnostics.EventLog.SourceExists("DDWMResultHandler") Then
System.Diagnostics.EventLog.CreateEventSource("DDWMResultHandlerr", "DigitalData Log")
End If
Catch ex As Exception
EventLog.WriteEntry("DDWMResultHandler", "ERROR in Creating source:" & ex.ToString(), EventLogEntryType.Error)
End Try
Try
Try
clsLogger.Init(My.Application.Info.DirectoryPath & "\Log", "_SERVICEResultHandler")
clsLogger.Add(" ", False)
clsLogger.Add("## WindreamResultHandler gestartet - " & Now & " ## ", False)
Catch ex As Exception
EventLog.WriteEntry("DDWMResultHandler", "ERROR in CREATING-LOG:" & ex.ToString(), EventLogEntryType.Error)
End Try
If My.Settings.SQLSERVER_CS = String.Empty Then
clsLogger.Add("Achtung: Es wurde noch kein Datenbank-ConnectionString hinterlegt.", True)
Else
If clsDatatabase.Init = False Then
clsLogger.Add("Achtung: Es konnte keine Verbindung zur Datenbank '" & My.Settings.SQLSERVER_CS & "' hergestellt werden!", True)
clsLogger.WriteLog()
Else
' '### Thread für Durchlauf generieren
DDWDResultHandler.threadRunner = New BackgroundWorker()
@@ -59,6 +66,7 @@ Public Class DDWDResultHandler
End If
End If
Catch ex As Exception
EventLog.WriteEntry("DDWMResultHandler", "Unexpected error in OnStart: " & ex.ToString(), EventLogEntryType.Error)
clsLogger.AddError(ex.Message, "OnStart")
End Try
@@ -69,13 +77,18 @@ Public Class DDWDResultHandler
End If
End Sub
Protected Overrides Sub OnStop()
' Hier Code zum Ausführen erforderlicher Löschvorgänge zum Beenden des Dienstes einfügen.
'EventLog1.WriteEntry("Dienst 'DD windream Result Handler' gestoppt")
clsLogger.Add("", False)
clsLogger.Add("## WindreamResultHandler wurde gestoppt - " & Now & " ## ", False)
clsDatatabase.Execute_non_Query("Update TBWMRH_PROFIL SET Running = 1 WHERE GUID = " & _PROFIL_ID)
clsLogger.Add("", False)
clsLogger.WriteLog()
Try
' Hier Code zum Ausführen erforderlicher Löschvorgänge zum Beenden des Dienstes einfügen.
'EventLog1.WriteEntry("Dienst 'DD windream Result Handler' gestoppt")
clsLogger.Add("", False)
clsLogger.Add("## WindreamResultHandler wurde gestoppt - " & Now & " ## ", False)
clsDatatabase.Execute_non_Query("Update TBWMRH_PROFIL SET Running = 1 WHERE GUID = " & _PROFIL_ID)
clsLogger.Add("", False)
clsLogger.WriteLog()
Catch ex As Exception
EventLog.WriteEntry("DDWMResultHandler", "Unexpected error in OnStop: " & ex.ToString(), EventLogEntryType.Error)
End Try
End Sub
Public Shared Sub RUN_THREAD(ByVal sender As Object, ByVal e As System.ComponentModel.DoWorkEventArgs)
Try
@@ -125,7 +138,7 @@ Public Class DDWDResultHandler
End If
clsDatatabase.Execute_non_Query("UPDATE TBWMRH_KONFIGURATION SET LAST_TICK = GETDATE() WHERE GUID = 1")
Else
clsLogger.Add("- clsSQLLite konnte nicht initialisiert werden!", False)
clsLogger.Add("- clsDatabase konnte nicht initialisiert werden!", False)
notcompleted = True
End If
Else
@@ -163,7 +176,7 @@ Public Class DDWDResultHandler
' End Try
'End If
Catch ex As Exception
clsLogger.AddError(ex.Message, "Thread_Completed")
EventLog.WriteEntry("DDWMResultHandler", "Unexpected error in Thread_Completed: " & ex.ToString(), EventLogEntryType.Error)
End Try
End Sub
Public Shared Function Thread_Abbrechen()
@@ -173,6 +186,7 @@ Public Class DDWDResultHandler
End If
Return True
Catch ex As Exception
EventLog.WriteEntry("DDWMResultHandler", "Unexpected error in Thread_Abbrechen: " & ex.ToString(), EventLogEntryType.Error)
clsLogger.AddError(ex.Message, "Thread_Abbrechen")
Return False
End Try