Add saving and loading XML files for contacts and settings.

Author: Captain-ALM

C-ALM-VOIP/C-ALM-VOIP/AddrBook/AddressableBase.vb

@@ -42,7 +42,7 @@ Public MustInherit Class AddressableBase
             _name = value
         End Set
     End Property
-
+    <Xml.Serialization.XmlIgnore>
     Public Overridable Property targetAddress As String
         Get
             Return _targaddress
@@ -51,7 +51,7 @@ Public MustInherit Class AddressableBase
             _targaddress = value
         End Set
     End Property
-
+    <Xml.Serialization.XmlIgnore>
     Public Overridable Property targetPort As Integer
         Get
             Return _targport
@@ -98,7 +98,7 @@ Public MustInherit Class AddressableBase
             _advport = value
         End Set
     End Property
-
+    <Xml.Serialization.XmlIgnore>
     Public Overridable Property type As AddressableType
         Get
             Return _type
@@ -107,7 +107,7 @@ Public MustInherit Class AddressableBase
             _type = value
         End Set
     End Property
-
+    <Xml.Serialization.XmlIgnore>
     Public Overridable Property targetIPVersion As IPVersion
         Get
             Return _targver

C-ALM-VOIP/C-ALM-VOIP/AddrBook/Contact.vb

@@ -2,14 +2,18 @@
 Public Class Contact
     Inherits AddressableBase
 
+    Public Sub New()
+        MyBase.New("", 0, IPVersion.None, AddressableType.None)
+    End Sub
+
     Public Sub New(other As AddressableBase)
         MyBase.New(other)
     End Sub
 
     Public Sub New(targAddress As String, targPort As Integer, targVer As IPVersion, aType As AddressableType)
         MyBase.New(targAddress, targPort, targVer, aType)
     End Sub
-
+    <Xml.Serialization.XmlElement(ElementName:="targetAddress")>
     Public Overloads Property targetAddress As String
         Get
             Return MyBase.targetAddress
@@ -18,7 +22,7 @@ Public Class Contact
             MyBase.targetAddress = value
         End Set
     End Property
-
+    <Xml.Serialization.XmlElement(ElementName:="targetPort")>
     Public Overloads Property targetPort As Integer
         Get
             Return MyBase.targetPort
@@ -27,7 +31,7 @@ Public Class Contact
             MyBase.targetPort = value
         End Set
     End Property
-
+    <Xml.Serialization.XmlElement(ElementName:="type")>
     Public Overloads Property type As AddressableType
         Get
             Return MyBase.type
@@ -36,7 +40,7 @@ Public Class Contact
             MyBase.type = value
         End Set
     End Property
-
+    <Xml.Serialization.XmlElement(ElementName:="targetIPVersion")>
     Public Overloads Property targetIPVersion As IPVersion
         Get
             Return MyBase.targetIPVersion
@@ -67,12 +71,17 @@ Public Class Contact
     Public Overrides Function duplicateToNew() As AddressableBase
         Return New Contact(Me)
     End Function
+End Class
+
+<Serializable, Xml.Serialization.XmlInclude(GetType(Contact))>
+Public Class Contacts
+    Public contacts As Contact() = New Contact() {}
 
-    Public Shared Function load(strIn As String) As Contact
-        Return sserializer.deSerialize(Of Contact)(strIn)
+    Public Shared Function load(strIn As String) As Contacts
+        Return sserializer.deSerialize(Of Contacts)(strIn)
     End Function
 
     Public Function save() As String
-        Return sserializer.serialize(Of Contact)(Me)
+        Return sserializer.serialize(Of Contacts)(Me)
     End Function
 End Class

C-ALM-VOIP/C-ALM-VOIP/Main.vb

