BinaryFormatter.Serialize 与 MemoryStream 问题

Question

我在使用 BinaryFormatter.Serialize 时遇到问题。

我有一个通用扩展方法来通过二进制序列化“克隆”对象：

<Extension()>
Public Function CloneViaSerialization(ByRef Obj as System.Object)
   Dim NewObj As System.Object
   Using MS As New System.IO.MemoryStream
      Dim Formatter as New BinaryFormatter
      Formatter.Serialize(MS, Obj)
      Debug.WriteLine("MS LENGTH = " & MS.Length)
      MS.Position = 0
      NewObj = Formatter.Deserialize(MS)
   End Using
   Return NewObj
End Function

我还有一个名为“Mode”的类，它有一个“克隆”方法，如下所示：

Friend Function Clone()
   Dim NewMode as Mode = Me.CloneViaSerialization
   Return NewMode
End Function

在我的 GUI 中，我有一个函数允许选定的 Mode 对象被克隆。用户输入一系列新模式名称，例程会循环使用这些新名称，创建所选模式的克隆：

Private Sub MakeClones(ByRef ModeToClone as Mode, ByVal CloneNames as List(Of String))
   For Each CloneName as String in CloneNames
      Dim NewMode as Mode = ModeToClone.Clone
      NewMode.Name = CloneName
      ParentObject.Modes.Add(NewMode)
   Next
End Sub

因此，基本上应该创建所选模式对象的一个​​或多个克隆，将 Name 属性设置为正确的值，并且添加到父对象的新模式对象。这涉及对 Mode.Clone 方法的 X 次调用，以及对 CloneViaSerialization 扩展方法的 X 次调用。

这是我的问题。在多次调用 CloneViaSerialization 期间，MemoryString 长度（如 Debug.WriteLine 语句中显示）几乎是前一次调用的两倍。例如，制作五个克隆，调试输出为：

MS 长度 = 106882 MS 长度 = 188048 MS 长度 = 350482 MS 长度 = 675350 MS 长度 = 1325086

这是令人窒息的性能。超过 7 或 8 个克隆就会导致应用程序停止运行。为什么会出现这种情况呢？ USING 块应该确保 MemoryString 被释放，对吧？不应该每次都创建一个新的MemoryString吗？我认为由于相同的原始 Mode 对象是序列化的源，因此 MemoryString 长度将是相同的。有什么想法吗？我在这里缺少什么？

提前致谢！

Answer 1

我不确定为什么您的 CloneViaSerialization 消耗大量内存，您发布的代码对我来说似乎没问题（尽管一种可能的解释可能是被克隆的数据很大）。另一种方法是仅在 Mode 类上实现 ICloneable 并设置 Clone 函数来执行对象的深层复制。

Public Class Mode 
    Implements ICloneable

    Private m_Prop1 As String
    Public Property Prop1() As String
        Get
            Return m_Prop1
        End Get
        Set
            m_Prop1 = Value
        End Set
    End Property

    Private m_Prop2 As Int16
    Public Property Prop2() As Int16
        Get
            Return m_Prop2
        End Get
        Set
            m_Prop2 = Value
        End Set
    End Property

    Private m_Prop3 As List(Of Int16)
    Public Property Prop3() As List(Of Int16)
        Get
            Return m_Prop3
        End Get
        Set
            m_Prop3 = Value
        End Set
    End Property

    Public Function Clone() As Object Implements ICloneable.Clone
        Dim objClone as Mode
        objClone = MemberwiseClone()
        If Not Me.Prop3 Is Nothing Then
            objClone.Prop3 = new List(Of Int16)
            objClone.Prop3.AddRange(Me.Prop3)
        End If
        Return objClone
    End Function

End Class

请注意，在Clone函数中，我们需要对List(Of Int16)进行单独的复制。 MemberwiseClone 会将引用复制到它创建的新对象中，因此，如果我们不创建新的 List(Of Int16) 并手动复制其中的值，那么我们就会结束并引用克隆中的原始列表。

我还应该指出，有些人可能在实现 ICloneable 并让它执行深复制时遇到问题，因为 MemberwiseClone 只执行浅复制。如果这让您感到困扰，那么您可以随时将 Clone 重命名为 DeepClone 并删除 ICloneable 接口。

希望有帮助。