Initial commit
This commit is contained in:
@@ -0,0 +1,215 @@
|
||||
Public Class ClsParameter
|
||||
|
||||
#Region "Deklarationen"
|
||||
|
||||
Dim p_MQHostname As String
|
||||
Public Property MQHostname() As String
|
||||
Get
|
||||
Return p_MQHostname
|
||||
End Get
|
||||
Set(ByVal value As String)
|
||||
p_MQHostname = value
|
||||
End Set
|
||||
End Property
|
||||
|
||||
Dim p_MQPort As String
|
||||
Public Property MQPort() As String
|
||||
Get
|
||||
Return p_MQPort
|
||||
End Get
|
||||
Set(ByVal value As String)
|
||||
p_MQPort = value
|
||||
End Set
|
||||
End Property
|
||||
|
||||
Dim p_MQChannel As String
|
||||
Public Property MQChannel() As String
|
||||
Get
|
||||
Return p_MQChannel
|
||||
End Get
|
||||
Set(ByVal value As String)
|
||||
p_MQChannel = value
|
||||
End Set
|
||||
End Property
|
||||
|
||||
Dim p_MQQueueName As String
|
||||
Public Property MQQueueName() As String
|
||||
Get
|
||||
Return p_MQQueueName
|
||||
End Get
|
||||
Set(ByVal value As String)
|
||||
p_MQQueueName = value
|
||||
End Set
|
||||
End Property
|
||||
|
||||
Dim p_SqlTimeout As String
|
||||
Public Property SqlTimeout() As String
|
||||
Get
|
||||
Return p_SqlTimeout
|
||||
End Get
|
||||
Set(ByVal value As String)
|
||||
p_SqlTimeout = value
|
||||
End Set
|
||||
End Property
|
||||
|
||||
Dim p_CDMuter As String
|
||||
Public Property CDMuter() As String
|
||||
Get
|
||||
Return p_CDMuter
|
||||
End Get
|
||||
Set(ByVal value As String)
|
||||
p_CDMuter = value
|
||||
End Set
|
||||
End Property
|
||||
|
||||
Dim p_MuterNr As String
|
||||
Public Property MuterNr() As String
|
||||
Get
|
||||
Return p_MuterNr
|
||||
End Get
|
||||
Set(ByVal value As String)
|
||||
p_MuterNr = value
|
||||
End Set
|
||||
End Property
|
||||
|
||||
Dim p_Watchdir As String
|
||||
Public Property Watchdir() As String
|
||||
Get
|
||||
Return p_Watchdir
|
||||
End Get
|
||||
Set(ByVal value As String)
|
||||
p_Watchdir = value
|
||||
End Set
|
||||
End Property
|
||||
|
||||
Dim p_TimerInterval As String
|
||||
Public Property TimerInterval() As String
|
||||
Get
|
||||
Return p_TimerInterval
|
||||
End Get
|
||||
Set(ByVal value As String)
|
||||
p_TimerInterval = value
|
||||
End Set
|
||||
End Property
|
||||
|
||||
Dim p_LoopQueue As String
|
||||
Public Property LoopQueue() As String
|
||||
Get
|
||||
Return p_LoopQueue
|
||||
End Get
|
||||
Set(ByVal value As String)
|
||||
p_LoopQueue = value
|
||||
End Set
|
||||
End Property
|
||||
|
||||
Dim p_DebugMode As Boolean
|
||||
Public Property DebugMode() As Boolean
|
||||
Get
|
||||
Return p_DebugMode
|
||||
End Get
|
||||
Set(ByVal value As Boolean)
|
||||
p_DebugMode = value
|
||||
End Set
|
||||
End Property
|
||||
|
||||
Dim p_DebugDir As String
|
||||
Public Property DebugDir() As String
|
||||
Get
|
||||
Return p_DebugDir
|
||||
End Get
|
||||
Set(ByVal value As String)
|
||||
p_DebugDir = value
|
||||
End Set
|
||||
End Property
|
||||
|
||||
Dim p_DefaultBetreuerID As String
|
||||
Public Property DefaultBetreuerID() As String
|
||||
Get
|
||||
Return p_DefaultBetreuerID
|
||||
End Get
|
||||
Set(ByVal value As String)
|
||||
p_DefaultBetreuerID = value
|
||||
End Set
|
||||
End Property
|
||||
|
||||
Dim p_nb_errors As Integer
|
||||
Public Property nb_errors() As Integer
|
||||
Get
|
||||
Return p_nb_errors
|
||||
End Get
|
||||
Set(ByVal value As Integer)
|
||||
p_nb_errors = value
|
||||
End Set
|
||||
End Property
|
||||
|
||||
Dim p_nb_seconds As Integer
|
||||
Public Property nb_seconds() As Integer
|
||||
Get
|
||||
Return p_nb_seconds
|
||||
End Get
|
||||
Set(ByVal value As Integer)
|
||||
p_nb_seconds = value
|
||||
End Set
|
||||
End Property
|
||||
|
||||
Dim p_len_TXADZ As Integer
|
||||
Public Property len_TXADZ() As Integer
|
||||
Get
|
||||
Return p_len_TXADZ
|
||||
End Get
|
||||
Set(ByVal value As Integer)
|
||||
p_len_TXADZ = value
|
||||
End Set
|
||||
End Property
|
||||
#End Region
|
||||
|
||||
Public Function Loadparameters() As String
|
||||
Try
|
||||
m_log.Log("EDKB04: Loading Parameters", Common.Common.JournalEntryType.Information)
|
||||
oread = IO.File.OpenText(appPath & "parameter.cfg")
|
||||
Me.p_MQHostname = ParamValue(oread.ReadLine)
|
||||
Me.p_MQPort = ParamValue(oread.ReadLine)
|
||||
Me.p_MQChannel = ParamValue(oread.ReadLine)
|
||||
Me.p_MQQueueName = ParamValue(oread.ReadLine)
|
||||
Me.p_SqlTimeout = ParamValue(oread.ReadLine)
|
||||
Me.p_CDMuter = ParamValue(oread.ReadLine)
|
||||
Me.p_MuterNr = ParamValue(oread.ReadLine)
|
||||
Me.p_Watchdir = ParamValue(oread.ReadLine)
|
||||
Me.p_TimerInterval = ParamValue(oread.ReadLine)
|
||||
Me.p_LoopQueue = ParamValue(oread.ReadLine)
|
||||
Me.p_DebugMode = CBool(ParamValue(oread.ReadLine))
|
||||
Me.p_DebugDir = ParamValue(oread.ReadLine)
|
||||
Me.p_DefaultBetreuerID = ParamValue(oread.ReadLine)
|
||||
Try
|
||||
Me.p_nb_errors = CInt(ParamValue(oread.ReadLine))
|
||||
Catch ex As Exception
|
||||
' Keine Zahl
|
||||
Me.p_nb_errors = 999999
|
||||
End Try
|
||||
Try
|
||||
Me.p_nb_seconds = CInt(ParamValue(oread.ReadLine))
|
||||
Catch ex As Exception
|
||||
'Keine Zahl
|
||||
Me.p_nb_seconds = 1
|
||||
End Try
|
||||
Try
|
||||
Me.p_len_TXADZ = CInt(ParamValue(oread.ReadLine))
|
||||
Catch ex As Exception
|
||||
'Keine Zahl
|
||||
Me.p_len_TXADZ = 35
|
||||
End Try
|
||||
oread.Close()
|
||||
m_log.Log("EDKB04: Loading Parameters Ended", Common.Common.JournalEntryType.Information)
|
||||
Return ""
|
||||
Catch ex As Exception
|
||||
m_log.Log("EDKB04: Error Loading Params: " & ex.Message, Common.Common.JournalEntryType.Error)
|
||||
Return ex.Message
|
||||
End Try
|
||||
End Function
|
||||
|
||||
Private Function ParamValue(ByVal sinput As String) As String
|
||||
Dim splitter() As String
|
||||
splitter = Split(sinput, "=")
|
||||
ParamValue = splitter(1)
|
||||
End Function
|
||||
End Class
|
||||
Reference in New Issue
Block a user