BaseClass + DerivedClass + Serialization - Dirty

我有一个BaseClass，其中有许多类派生。

简而言之：BaseClass提供功能（方法）和派生类使用Properties扩展它。

其中一个（基本）功能是（De）序列化对象。


反序列化在BaseClass中执行>
朋友函数PerformDeserialization（ByVal path As String，ByVal user as String）As Object

Debug.WriteLine（" Settings.BaseSettings.PerformDese rialization"）

如果不是path.EndsWith（" \"）那么路径+ =" \"

如果用户是Nothing那么user = Me.ProductFamily

Dim cls As Object

如果File.Exists（路径+用户+ FilePrefix + CallerClass +" .xml"）= True则

Dim srFile As StreamReader = New StreamReader（ path + user + FilePrefix + CallerClass +" .xml"）

Dim t As Type

Dim pi As PropertyInfo（）

Dim p如PropertyInfo

尝试

xmlSerializer =新的Xml.Serialization.XmlSerializer（Me.GetType（））

cls = xmlSerializer.Deserialize（srFile）

t = cls.GetType

pi = t.GetProperties（）

每个p in pi

如果p。 PropertyType.Equals（GetType（System.String））然后

p.SetValue（cls，Crypto.DecryptString（CType（p.GetValue（cls，Nothing），String）），Nothing）

结束如果

下一页

Catch ex As Exception

Debug.WriteLine（ex.ToString）：Beep（）

最后

srFile.Close（）

结束尝试

否则

Dim ClassType As Type = Me.GetType（）

cls = Activator.CreateInstance（ClassType，True）

结束如果

InstanceHashCode = cls.GetHashCode

InstanceCreated = True

MarkClean（cls）

返回cls

结束功能

An对象由派生类中的属性集标记为DIRTY。 （例如）

私有_connectionName为字符串

公共属性ConnectionName（）为字符串

获取

返回_connectionName

结束获取

设置（ByVal值为字符串）

Debug.WriteLine（" Settings.TestData.Set_ConnectionN ame）

如果_connectionName = Value则退出物业

_connectionName =价值：MarkDirty（我）

结束集

结束物业>
序列化通过Public-Method''Object''调用.Stosist。

在Sub我检查Flag IsDirty（BaseClass中的函数）以确定Object *是否应该*是否已序列化。

私有mIsDirty为布尔值= False

公共可覆盖ReadOnly属性IsDirty（）为布尔值

获取

返回mIsDirty

结束获取

结束财产


问题是反序列化后（我叫了MarkClean（cls） ））所有属性似乎都被重新设置（所以他们Mar kDirty再次）。这导致我的对象总是很脏。我似乎无法有效地在MarkClean中找到一个Point（在（基础）类内）。


我的猜测是这是序列化行为。


有没有人有任何想法？


TIA，


Michael

Hi,

I have a BaseClass from which many Classes Derive.
In short: the BaseClass provides the functionalities (Methods) and the Derived Classes extend it with Properties.
One of the (Base) Functionalities is to (De)Serialize the Objects.

Deserialization is performed in the BaseClass
Friend Function PerformDeserialization(ByVal path As String, ByVal user As String) As Object
Debug.WriteLine("Settings.BaseSettings.PerformDese rialization")
If Not path.EndsWith("\") Then path += "\"
If user Is Nothing Then user = Me.ProductFamily
Dim cls As Object
If File.Exists(path + user + FilePrefix + CallerClass + ".xml") = True Then
Dim srFile As StreamReader = New StreamReader(path + user + FilePrefix + CallerClass + ".xml")
Dim t As Type
Dim pi As PropertyInfo()
Dim p As PropertyInfo
Try
xmlSerializer = New Xml.Serialization.XmlSerializer(Me.GetType())
cls = xmlSerializer.Deserialize(srFile)
t = cls.GetType
pi = t.GetProperties()
For Each p In pi
If p.PropertyType.Equals(GetType(System.String)) Then
p.SetValue(cls, Crypto.DecryptString(CType(p.GetValue(cls, Nothing), String)), Nothing)
End If
Next
Catch ex As Exception
Debug.WriteLine(ex.ToString) : Beep()
Finally
srFile.Close()
End Try
Else
Dim ClassType As Type = Me.GetType()
cls = Activator.CreateInstance(ClassType, True)
End If
InstanceHashCode = cls.GetHashCode
InstanceCreated = True
MarkClean(cls)
Return cls
End Function
An object is marked DIRTY by the Set of the Properties in the Derived Classes. (eg)
Private _connectionName As String
Public Property ConnectionName() As String
Get
Return _connectionName
End Get
Set(ByVal Value As String)
Debug.WriteLine("Settings.TestData.Set_ConnectionN ame")
If _connectionName = Value Then Exit Property
_connectionName = Value : MarkDirty(Me)
End Set
End Property
Serialization is called through the Public-Method ''Object''.Persist.
In that Sub I check the Flag IsDirty (Function in BaseClass) to determine if the Object *should* be Serialized or not.
Private mIsDirty As Boolean = False
Public Overridable ReadOnly Property IsDirty() As Boolean
Get
Return mIsDirty
End Get
End Property

The problem is that after Deserialization (I have Called MarkClean(cls)) all the properties seem to be re-Set (So they MarkDirty again). This is causing my Objects to be Always dirty. I can''t seem to find a Point (within the (base)Class) to MarkClean effectively.

My guess is that this is Serialization-Behavior.

Does anyone have any ideas?

TIA,

Michael