XmlSerializer - Ich stehe (als Ochse) vor dem Berg

  • VB.NET

Es gibt 11 Antworten in diesem Thema. Der letzte Beitrag () ist von JRole.

    XmlSerializer - Ich stehe (als Ochse) vor dem Berg

    Moinsen zusammen,

    ich habe früher - als ich noch richtig fett in der Materie war - Immer den BinaryFormatter benutzt, um meine Objekte zu sichern. Das scheint jetzt nicht mehr zu gehen (BinaryFormatter ist veraltet).

    Gut, speichern wir das ganze als XML ab. Steht auch in der MSDN: als Ersatz für den BinaryFormatter soll der XmlSerializer verwendet werden. Gelesen, getan, und dann kommt der Berg.

    Ich bekomme die Meldung: "InvalidOperationException: System.RuntimeType is inaccessible due to its protection level. Only public types can be processed." Seltsam, wenn doch wirklich alles als Public deklariert ist.

    Der Code Speichern:

    VB.NET-Quellcode

    1. Public Function Save(Optional ByVal Overwrite As Boolean = False) As Boolean
    2. Dim Result As Boolean = False
    3. Dim Serializer As Xml.Serialization.XmlSerializer = Nothing
    5. If IO.File.Exists(_Path) Then
    6. If Overwrite Then IO.File.Delete(_Path)
    8. Using Stream = New IO.FileStream(_Path, IO.FileMode.CreateNew)
    9. Serializer = New Xml.Serialization.XmlSerializer(_List.GetType)
    10. Serializer.Serialize(Stream, _List) ' <-- hier knallt's
    12. Stream.Close()
    13. End Using
    15. Result = True
    16. End If
    18. Return Result
    19. End Function


    Die Klasse die gespeichert werden soll

    VB.NET-Quellcode

    1. <Serializable> Public Class Field
    2. Public ReadOnly Property ID As Integer
    3. Public Property Name As String
    4. Public Property Type As System.Type
    5. Public Property Ignore As Boolean
    7. Public Sub New()
    8. _ID = -1
    9. End Sub
    10. Public Sub New(ByVal ID As Integer)
    11. _ID = ID
    12. _Name = ""
    13. _Type = Nothing
    14. _Ignore = False
    15. End Sub
    16. Public Sub New(ByVal ID As Integer, ByVal Name As String, ByVal Type As System.Type, ByVal Ignore As Boolean)
    17. _ID = ID
    18. _Name = Name
    19. _Type = Type
    20. _Ignore = Ignore
    21. End Sub
    22. End Class


    Wo liegt mein Denkfehler? Oder habe ich das Prinzip nicht verstanden?

    Danke vorab,
    Jens

    Und wie ist _List deklariert?
    Dieser Beitrag wurde bereits 5 mal editiert, zuletzt von „VaporiZed“, mal wieder aus Grammatikgründen.

    Aufgrund spontaner Selbsteintrübung sind all meine Glaskugeln beim Hersteller. Lasst mich daher bitte nicht den Spekulatiusbackmodus wechseln.

    Check. Oder besser: gecheckt, aber keine Änderung. Ich hab' das ganze mal in ein Demo-Projekt gepackt - Siehe Anhang.

    Am liebsten hätte ich aber den BinaryFormatter zurück :) Bin für jede Aufklärung dankbar. Man lernt ja immer dazu und wer weiß schon, für was es gut ist!

    Jens
    Dateien

    • CSVImport.zip

      (7,56 kB, 193 mal heruntergeladen, zuletzt: )

    MyFault. Der Typ Type kann anscheinend von Haus aus nicht (de)serialisiert werden.
    Ich verwende zwar bevorzugt JSON, aber hab nicht getestet, ob damit der genannte Typ verarbeitet werden kann. Und Binary? Wusste gar nicht, dass der nicht mehr geht.
    Dieser Beitrag wurde bereits 5 mal editiert, zuletzt von „VaporiZed“, mal wieder aus Grammatikgründen.

    Aufgrund spontaner Selbsteintrübung sind all meine Glaskugeln beim Hersteller. Lasst mich daher bitte nicht den Spekulatiusbackmodus wechseln.

    Speichere doch Type.Name als String und gib der Klasse eine String-To-Type-Property.
    Falls Du diesen Code kopierst, achte auf die C&P-Bremse.
    Jede einzelne Zeile Deines Programms, die Du nicht explizit getestet hast, ist falsch :!:
    Ein guter .NET-Snippetkonverter (der ist verfügbar).
    Programmierfragen über PN / Konversation werden ignoriert!

    @RodFromGermany: So habe ich es jetzt gemacht. Aber auch mit dem JSONSerializer. Sieht einfach auch besser aus ;)

    Als würde das was zählen!

    Edit: Was mir jetzt aber noch fehlt, um die Verwendung einfacher zu machen: Kann man Properties von der Serialisierung ausnehmen? Hier also eben die Type-Property.

    JRole

    @JRole So was:

    VB.NET-Quellcode

    1. <XmlIgnore>
    2. <NonSerialized>
    3. Public Property Ignore As Boolean
    Falls Du diesen Code kopierst, achte auf die C&P-Bremse.
    Jede einzelne Zeile Deines Programms, die Du nicht explizit getestet hast, ist falsch :!:
    Ein guter .NET-Snippetkonverter (der ist verfügbar).
    Programmierfragen über PN / Konversation werden ignoriert!

    @petaod und @all

    Danke! Bei etwas genauerem Nachdenken ist es nicht nötig. Habe ich aber erst nach einigem Lesen und Grübeln gemerkt. Für alle, die es interessiert, System.Type kann man serialisieren. Ist aber umständlicher als das explizite Casten.

    VB.NET-Quellcode

    1. <System.Runtime.Serialization.DataContract> Public Class SerializableType
    2. Private Type As System.Type
    4. <System.Runtime.Serialization.DataMember> Public Property FullName As String
    5. Get
    6. If Me.Type Is Nothing Then
    7. Return Nothing
    8. Else
    9. Return Me.Type.FullName
    10. End If
    11. End Get
    12. Set(value As String)
    13. If value Is Nothing Then
    14. Me.Type = Nothing
    15. Else
    16. Me.Type = System.Type.GetType(value)
    17. End If
    18. End Set
    19. End Property
    21. Public Sub New()
    22. Me.Type = Nothing
    23. End Sub
    25. Public Sub New(ByVal Type As System.Type)
    26. Me.Type = Type
    27. End Sub
    29. Public Shared Narrowing Operator CType(ByVal sType As SerializableType) As System.Type
    30. Return sType.Type
    31. End Operator
    33. Public Shared Narrowing Operator CType(ByVal sType As Type) As SerializableType
    34. Return New SerializableType(sType)
    35. End Operator
    37. Public Shared Operator =(ByVal TypeA As SerializableType, ByVal TypeB As SerializableType) As Boolean
    38. If System.Object.ReferenceEquals(TypeA, TypeB) Then
    39. Return True
    40. End If
    41. If TypeA Is Nothing OrElse TypeB Is Nothing Then
    42. Return False
    43. End If
    45. Return TypeA.GetType = TypeB.GetType
    46. End Operator
    48. Public Shared Operator <>(ByVal TypeA As SerializableType, ByVal TypeB As SerializableType) As Boolean
    49. Return Not (TypeA = TypeB)
    50. End Operator
    52. Public Overrides Function GetHashCode() As Integer
    53. Return Me.Type.GetHashCode()
    54. End Function
    56. Public Overrides Function Equals(obj As Object) As Boolean
    57. Dim Casted As SerializableType = Nothing
    59. If obj Is Nothing Then
    60. Return False
    61. End If
    63. Casted = New SerializableType(obj.GetType)
    64. If Casted = Nothing Then
    65. Return False
    66. End If
    68. Return Casted Is Me.Type
    69. End Function
    71. Public Overloads Function Equals(ByVal SerializableType As SerializableType) As Boolean
    72. If SerializableType Is Nothing Then
    73. Return False
    74. End If
    76. Return Me.Type Is SerializableType
    77. End Function
    78. End Class


    Gruß, JRole

    Dieser Beitrag wurde bereits 1 mal editiert, zuletzt von „JRole“ ()

Facebook