.NET序列化技术全解析
1. 解决非序列化委托和事件问题
在序列化过程中，事件和委托指向非序列化类型可能会引发问题。为了解决这个问题，可以使用自定义方法替代标准的FormatterServices.GetSerializableMembers。
' Récupère la liste des membres sérialisables d’un type, à l’exception des délégués. Function GetSerializableMembersEx(ByVal type As Type) As MemberInfo() Dim list As New List(Of MemberInfo) For Each mi As MemberInfo In FormatterServices.GetSerializableMembers(type) ' Ajoute cet élément au résultat s’il ne s’agit pas d’un délégué. Dim fi As FieldInfo = TryCast(mi, FieldInfo) If fi IsNot Nothing And Not _ GetType([Delegate]).IsAssignableFrom(fi.FieldType) Then list.Add(mi) End If Next Return list.ToArray() End Fun
