49 lines
1.6 KiB
VB.net
49 lines
1.6 KiB
VB.net
Imports System.IO
|
|
Imports DigitalData.Modules.Database
|
|
Imports DigitalData.Modules.Logging
|
|
Imports DigitalData.Modules.Logging.LogConfig
|
|
|
|
Public Class WindowsService
|
|
Private _logConfig As LogConfig
|
|
Private _logger As Logger
|
|
Private _firebird As Firebird
|
|
Private _mssql As MSSQLServer
|
|
|
|
Private _jobRunner As JobRunner2
|
|
|
|
Protected Overrides Sub OnStart(ByVal args() As String)
|
|
_logConfig = New LogConfig(PathType.CustomPath, Path.Combine(My.Application.Info.DirectoryPath, "Log"))
|
|
_logConfig.Debug = True
|
|
_logger = _logConfig.GetLogger()
|
|
_logger.Info($"{My.Settings.SERVICE_NAME} is starting.")
|
|
|
|
Dim oDataSource As String = My.Settings.DB_DATASOURCE
|
|
Dim oDatabase As String = My.Settings.DB_DATABASE
|
|
Dim oUser As String = My.Settings.DB_USER
|
|
Dim oPassword As String = My.Settings.DB_PASSWORD
|
|
Dim oInterval As Long = My.Settings.JOB_INTERVAL
|
|
|
|
_firebird = New Firebird(_logConfig, oDataSource, oDatabase, oUser, oPassword)
|
|
_mssql = New MSSQLServer(_logConfig, My.Settings.DB_CONNECTIONSTRING)
|
|
|
|
Try
|
|
_jobRunner = New JobRunner2(_logConfig, _mssql, _firebird)
|
|
_jobRunner.Start()
|
|
Catch ex As Exception
|
|
_logger.Error(ex)
|
|
End Try
|
|
|
|
'Try
|
|
' _jobRunner = New JobRunner(_logConfig, _firebird, oInterval)
|
|
' _jobRunner.Start()
|
|
'Catch ex As Exception
|
|
' _logger.Error(ex)
|
|
'End Try
|
|
End Sub
|
|
|
|
Protected Overrides Sub OnStop()
|
|
_jobRunner.Stop()
|
|
_logger.Info($"{My.Settings.SERVICE_NAME} is stopping.")
|
|
End Sub
|
|
End Class
|