Imports System.IO
Imports System.IO.IsolatedStorage
Imports System.Xml
Imports System.Xml.Serialization
 
Public Class INIfile
 
	Public Class IniStructure
		Public lastServer As String
		Public lastServerList() As String
		Public lastSSPI As Boolean
		Public lastUser As String
		Public optSendMail As Boolean
		Public optSenderMailAdress As String
	End Class
 
	Private IniData As Object
 
	Private lastServer As String
	Private lastServerList() As String
	Private lastSSPI As Boolean
	Private lastUser As String
	Private optSendMail As Boolean
	Private optSenderMailAdress 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 ServerList() As Array
		Get
			Return lastServerList
		End Get
		Set(ByVal Value As Array)
			lastServerList = 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 Property SendMail() As Boolean
		Get
			Return optSendMail
		End Get
		Set(ByVal Value As Boolean)
			optSendMail = Value
		End Set
	End Property
 
	Public Property SenderMailAdress() As String
		Get
			Return optSenderMailAdress
		End Get
		Set(ByVal Value As String)
			optSenderMailAdress = Value
		End Set
	End Property
 
	Public Sub LoadXMLClientConfig()
 
		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(IniStructure))
			IniData = CType(xmlser.Deserialize(sr), IniStructure)
 
		Catch ex As Exception
 
			' Init Einstellungen beim ersten Aufruf
			IniData = New IniStructure
			IniData.lastServer = "(local)"
			ReDim lastServerList(0)
			lastServerList(0) = "(local)"
			IniData.lastServerList = lastServerList
			IniData.lastSSPI = False
			IniData.lastUser = "sa"
			IniData.optSendMail = True
			IniData.optSenderMailAdress = ""
 
		Finally
			If Not sr Is Nothing Then sr.Close()
			If Not isfs Is Nothing Then isfs.Close()
		End Try
 
		If Not IniData Is Nothing Then
			lastServer = IniData.lastServer
			lastServerList = IniData.lastServerList
			lastSSPI = IniData.lastSSPI
			lastUser = IniData.lastUser
			optSendMail = IniData.optSendMail
			optSenderMailAdress = IniData.optSenderMailAdress
		End If
 
	End Sub
 
	Public Sub SaveXMLClientConfig()
 
		If IniData 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
			IniData.lastserver = lastServer
			IniData.lastServerList = lastServerList
			IniData.lastSSPI = lastSSPI
			IniData.lastUser = lastUser
			IniData.optSendMail = optSendMail
			IniData.optSenderMailAdress = optSenderMailAdress
 
			Dim xmlser As New XmlSerializer(GetType(IniStructure))
			xmlser.Serialize(sw, IniData)
 
		Catch ex As System.Exception
			MsgBox("Einstellungen 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