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)
fs.Close()
Bob = Nothing
fs = New FileStream("c:\bob.dat", FileMode.Open)
Bob = CType(f.Deserialize(fs), SerializablePerson)
System.Console.WriteLine(Bob.Name)
fs.Close()
End Sub
End Class
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