这是你想要的吗？


Dim binF As New BinaryFormatter

Dim writer As New IO.StreamWriter（ System.Net.Sockets.TcpClient.GetSt ream）

binF.Serialize（writer，myArray）


Lance

Is this what you want?

Dim binF As New BinaryFormatter
Dim writer As New IO.StreamWriter(System.Net.Sockets.TcpClient.GetSt ream)
binF.Serialize(writer, myArray)

Lance

是的，


但这是我尝试过的，因为

BinaryFormatter.Serialize，它对我没用不接受一个StreamWriter :)


你知道实现这种操作的其他方法吗？


" ljlevend" < LJ ****** @ discussions.microsoft.com>在消息中写道

news：42 ********************************** @ microsof t.com ...

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******@discussions.microsoft.com> wrote in message
news:42**********************************@microsof t.com...

这是你想要的吗？

Dim binF As New BinaryFormatter
Dim writer As New IO.StreamWriter（System.Net.Sockets .TcpClient.GetSt ream）
binF.Serialize（作家，myArray）

Lance

Is this what you want?

Dim binF As New BinaryFormatter
Dim writer As New IO.StreamWriter(System.Net.Sockets.TcpClient.GetSt ream)
binF.Serialize(writer, myArray)

Lance

Hi Tiraman，


这个我曾经做过的样本应该为你做的工作。


我希望这有帮助吗？


$

\\\

Private Sub Form1_Load（ByVal sender _

As Object，ByVal e As System.EventArgs）处理MyBase.Load

Dim a As New ArrayList

a.Add（" I"）

a.Add （希望）

a.Add（" this"）

a.Add（&help？"）

Dim b As String = SerializeArraylist（a）

MessageBox.Show（b）

Dim c As ArrayList = DeserializeArraylist（b）

结束S. ub

私人函数SerializeArraylist（ByVal _

arraylst As ArrayList）As String

Dim bf As New

运行时.Serialization.Formatters.Binary.BinaryForm atter

Dim mem As New IO.MemoryStream

bf.Serialize（mem，arraylst）

返回转换.ToBase64String（mem.ToArray（））

结束函数

私函数DeserializeArraylist（ByVal _

arraystring As String）As ArrayList

Dim bf As New

Runtime.Serialization.Formatters.Binary.BinaryForm atter

Dim mem As New

IO.MemoryStream （Convert.FromBase64String（arraystri ng））

返回DirectCast（bf.Deserialize（mem），ArrayList）

结束函数

///

Hi Tiraman,

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

I hope this helps?

Cor

\\\
Private Sub Form1_Load(ByVal sender _
As Object, ByVal e As System.EventArgs) Handles MyBase.Load
Dim a As New ArrayList
a.Add("I ")
a.Add("hope ")
a.Add("this ")
a.Add("helps?")
Dim b As String = SerializeArraylist(a)
MessageBox.Show(b)
Dim c As ArrayList = DeserializeArraylist(b)
End Sub
Private Function SerializeArraylist(ByVal _
arraylst As ArrayList) As String
Dim bf As New
Runtime.Serialization.Formatters.Binary.BinaryForm atter
Dim mem As New IO.MemoryStream
bf.Serialize(mem, arraylst)
Return Convert.ToBase64String(mem.ToArray())
End Function
Private Function DeserializeArraylist(ByVal _
arraystring As String) As ArrayList
Dim bf As New
Runtime.Serialization.Formatters.Binary.BinaryForm atter
Dim mem As New
IO.MemoryStream(Convert.FromBase64String(arraystri ng))
Return DirectCast(bf.Deserialize(mem), ArrayList)
End Function
///

我有一个StreamWriter，它包含一个System.Net.Sockets.NetwrokStream
和StreamWriter对象保持一个ArrayList，我希望序列化并通过
Stre将其发送回客户端amWriter.Flush（）
Dim writer As New IO.StreamWriter（System.Net.Sockets.TcpClient.GetSt ream）

writer.Write（myArray）

Dim binF作为新的BinaryFormatter

如何序列化它？

谢谢！

T :-)

i have a StreamWriter that hold a System.Net.Sockets.NetwrokStream
and the StreamWriter Object Hold An ArrayList which
i would like to Serialize And Send it back to the client via the
StreamWriter.Flush()
Dim writer As New IO.StreamWriter(System.Net.Sockets.TcpClient.GetSt ream)

writer.Write(myArray)

Dim binF As New BinaryFormatter

how can i Serialize it ?

Thanks!

T:-)