无法加载对象序列化类型.反序列化所需的串行

Question

我正在尝试序列化一个类，然后将其反序列化为第二个类，以模仿将来对类结构的添加，所以我正在尝试 Imlpement ISerializable

Imports System.IO
Imports System.Runtime.Serialization
Imports System.Runtime.Serialization.Formatters.Binary
<Serializable()> _
Public Class Serial
    Implements ISerializable

    Public Num1 As Integer
    Public Num2 As Integer
    Protected Sub New(ByVal Info As SerializationInfo, ByVal Context As StreamingContext)
        With Info
            Num1 = .GetInt32("Num1")
            Num2 = .GetInt32("Num2")
        End With
    End Sub
    Public Sub GetObjectData(info As System.Runtime.Serialization.SerializationInfo, context As System.Runtime.Serialization.StreamingContext) Implements System.Runtime.Serialization.ISerializable.GetObjectData
        With info
            .FullTypeName = "ObjectSerialization. Serial"
            .AddValue("Num1", Num1)
            .AddValue("Num2", Num2)
        End With
    End Sub
End Class
<Serializable()> _
Public Class Serial2
    Implements ISerializable

    Public Num1 As Integer
    Public Num2 As Integer
    Public Num3 As Integer
    Protected Sub New(ByVal Info As SerializationInfo, ByVal Context As StreamingContext)
        With Info
            Num1 = .GetInt32("Num1")
            Num2 = .GetInt32("Num2")
            Num3 = .GetInt32("Num3")
        End With
    End Sub

    Public Sub GetObjectData(info As System.Runtime.Serialization.SerializationInfo, context As System.Runtime.Serialization.StreamingContext) Implements System.Runtime.Serialization.ISerializable.GetObjectData
        With info
            .FullTypeName = "ObjectSerialization. Serial"
            .AddValue("Num1", Num1)
            .AddValue("Num2", Num2)
            .AddValue("Num3", Num3)
        End With
    End Sub
End Class

发生异常（无法加载对象序列化类型。反序列化需要串行），当我尝试在下面的代码中反序列化时。有人可以指出我正确的方向吗？

Dim s1 As New Serial
Dim s2 As New Serial2
s1.Num1 = 99
s1.Num2 = 500
Dim fs As New FileStream("DataFile.dat", FileMode.Create)
Dim formatter As New BinaryFormatter
Try
    formatter.Serialize(fs, s1)
Catch ex As SerializationException
    Console.WriteLine("Failed to serialize. Reason: " & ex.Message)
Finally
    fs.Close()
End Try
fs = New FileStream("DataFile.dat", FileMode.Open)
Try
    formatter = New BinaryFormatter
    s2 = formatter.Deserialize(fs)
Catch ex As SerializationException
    Console.WriteLine("Failed to deserialize. Reason: " & ex.Message)
    Throw
Finally
    fs.Close()
End Try
End Sub

Answer 1

您是否尝试过删除对象序列化中的空格。串行，只使用 ObjectSerialization.Serial ？

在此更改并添加公共无参数构造函数后，您的代码在我的机器上运行

您还可以执行以下操作：

Try
    formatter = New BinaryFormatter
    Dim tmp As Serial = formatter.Deserialize(fs)
    s2.Num1 = tmp.Num1
    s2.Num2 = tmp.Num2
Catch ex As SerializationException
    Console.WriteLine("Failed to deserialize. Reason: " & ex.Message)
    Throw
Finally
    fs.Close()
End Try

您可以使用如下所示的通用方法，而不是逐个复制属性：http://www.codeproject.com/Articles/173664/Copy-Properties-From-One-Object-To-Another

Answer 2

我可以s1 = formatter.Deserialize(fs)正常工作。 然而，s2 = formatter.Deserialize(fs)每次都失败。

Serial required for deserialization表示不能将对象 A 反序列化为对象 B（Serial 是关键字，指的是您的类名）。 MS 二进制序列化程序要求您反序列化为序列化数据的同一类区域性程序集对象。 当 MS 序列化时，类区域性程序集信息是二进制数据的一部分。有一些方法可以解决此问题，例如编写序列化服务（如在 DLL 中）和其他事情，但没有直接的方法。

如果您正在寻找一种数据交换序列化程序，请查看ProtoBuf-NET。 它既比MS快，又产生更小的输出（空字典从3000字节到300字节）。 PBN易于使用，并允许您执行帖子文本（de-serialize it to a second class）描述的操作。 事实上，语法几乎相同。

编辑

好的，我不确定在这种情况下"串行"指的是什么。 我更改了类名并得到相同的错误，因此它可能与接口的使用有关（这似乎是反序列化为不同类型对象的一种方法）。 当我尝试在 2 种类型之间交换数据时，消息给了我类似"myclass-english blah blah blah-myassembly"不能反序列化为"myclass2-english-blah blah blah-otherassembly"之类的东西。

啊哈！

将类更改为没有 ISerialize 的非常简单的类：

Public Class fromClass

Public Num1 As Integer
Public Num2 As Integer
Public Sub New()
End Sub
End Class

公共成员的工作方式与包裹在属性获取者/设置者中的工作相同（abd没有理由这不起作用）。 现在，当您尝试反序列化为 S2 时，会出现一条新消息： Unable to cast object of type 'WindowsApplication1.fromClass' to type 'WindowsApplication1.toCLass'.

可识别是模糊了问题。 您不能反序列化为其他内容。 查看输出文件的文本 - 类-区域性-程序集信息在那里（并且是原始错误消息的来源）。 我认为至少部分原因是反射用于序列化;如果它没有回到同一件事，它就不会尝试（尽管似乎使用界面应该有效）。另一个原因可能是安全性。 PBN更加智能和灵活，或多或少是围绕数据交换而设计的。