Imports System.IO
Imports System.IO.IsolatedStorage
Imports System.Xml
Imports System.Xml.Serialization
 
Public Class INIfile
 
    Public Class AppData
        Public lastServer As String
        Public lastSSPI As Boolean
        Public lastUser As String
    End Class
 
    Private _appData As Object
    Private lastServer As String
    Private lastSSPI As Boolean
    Private lastUser As String
 
    Public Property Server() As String
        Get
            Return lastServer
        End Get
        Set(ByVal Value As String)
            lastServer = Value
        End Set
    End Property
 
    Public Property SSPI() As Boolean
        Get
            Return lastSSPI
        End Get
        Set(ByVal Value As Boolean)
            lastSSPI = Value
        End Set
    End Property
 
    Public Property User() As String
        Get
            Return lastUser
        End Get
        Set(ByVal Value As String)
            lastUser = Value
        End Set
    End Property
 
 
    Public Sub LoadClientConfig()
 
        Dim isf As File
        Dim isfs As FileStream
        Dim sr As StreamReader
 
        Try
            isfs = isf.OpenRead("AppData.cfg")
            sr = New StreamReader(isfs, System.Text.Encoding.UTF8)
 
            Dim xmlser As New XmlSerializer(GetType(AppData))
            _appData = CType(xmlser.Deserialize(sr), AppData)
 
        Catch ex As Exception
 
            ' Init Einstellungen beim ersten Aufruf
            _appData = New AppData
            _appData.lastServer = "172.16.10.27"
            _appData.lastSSPI = False
            _appData.lastUser = ""
 
        Finally
            If Not sr Is Nothing Then sr.Close()
            If Not isfs Is Nothing Then isfs.Close()
        End Try
 
        If Not _appData Is Nothing Then
            lastServer = _appData.lastServer
            lastSSPI = _appData.lastSSPI
            lastUser = _appData.lastUser
        End If
 
    End Sub
 
    Public Sub SaveClientConfig()
 
        If _appData Is Nothing Then Exit Sub
 
        Dim isf As File
        Dim isfs As FileStream
        Dim sw As StreamWriter
 
        Try
            isfs = isf.Create("AppData.cfg")
            sw = New StreamWriter(isfs, System.Text.Encoding.UTF8)
 
            ' Parametereinstellungen ermitteln für Speicherung
            _appData.lastServer = lastServer
            _appData.lastSSPI = lastSSPI
            _appData.lastUser = lastUser
 
            Dim xmlser As New XmlSerializer(GetType(AppData))
            xmlser.Serialize(sw, _appData)
 
        Catch ex As System.Exception
            MsgBox("Einsstellungen konnten nicht gepeichert werden: " + _
              ex.Message, MsgBoxStyle.Exclamation, "ACHTUNG")
        Finally
            If Not sw Is Nothing Then sw.Close()
            If Not isfs Is Nothing Then isfs.Close()
        End Try
 
    End Sub
 
End Class