当我们编写AE程序时，通常会遇到需要存储某个AE对象的情况，

比如Layer，Element，Map，Legend，NorthArrow等等这些

举个例子说明一下：在我们编辑Featurelayer时，我们可以容易的将Feature存储在Featureclass中，

同样，如果我们向Graphicscontainer中添加了Element，我们也希望可以容易的存储Element

这样每次加载时可以将Element顺利显示出来，但是不巧的是，AE中并没有提供存储Element的方法

这个时候，我们就需要将Graphicscontainer序列化成文件，这样就可以达到存储的目的了

要知道，Featureclass存储成shapefile也好，Geodatabase也罢，都是一种文件的组织形式，也都是一种特殊意义上的序列化。

好，下面，介绍序列化的方法：

首先可以序列化的对象必须实现了IPersistStream接口，

其中IPersistStream接口是Windos中的接口，派生自 IPersist，并增加了4个函数，从流(IStream)中读写组件属性信息。

下面是各个函数的意义：

AE中用下面两个函数即可实现对象的序列化，说明已经写的很清楚了，一目了然啊。

这个是我做的序列化Layer的例子，大家可以下载使用(VB.Net)/Files/wall/TestESRIStream.rar

''' <summary>
''' 将AE中实现了IPersistStream接口的对象序列化为二进制文件
''' </summary>
''' <param name="pObject">对象</param>
''' <param name="pFilePath">文件名全路径(形如：“C:/file.blb”)</param>
''' <remarks></remarks>
Sub WriteObject(ByVal pFilePath As String,ByVal pObject As Object)
If Not TypeOf pObject Is IPersistStream Then
MessageBox.Show("该对象不支持序列化!","提示",MessageBoxButtons.OK,MessageBoxIcon.Information)
Exit Sub
End If
Dim pMemoryBlobStream As IMemoryBlobStream = New MemoryBlobStream
Dim pObjectStream As IObjectStream = New ObjectStream
pObjectStream.Stream = pMemoryBlobStream
Dim pPersistStream As IPersistStream = pObject
pPersistStream.Save(pObjectStream,True)
Try
pMemoryBlobStream.SaveToFile(pFilePath)
Catch ex As Exception
MessageBox.Show("序列化文件路径不合法!",MessageBoxIcon.Information)
End Try
End Sub
''' <summary>
''' 从序列化文件中读取对象(反序列化)
''' </summary>
''' <param name="pObject">对象</param>
''' <param name="pFilePath">文件名全路径(形如：“C:/file.blb”)</param>
''' <remarks></remarks>
Sub ReadObject(ByVal pFilePath As String,ByRef pObject As Object)
If Not TypeOf pObject Is IPersistStream Then
MessageBox.Show("该对象不支持序列化!",MessageBoxIcon.Information)
Exit Sub
End If
If Not System.IO.File.Exists(pFilePath) Then
MessageBox.Show("序列化文件不存在!",MessageBoxIcon.Information)
Exit Sub
End If
Dim pMemoryBlobStream As IMemoryBlobStream = New MemoryBlobStream
pMemoryBlobStream.LoadFromFile(pFilePath)
Dim pObjectStream As IObjectStream = New ObjectStream
pObjectStream.Stream = pMemoryBlobStream
Dim pPersistStream As IPersistStream = pObject
pPersistStream.Load(pObjectStream)
End Sub

来自：http://www.cnblogs.com/wall/archive/2009/02/26/1398447.html