32 lines
1.5 KiB
VB.net
32 lines
1.5 KiB
VB.net
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
|