|
Dim FS As New System.IO.FileStream("c:\test.txt", IO.FileMode.Create)
接着调用BinFormatter的Serialize方法序列化任何可以序列化的framework对象：
R = New Rectangle(rnd.Next(0, 100),rnd.Next(0, 300), _
rnd.Next(10, 40),rnd.Next(1, 9))
BinFormatter.Serialize(FS, R)
加一个Serializable属性使得自定义的对象可以序列化
<Serializable()> Public Structure Person
Dim Name As String
Dim Age As Integer
Dim Income As Decimal
End Structure
下面代码创建一个Person对象实例，然后调用BinFormatter的Serialize方法序列化自定义对象：
P = New Person()
P.Name = "Joe Doe"
P.Age = 35
P.Income = 28500
BinFormatter.Serialize(FS, P)
你也可以在同一个Stream中接着序列化其他对象，然后以同样的顺序读回。例如，在序列化Person对象之后接着序列化一个Rectangle对象：
BinFormatter.Serialize(FS, New Rectangle(0, 0, 100, 200))
创建一个BinaryFormatter对象，调用其Deserialize方法，然后把返回的值转化为正确的类型，就是整个反序列化过程。然后接着发序列化Stream的其他对象。
假定已经序列化了Person和Rectangle两个对象，以同样的顺序，我们反序列化就可以得到原来的对象：
Dim P As New Person()
P = BinFormatter.Serialize(FS, Person)
Dim R As New Rectangle
R = BinFormatter.Serialize(FS, Rectangle)
Persisting Collections
集合的存储
大多数程序处理对象集合而不是单个的对象。对于集合数据，首先创建一个数组（或者是其他类型的集合，比如ArrayList或HashTable），用对象填充，然后一个Serialize方法就可以序列化真个集合，是不是很简单？下面的例子，首先创建一个有两个Person对象的ArrayList，然后序列化本身：
Dim FS As New System.IO.FileStream _
上一页 [1] [2] [3] [4] 下一页
[VB.NET程序]把握VB.NET中的流(Stream) (二) [VB.NET程序]把握VB.NET中的流(Stream) (一)
[Delphi程序]variant 和 Stream 的互換 [Web开发]用ADODB.Stream代替FSO读取文本文件
[Web开发]使用XMLHttp和ADODB.Stream取得远程文件并保存到本… [Web开发]ASP中利用ADODB.Stream对象将字节流转换为字符流
[Web开发]用Adodb.Stream将以二进制方式保存在数据库中的文… [Web开发]利用adodb.stream直接下载任何后缀的文件(防盗链)
[Web开发]adodb Stream 详细用法 [Web开发]关于Adodb.Stream的写数据库数据到客户端文件的实…
| 
注：本站部分文章源于互联网，版权归原作者所有！如有侵权，请原作者与本站联系，本站将立即删除！ 本站文章除特别注明外均可转载，但需注明出处！ [MinTao学以致用网] 
