Rename Shared to Common

MultiTool.Common/Serializer.vb

@@ -0,0 +1,31 @@
+Imports System.Xml.Serialization
+Imports DigitalData.Modules.Logging
+
+Public Class Serializer
+    Inherits BaseClass
+    Public Sub New(pLogConfig As LogConfig)
+        MyBase.New(pLogConfig)
+    End Sub
+
+    Public Function GetSerializer(pSchemaType As Type) As XmlSerializer
+        Dim oSerializer As New XmlSerializer(pSchemaType)
+
+        AddHandler oSerializer.UnknownAttribute, Sub(sender As Object, e As XmlAttributeEventArgs)
+                                                     Logger.Debug("[{1}] Unknown Attribute: {0}", e.Attr, pSchemaType.Name)
+                                                 End Sub
+
+        AddHandler oSerializer.UnknownElement, Sub(sender As Object, e As XmlElementEventArgs)
+                                                   Logger.Debug("[{1}] Unknown Element: {0}", e.Element, pSchemaType.Name)
+                                               End Sub
+
+        AddHandler oSerializer.UnknownNode, Sub(sender As Object, e As XmlNodeEventArgs)
+                                                Logger.Debug("[{1}] Unknown Node: {0}", e.Name, pSchemaType.Name)
+                                            End Sub
+
+        AddHandler oSerializer.UnreferencedObject, Sub(sender As Object, e As UnreferencedObjectEventArgs)
+                                                       Logger.Debug("[{1}] Unreferenced Object: {0}", e.UnreferencedId, pSchemaType.Name)
+                                                   End Sub
+
+        Return oSerializer
+    End Function
+End Class