Serialization Question

[Tiraman :-\)]

Hi,

i have a StreamWriter that hold a System.Net.Sock ets.NetwrokStre am
and the StreamWriter Object Hold An ArrayList which
i would like to Serialize And Send it back to the client via the
StreamWriter.Fl ush()
Dim writer As New IO.StreamWriter (System.Net.Soc kets.TcpClient. GetStream)

writer.Write(my Array)

Dim binF As New BinaryFormatter

how can i Serialize it ?

Thanks!

T:-)

[ljlevend]

Is this what you want?

Dim binF As New BinaryFormatter
Dim writer As New IO.StreamWriter (System.Net.Soc kets.TcpClient. GetStream)
binF.Serialize( writer, myArray)

Lance

[Tiraman :-\)]

yes,

but this what i tried and it didn't work for me since the
BinaryFormatter .Serialize doesn't accept a StreamWriter :)

do you know other way to implement this kind of operation ?

"ljlevend" <lj******@discu ssions.microsof t.com> wrote in message
news:42******** *************** ***********@mic rosoft.com...

Is this what you want?

Dim binF As New BinaryFormatter
Dim writer As New IO.StreamWriter (System.Net.Soc kets.TcpClient. GetStream)
binF.Serialize( writer, myArray)

Lance

[Cor Ligthert]

Hi Tiraman,

This sample I once made should do the job for you.

I hope this helps?

Cor

\\\
Private Sub Form1_Load(ByVa l sender _
As Object, ByVal e As System.EventArg s) Handles MyBase.Load
Dim a As New ArrayList
a.Add("I ")
a.Add("hope ")
a.Add("this ")
a.Add("helps?")
Dim b As String = SerializeArrayl ist(a)
MessageBox.Show (b)
Dim c As ArrayList = DeserializeArra ylist(b)
End Sub
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 have a StreamWriter that hold a System.Net.Sock ets.NetwrokStre am
and the StreamWriter Object Hold An ArrayList which
i would like to Serialize And Send it back to the client via the
StreamWriter.Fl ush()
Dim writer As New IO.StreamWriter (System.Net.Soc kets.TcpClient. GetStream)

writer.Write(my Array)

Dim binF As New BinaryFormatter

how can i Serialize it ?

Thanks!

T:-)

[Tiraman :-\)]

Hi Cor ,

it is a good example but it is not cover my problem.

I have a NetworkStream Which I m getting into the StreamWriter which i would
like to serialize.

how can i do that ?

Thanks!

Dim writer As New IO.StreamWriter (System.Net.Soc kets.TcpClient. GetStream)

"Cor Ligthert" <no**********@p lanet.nl> wrote in message
news:OD******** ******@TK2MSFTN GP12.phx.gbl...

Hi Tiraman,

This sample I once made should do the job for you.

I hope this helps?

Cor

\\\
Private Sub Form1_Load(ByVa l sender _
As Object, ByVal e As System.EventArg s) Handles MyBase.Load
Dim a As New ArrayList
a.Add("I ")
a.Add("hope ")
a.Add("this ")
a.Add("helps?")
Dim b As String = SerializeArrayl ist(a)
MessageBox.Show (b)
Dim c As ArrayList = DeserializeArra ylist(b)
End Sub
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 have a StreamWriter that hold a System.Net.Sock ets.NetwrokStre am
and the StreamWriter Object Hold An ArrayList which
i would like to Serialize And Send it back to the client via the
StreamWriter.Fl ush()
Dim writer As New IO.StreamWriter (System.Net.Soc kets.TcpClient. GetStream)
writer.Write(my Array)

Dim binF As New BinaryFormatter

how can i Serialize it ?

Thanks!

T:-)

[Cor Ligthert]

> Hi Cor ,

it is a good example but it is not cover my problem.

I have a NetworkStream Which I m getting into the StreamWriter which i would like to serialize.

how can i do that ?

Thanks!

Yes and what is wrong with it the sample first serialize and than deserilize
in one sample.

You have to use serialize, stream, and deserialize, however that was not the
problem I thought?

Cor

[Tiraman :-\)]

Hello Cor,

I m not sure that i understood you so here is my example and i will be happy
if you let me know where , what and why is the problem :-)
Private client As TcpClient

Sub xxx(ByVal obj As Object)

SyncLock client.GetStrea m
Dim sw As New IO.StreamWriter (client.GetStre am)

sw.Write(CType( obj,ArrayList))

Dim bf As New BinaryFormatter

bf.Serialize(sw , obj)
sw.Flush()
sw.Close()

End SyncLock

End Sub

Thanks!

"Cor Ligthert" <no**********@p lanet.nl> wrote in message
news:Ow******** ******@TK2MSFTN GP12.phx.gbl...

Hi Cor ,

it is a good example but it is not cover my problem.

I have a NetworkStream Which I m getting into the StreamWriter which i would

like to serialize.

how can i do that ?

Thanks!

Yes and what is wrong with it the sample first serialize and than

deserilize in one sample.

You have to use serialize, stream, and deserialize, however that was not the problem I thought?

Cor

[Cor Ligthert]

Tiraman this is the serialization part in my code

Dim bf As New Runtime.Seriali zation.Formatte rs.Binary.Binar yFormatter
dim mem As New IO.MemoryStream
bf.Serialize(me m, arraylst)
Dim myString as STring = Convert.ToBase6 4String(mem.ToA rray())

