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
<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
|
