使用观察者模式的奇怪行为

Question

好的，所以我有一个读取另一个进程内存的应用程序。我最初有多个扫描线程来扫描我需要阅读的各个区域。这是处理器密集型的，所以我决定采用观察者模式。一切都很好，除了我的行为很奇怪。

这是正在发生的事情

我有 2 个雷达（覆盖和映射）两者都有一个附加到内存扫描仪的观察者类，并在新的怪物列表上收到通知。

所以我打开雷达 1（映射），它将其观察者附加到扫描仪并等待生物列表更新通知

打开雷达 2（覆盖）。同样的事情发生了，并且附加了另一个观察者。

到目前为止一切都很好 现在列表中有小怪的属性，其中之一是 IsFilteredOut。该属性在雷达代码收到列表后设置。

现在奇怪的行为是，无论我做什么，打开的第二个雷达都会改变两个雷达列表中生物的所有属性。就好像我正在通过 ref 传递列表，但我没有。实际上，每次传递列表时，我都会创建 moblist 类的一个新实例。

这是通知代码。正如您所看到的，我每次都会创建 moblist 类的一个新实例。

Private Sub NotifyMobListUpdated(ByVal Mobs As List(Of MobData))
    If Mobs IsNot Nothing Then
        For Each w As Watcher In _watchers
            If w.Type And WatcherTypes.MobList = WatcherTypes.MobList OrElse w.Type And WatcherTypes.All = WatcherTypes.All Then
                w.MobListUpdated(New MobList(Mobs))
            End If
        Next
    End If
End Sub

这是在 Watcher 类中处理它的地方。

''' <summary>
''' IWatcher MoblistUpdated Implementation
''' </summary>
''' <param name="Mobs">The Updated mob list</param>
''' <remarks></remarks>
Public Sub MobListUpdated(ByVal Mobs As MobList) Implements IWatcher.MobListUpdated
    Try
        PostNewMobList(Mobs)
    Catch ex As Exception
    End Try
End Sub

Public Sub PostNewMobList(ByVal Mobs As MobList)
    _sync.Post(New SendOrPostCallback(AddressOf OnNewMobList), Mobs)
End Sub

Private Sub OnNewMobList(ByVal state As Object)
    Dim mobs As MobList = TryCast(state, MobList)
    Try
        If mobs IsNot Nothing Then
            RaiseEvent NewMobList(mobs)
        End If
    Catch ex As Exception
    End Try
End Sub

这个错误让我发疯，任何帮助将不胜感激。

谢谢

Answer 1

实际上，每次传递列表时，我都会创建 moblist 类的一个新实例。

这只阻止列表更改，而不是列表元素。您还必须克隆元素对象。我对雷达和生物一无所知，您可能需要考虑使用“发送”而不是“邮寄”。