When I look at your code I see

Private client As TcpClient Sub xxx(ByVal myArray As as Arraylist) ' passing it as arraylist saves
casting Dim sw As New IO.StreamWriter (client.GetStre am)
Dim bf As New BinaryFormatter dim mem As New IO.MemoryStream
bf.Serialize(me m, myArray)
Dim myString as String =
Convert.ToBase6 4String(mem.ToA rray())
sw.Write(myStri ng) sw.Flush()
sw.Close()

Than I think it can be something like this, not tried,

I hope this helps?

Cor

[Tiraman :-\)]

Hi Cor,

Now the Serialize ok but i m getting the following error in the Deserialize
method.

System.Runtime. Serialization.S erializationExc eption: No map for object
1953724755.
at
System.Runtime. Serialization.F ormatters.Binar y.__BinaryParse r.ReadObject()
at System.Runtime. Serialization.F ormatters.Binar y.__BinaryParse r.Run()
at
System.Runtime. Serialization.F ormatters.Binar y.ObjectReader. Deserialize(Hea d
erHandler handler, __BinaryParser serParser, Boolean fCheck,
IMethodCallMess age methodCallMessa ge)
at
System.Runtime. Serialization.F ormatters.Binar y.BinaryFormatt er.Deserialize( S
tream serializationSt ream, HeaderHandler handler, Boolean fCheck,
IMethodCallMess age methodCallMessa ge)
at
System.Runtime. Serialization.F ormatters.Binar y.BinaryFormatt er.Deserialize( S
tream serializationSt ream, HeaderHandler handler)
at
System.Runtime. Serialization.F ormatters.Binar y.BinaryFormatt er.Deserialize( S
tream serializationSt ream)
at frmMain.DoRead( IAsyncResult ar) in frmMain.vb:line 769"

line 769 ---> MyArray = DirectCast(bf.D eserialize(ns), ArrayList)

any idea ?

Thanks !

"Cor Ligthert" <no**********@p lanet.nl> wrote in message
news:O7******** ******@TK2MSFTN GP12.phx.gbl...

Tiraman this is the serialization part in my code

Dim bf As New Runtime.Seriali zation.Formatte rs.Binary.Binar yFormatter
dim mem As New IO.MemoryStream
bf.Serialize(me m, arraylst)
Dim myString as STring = Convert.ToBase6 4String(mem.ToA rray())

When I look at your code I see

Private client As TcpClient Sub xxx(ByVal myArray As as Arraylist) ' passing it as arraylist

saves casting

Dim sw As New IO.StreamWriter (client.GetStre am)
Dim bf As New BinaryFormatter

dim mem As New IO.MemoryStream
bf.Serialize(me m, myArray)
Dim myString as String =
Convert.ToBase6 4String(mem.ToA rray())
sw.Write(myStri ng)

sw.Flush()
sw.Close()

Than I think it can be something like this, not tried,

I hope this helps?

Cor

[Cor Ligthert]

Hi Tiraman,

Without any code, what do you think I am?

Cor

Now the Serialize ok but i m getting the following error in the Deserialize method.

System.Runtime. Serialization.S erializationExc eption: No map for object
1953724755.
at
System.Runtime. Serialization.F ormatters.Binar y.__BinaryParse r.ReadObject()
at System.Runtime. Serialization.F ormatters.Binar y.__BinaryParse r.Run()
at
System.Runtime. Serialization.F ormatters.Binar y.ObjectReader. Deserialize(Hea d erHandler handler, __BinaryParser serParser, Boolean fCheck,
IMethodCallMess age methodCallMessa ge)
at
System.Runtime. Serialization.F ormatters.Binar y.BinaryFormatt er.Deserialize( S tream serializationSt ream, HeaderHandler handler, Boolean fCheck,
IMethodCallMess age methodCallMessa ge)
at
System.Runtime. Serialization.F ormatters.Binar y.BinaryFormatt er.Deserialize( S tream serializationSt ream, HeaderHandler handler)
at
System.Runtime. Serialization.F ormatters.Binar y.BinaryFormatt er.Deserialize( S tream serializationSt ream)
at frmMain.DoRead( IAsyncResult ar) in frmMain.vb:line 769"

line 769 ---> MyArray = DirectCast(bf.D eserialize(ns), ArrayList)

any idea ?

Thanks !

"Cor Ligthert" <no**********@p lanet.nl> wrote in message
news:O7******** ******@TK2MSFTN GP12.phx.gbl...

Tiraman this is the serialization part in my code

Dim bf As New Runtime.Seriali zation.Formatte rs.Binary.Binar yFormatter
dim mem As New IO.MemoryStream
bf.Serialize(me m, arraylst)
Dim myString as STring = Convert.ToBase6 4String(mem.ToA rray())

When I look at your code I see

Private client As TcpClient

Sub xxx(ByVal myArray As as Arraylist) ' passing it as arraylist

saves

casting

Dim sw As New IO.StreamWriter (client.GetStre am)
Dim bf As New BinaryFormatter

dim mem As New IO.MemoryStream
bf.Serialize(me m, myArray)
Dim myString as String =
Convert.ToBase6 4String(mem.ToA rray())
sw.Write(myStri ng)

sw.Flush()
sw.Close()

Than I think it can be something like this, not tried,

I hope this helps?

Cor