Can't Deserialize a Hashtable using a Memory Stream...

[Zorpiedoman]

The following code explains my problem. It works fine if I use a file
stream, but not if I use a memory stream. What's the problem here? It must
be something simple I am missing...

Dim H As New Hashtable
H.Add(1, "First Item")
H.Add(2, "Second Item")
H.Add(3, "Third Item")

Dim BF As New
System.Runtime. Serialization.F ormatters.Binar y.BinaryFormatt er
Dim MS As New IO.MemoryStream
Dim FS As New IO.FileStream(" TestFile", IO.FileMode.Cre ate)

BF.Serialize(MS , H)
BF.Serialize(FS , H)
Dim B As Byte() = MS.ToArray

MS.Close()
FS.Close()

'----------------- So Far So Good, now I attempt to De-Serialize

Dim I As New Hashtable
Dim MS2 As New IO.MemoryStream
Dim FS2 As New IO.FileStream(" TestFile", IO.FileMode.Ope n)

I = DirectCast(BF.D eserialize(FS2) , Hashtable)
'This works:
MsgBox(I(3))

MS2.Write(B, 0, B.Length)
'This creates the error:
I = DirectCast(BF.D eserialize(MS2) , Hashtable)

MsgBox(I(3))

'The Error is: "End of Stream encountered before parsing was
completed."
--
--Zorpie

[Tom Shelton]

On 2005-07-30, Zorpiedoman <no*********@be atles.com> wrote:

The following code explains my problem. It works fine if I use a file
stream, but not if I use a memory stream. What's the problem here? It must
be something simple I am missing...

Dim H As New Hashtable
H.Add(1, "First Item")
H.Add(2, "Second Item")
H.Add(3, "Third Item")

Dim BF As New
System.Runtime. Serialization.F ormatters.Binar y.BinaryFormatt er
Dim MS As New IO.MemoryStream
Dim FS As New IO.FileStream(" TestFile", IO.FileMode.Cre ate)

BF.Serialize(MS , H)
BF.Serialize(FS , H)
Dim B As Byte() = MS.ToArray

MS.Close()
FS.Close()

'----------------- So Far So Good, now I attempt to De-Serialize

Dim I As New Hashtable
Dim MS2 As New IO.MemoryStream
Dim FS2 As New IO.FileStream(" TestFile", IO.FileMode.Ope n)

I = DirectCast(BF.D eserialize(FS2) , Hashtable)
'This works:
MsgBox(I(3))
MS2.Write(B, 0, B.Length) '************** ************
' add this line...
MS2.Seek (0, SeekOrigin.Begi n)
'************** *************** *
'This creates the error:
I = DirectCast(BF.D eserialize(MS2) , Hashtable)

MsgBox(I(3))

'The Error is: "End of Stream encountered before parsing was
completed."

You need to move the position pointer back to the begining of the stream
:)
--
Tom Shelton [MVP]