Serialization problem

[Norman Chong]

Hiddeldi ho,

I want to save an object so that I can use its content after I restart
my program. I tried to solve this with serialization because someone
told me that this is the correct way for this.
So I wrote the following code to serialize\deser ialize the object, but
now I have the problem that the object has a generic list and when I'm
trying to deserialize it, I get an error.

<System.Seriali zable()Public Class TestClass
Implements Runtime.Seriali zation.ISeriali zable
Private lstContent As List(Of Object)

Public Sub New(ByVal info As Serialization.S erializationInf o, ByVal
context As Serialization.S treamingContext ) Implements
Serialization.I Serializable.Ge tObjectData
lstContent = CType(info.GetV alue("MyList", lstContent.GetT ype),
List(Of Object))
End Sub

Public Sub GetObjectData(B yVal info As
Serialization.S erializationInf o, ByVal context As
Serialization.S treamingContext ) Implements
Serialization.I Serializable.Ge tObjectData
info.addValue(" MyList",lstCont ent)
End Sub

Public Sub Serialize()
Dim fs As New IO.FileStream(" DataFile.dat", IO.FileMode.Cre ate)
' Construct a BinaryFormatter and use it to serialize the data
to the stream.
Dim formatter As New
Runtime.Seriali zation.Formatte rs.Binary.Binar yFormatter
Try
formatter.Seria lize(fs, Me)
Catch e As Runtime.Seriali zation.Serializ ationException
MessageBox.Show ("Failed to serialize. Reason: " &
e.Message)
Throw
Finally
fs.Close()
End Try
End Sub

Public Shared Function Deserialize() As TestClass
Dim fs As New IO.FileStream(" DataFile.dat", IO.FileMode.Ope n)
Try
Dim formatter As New
Runtime.Seriali zation.Formatte rs.Binary.Binar yFormatter

Return DirectCast(form atter.Deseriali ze(fs), TestClass)
Catch e As Runtime.Seriali zation.Serializ ationException
MessageBox.Show ("Failed to deserialize. Reason: " &
e.Message)
Throw
Finally
fs.Close()
End Try
End Function

Can anybody give me an advice to solve my problem please?
Or does anybody know a simpler\better way to save an object?

Thanks,
Norman

[Steve Long]

It might be helpful to know what the error is that you're getting.

S

"Norman Chong" <no*********@fr eenet.dewrote in message
news:11******** *************@l 39g2000cwd.goog legroups.com...

Hiddeldi ho,

I want to save an object so that I can use its content after I restart
my program. I tried to solve this with serialization because someone
told me that this is the correct way for this.
So I wrote the following code to serialize\deser ialize the object, but
now I have the problem that the object has a generic list and when I'm
trying to deserialize it, I get an error.

<System.Seriali zable()Public Class TestClass
Implements Runtime.Seriali zation.ISeriali zable
Private lstContent As List(Of Object)

Public Sub New(ByVal info As Serialization.S erializationInf o, ByVal
context As Serialization.S treamingContext ) Implements
Serialization.I Serializable.Ge tObjectData
lstContent = CType(info.GetV alue("MyList", lstContent.GetT ype),
List(Of Object))
End Sub

Public Sub GetObjectData(B yVal info As
Serialization.S erializationInf o, ByVal context As
Serialization.S treamingContext ) Implements
Serialization.I Serializable.Ge tObjectData
info.addValue(" MyList",lstCont ent)
End Sub

Public Sub Serialize()
Dim fs As New IO.FileStream(" DataFile.dat", IO.FileMode.Cre ate)
' Construct a BinaryFormatter and use it to serialize the data
to the stream.
Dim formatter As New
Runtime.Seriali zation.Formatte rs.Binary.Binar yFormatter
Try
formatter.Seria lize(fs, Me)
Catch e As Runtime.Seriali zation.Serializ ationException
MessageBox.Show ("Failed to serialize. Reason: " &
e.Message)
Throw
Finally
fs.Close()
End Try
End Sub

Public Shared Function Deserialize() As TestClass
Dim fs As New IO.FileStream(" DataFile.dat", IO.FileMode.Ope n)
Try
Dim formatter As New
Runtime.Seriali zation.Formatte rs.Binary.Binar yFormatter

Return DirectCast(form atter.Deseriali ze(fs), TestClass)
Catch e As Runtime.Seriali zation.Serializ ationException
MessageBox.Show ("Failed to deserialize. Reason: " &
e.Message)
Throw
Finally
fs.Close()
End Try
End Function

Can anybody give me an advice to solve my problem please?
Or does anybody know a simpler\better way to save an object?

Thanks,
Norman

[Norman Chong]

Steve Long wrote:

It might be helpful to know what the error is that you're getting.

Hi Steve
My deserialized object always had the value 'nothing'. But I already
solved the problem (I just forgot to post that - Sorry!)

Thanks,
Norman