Objekt mit dem BinaryFormatter serialisieren

1
2
3
4
5
6
7
8
9
10
11
12

''' <summary>
''' Mit dieser Funktion kann man ein Objekt Serialisieren und als Byte Array zurückgeben
''' </summary>
''' <param name="What">Das zu serialisierende Objekt</param>
Public Function SerializeObject(ByVal What As Object) As Byte()
    Dim MemStream As New MemoryStream
    Dim BinWriter As New BinaryWriter(MemStream)
    Dim BinFormatter As New BinaryFormatter
    BinFormatter.Serialize(BinWriter.BaseStream, What)
    BinWriter.Close()
    Return MemStream.ToArray
End Function