Imports System.IO

'''<summary>Klasse zum auselesen der Steuerparameter aus der Datei
'''\bin\parameters.cfg</summary>
'''<author>Stefan Hutter</author>
Public Class ClsParameters

#Region "Deklarationen"

    Dim m_startparameter As String
    Property Startparameter As String
        Get
            Return m_startparameter
        End Get
        Set(value As String)
            m_startparameter = value
        End Set
    End Property
    Dim m_EDOKA_Connection As String
    Dim m_timerintervall As Integer
    Property TimeIntervall As Integer
        Get
            Return m_timerintervall
        End Get
        Set(value As Integer)
            m_timerintervall = value
        End Set
    End Property


#End Region

    '''<summary>Laden der Parameterdaten aus parameters.cfg</summary>
    '''<remarks>Die Funktion lädt für die Anwendung die notwendigen Parameter aus der
    '''Datei "Parameters.cfg"</remarks>
    '''<returns>True im OK-Fall
    '''False im Fehlerfall</returns>
    Public Function Loadparameters() As Boolean
        Try
            Me.Startparameter = My.Settings.Startparameter
            Me.TimeIntervall = My.Settings.TimerIntervall_in_Sekunden * 1000
            Return True
        Catch ex As Exception
            Return False
        End Try
    End Function



End Class