Serializable Person Object : Serialize Object « File Directory « VB.Net

Serializable Person Object

Imports System.IO
Imports System.Runtime.Serialization.Formatters.Binary
Imports System.Runtime.Serialization.Formatters.Soap

Public Class MainClass

    Public Shared Sub Main()
        Dim Bob As New SerializablePerson("Bob", 34, 5.25)
        Dim fs As New FileStream("c:\bob.dat", FileMode.Create)
        Dim f As System.Runtime.Serialization.IFormatter
        f = New SoapFormatter()
        'f = New BinaryFormatter()

        f.Serialize(fs, Bob)
        Bob = Nothing
        fs = New FileStream("c:\bob.dat", FileMode.Open)
        Bob = CType(f.Deserialize(fs), SerializablePerson)
    End Sub

End Class

<Serializable()> Public Class SerializablePerson
    Public Name As String
    Public Age As Integer
    Public Height As Integer

    Public Sub New()
    End Sub

    Public Sub New(ByVal Name As String, ByVal Age As String, _
      ByVal Height As String)
        Me.Name = Name
        Me.Age = Age
        Me.Height = Height
    End Sub

End Class


Related examples in the same category

1.Serialize Data to Binary and XML at the same time
2.Serialize Object to XML Stream and output to screen
3.Save Serializable Object to binary file: create a sequential-access file
4.Serialize to Xml
5.Simple Serializable Person Object
6.MarshalByRefObject access objects across application domain