@@ -14,10 +14,13 @@ Module Main
     Public Const quote As Char = """c"
     Public programAssembly As Assembly = Assembly.GetEntryAssembly()
     Public programPath As String = programAssembly.Location
+    Public programName As String = Path.GetFileNameWithoutExtension(programPath)
     Public execdir As String = Path.GetDirectoryName(programPath)
     Public worker As WorkerPump = Nothing
     Public forms As New List(Of Form)
     Public parsers As New List(Of IEventParser)
+    Public contactStoreLoc As String = execdir & "\" + programName & ".contacts"
+    Public settingsStoreLoc As String = execdir & "\" + programName & ".settings"
 
     Public Sub main()
         Try
@@ -57,6 +60,22 @@ Module Main
         Catch ex As IOException
         End Try
 
+        Dim args As String() = Environment.GetCommandLineArgs()
+        If args.Length > 1 Then
+            For i As Integer = 1 To args.Length - 1 Step 1
+                Try
+                    If File.Exists(args(i)) Then
+                        If Path.GetExtension(args(i)) = ".contacts" Then
+                            contactStoreLoc = args(i)
+                        ElseIf Path.GetExtension(args(i)) = ".settings" Then
+                            settingsStoreLoc = args(i)
+                        End If
+                    End If
+                Catch ex As IOException
+                End Try
+            Next
+        End If
+
         worker = New WorkerPump()
         AddHandler worker.OnPumpException, AddressOf ope
         forms.Add(New AboutBx(worker))

C-ALM-VOIP/C-ALM-VOIP/Utils/Global.vb

@@ -2,6 +2,7 @@
 Imports captainalm.CALMNetMarshal
 Imports System.Net.Sockets
 Imports captainalm.Serialize
+Imports System.IO
 
 Public Module [Global]
     'Global Information
@@ -54,6 +55,43 @@ Public Module [Global]
     Public Function returnFirstItemOrNothing(Of t)(input As t()) As t
         If input Is Nothing OrElse input.Length < 1 Then Return Nothing Else Return input(0)
     End Function
+
+    Public Function loadSettings() As GlobalSettings
+        Dim toret As New GlobalSettings()
+        Try
+            toret.load(File.ReadAllText(settingsStoreLoc))
+        Catch ex As IOException
+            toret = New GlobalSettings()
+        End Try
+        Return toret
+    End Function
+
+    Public Sub saveSettings(setIn As GlobalSettings)
+        If setIn Is Nothing Then Return
+        Try
+            File.WriteAllText(settingsStoreLoc, setIn.save())
+        Catch ex As IOException
+        End Try
+    End Sub
+
+    Public Function loadContacts() As Contacts
+        Dim toret As New Contacts()
+        Try
+            toret = Contacts.load(File.ReadAllText(contactStoreLoc))
+            If toret Is Nothing Then toret = New Contacts()
+        Catch ex As IOException
+            toret = New Contacts()
+        End Try
+        Return toret
+    End Function
+
+    Public Sub saveContacts(csIn As Contacts)
+        If csIn Is Nothing Then Return
+        Try
+            File.WriteAllText(contactStoreLoc, csIn.save())
+        Catch ex As IOException
+        End Try
+    End Sub
 End Module
 
 Public Enum EditorMode As Integer

C-ALM-VOIP/C-ALM-VOIP/Utils/GlobalSettings.vb

@@ -69,11 +69,12 @@ Public Class GlobalSettings
     Public Sub load(data As String)
         setupGS()
         Dim setting As GlobalSettings = settings.gserializer.deSerialize(Of GlobalSettings)(data)
-        takeACopy(setting)
+        If Not setting Is Nothing Then takeACopy(setting)
         setting = Nothing
     End Sub
 
     Public Sub load(toDuplicate As GlobalSettings)
+        If toDuplicate Is Nothing Then Return
         takeACopy(toDuplicate)
     End Sub
 

C-ALM-VOIP/C-ALM-VOIP/Utils/ListViewedRegistry.vb

@@ -103,4 +103,10 @@
             Next
         End SyncLock
     End Sub
+
+    Public ReadOnly Property internalList As SyncLockedList(Of t)
+        Get
+            Return backedList
+        End Get
+    End Property
 End Class

C-ALM-VOIP/C-ALM-VOIP/Views/MainProgram.vb

@@ -62,6 +62,20 @@ Public NotInheritable Class MainProgram
         clientreg = New ListViewedRegistry(Of Client)(ListViewcl)
         contactreg = New ListViewedRegistry(Of Contact)(ListViewcl2)
         streamreg = New ListViewedRegistry(Of Streamer)(ListViewsc)
+        settings = loadSettings()
+        lContacts()
+    End Sub
+
+    Private Sub lContacts()
+        Dim cs As Contact() = loadContacts().contacts
+        contactreg.clear()
+        For Each c As Contact In cs
+            addContact(c)
+        Next
+    End Sub
+
+    Private Sub sContacts()
+        saveContacts(New Contacts() With {.contacts = contactreg.internalList.toArray()})
     End Sub
 
     Private Sub MainProgram_Shown(sender As Object, e As EventArgs) Handles MyBase.Shown
@@ -103,6 +117,7 @@ Public NotInheritable Class MainProgram
                 While Not configfin
                     Threading.Thread.Sleep(125)
                 End While
+                saveSettings(settings)
             End If
             wp.addEvent(New WorkerEvent(butrconf, New Object() {Me}, ETs.Click, e))
         End If
@@ -311,6 +326,8 @@ Public NotInheritable Class MainProgram
     'Marshal Management
 
     Private Sub engage()
+        saveSettings(settings)
+        lContacts()
         micVOIP = New VOIPSender() With {.samplebuffersize = settings.samplerate * (settings.buffmdmsecs / 1000) * 2}
         spkVOIP = New VOIPReceiver()
         If Not settings.selected_interfaceIPv4.Equals(IPAddress.None) Then
@@ -379,6 +396,8 @@ Public NotInheritable Class MainProgram
         micVOIP = Nothing
         spkVOIP.Dispose()
         spkVOIP = Nothing
+        settings = loadSettings()
+        sContacts()
     End Sub
 
     Private Function terminateMarshal(marshalIn As NetMarshalBase) As NetMarshalBase