edkb04/EDKB04OP/clsParameter.vb

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

    Dim p_WaitForBrake As Integer
    Public Property WaitForBrake() As Integer
        Get
            Return p_WaitForBrake
        End Get
        Set(value As Integer)
            p_WaitForBrake = value
        End Set

    End Property

    Dim p_WriteUnsplittedFile As Integer
    Public Property WriteUnsplittedFile() As Integer
        Get
            Return p_WriteUnsplittedFile
        End Get
        Set(value As Integer)
            p_WriteUnsplittedFile = value
        End Set

    End Property


    Dim m_writeeventlog As Boolean
    Property WriteEventLog As Boolean
        Get
            Return m_writeeventlog
        End Get
        Set(value As Boolean)
            m_writeeventlog = value
        End Set
    End Property
#End Region

    Public Function Loadparameters() As String
        Try
            WriteEventLog = False
            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
            Try
                Me.WaitForBrake = CInt(ParamValue(oread.ReadLine))
            Catch ex As Exception
                'Keine Zahl
                Me.WaitForBrake = 0
            End Try
            Try
                Me.WriteUnsplittedFile = CInt(ParamValue(oread.ReadLine))
            Catch ex As Exception
                'Keine Zahl
                Me.WriteUnsplittedFile = 0
            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