Diese Funktion kann ein Objekt Binär serialisieren und dieses als ByteArray zurückgeben. Der Vorteil des BinaryFormatters ist das man auch Objekte serialisieren kann die das IDictionary Interface implementiert haben.
''' <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
Kommentare zum Snippet