Serialize Object then Unserialize

[Derek Martin]

Hey list, I have an arraylist containing some objects that I want to
serialize and send over the internet and then deserialize back into the
arraylist of objects.

What I have so far:
Dim myfeeds As New ArrayList
myfeeds = <<method that populates arraylist with objects>>

Dim BinFormatter As New
System.Runtime. Serialization.F ormatters.Binar y.BinaryFormatt er
Dim memStream As New System.IO.Memor yStream
BinFormatter.Se rialize(memStre am, myfeeds)
memStream.Posit ion = 0
Dim stremRead As New System.IO.Strea mReader(memStre am)
Dim oEncoder As New System.Text.ASC IIEncoding
Dim thisbyte As Byte() = oEncoder.GetByt es(stremRead.Re adToEnd)
Dim thisbase64 As String = Convert.ToBase6 4String(thisbyt e)

then, send thisbase64 string across the net...so far so good?

Now, I need to take this back into arraylist, and am probably just having a
brain fart but am unable to get this order properly reversed:

Dim bytes2 As Byte() = Convert.FromBas e64String(thisb ase64)
Dim memstream2 As New System.IO.Memor yStream(bytes2)
Dim stremread2 As New System.IO.Strea mWriter(memstre am2)
Dim mysecondfeeds As ArrayList =
CType(BinFormat ter.Deserialize (memstream2), ArrayList)....c auses format
change exception
annnnnd.....bra in fart

Anyone can help???

Thanks,
Derek

[Cor Ligthert [MVP]]

Derek,

I hope you don't mind I did not look at your code.

This sample should work
\\\
Private Function SerializeArrayl ist(ByVal _
arraylst As ArrayList) As String
Dim bf As New
Runtime.Seriali zation.Formatte rs.Binary.Binar yFormatter
Dim mem As New IO.MemoryStream
bf.Serialize(me m, arraylst)
Return Convert.ToBase6 4String(mem.ToA rray())
End Function
Private Function DeserializeArra ylist(ByVal _
arraystring As String) As ArrayList
Dim bf As New
Runtime.Seriali zation.Formatte rs.Binary.Binar yFormatter
Dim mem As New
IO.MemoryStream (Convert.FromBa se64String(arra ystring))
Return DirectCast(bf.D eserialize(mem) , ArrayList)
End Function
///

I hope this helps,

Cor

[Derek Martin]

Cor, as always, you are the bomb dot com - just what I was looking for and
saved me a few lines of code to boot!

Derek


"Cor Ligthert [MVP]" <no************ @planet.nl> wrote in message
news:ew******** ******@tk2msftn gp13.phx.gbl...

Derek,

I hope you don't mind I did not look at your code.

This sample should work
\\\
Private Function SerializeArrayl ist(ByVal _
arraylst As ArrayList) As String
Dim bf As New
Runtime.Seriali zation.Formatte rs.Binary.Binar yFormatter
Dim mem As New IO.MemoryStream
bf.Serialize(me m, arraylst)
Return Convert.ToBase6 4String(mem.ToA rray())
End Function
Private Function DeserializeArra ylist(ByVal _
arraystring As String) As ArrayList
Dim bf As New
Runtime.Seriali zation.Formatte rs.Binary.Binar yFormatter
Dim mem As New
IO.MemoryStream (Convert.FromBa se64String(arra ystring))
Return DirectCast(bf.D eserialize(mem) , ArrayList)
End Function
///

I hope this helps,

Cor