ContextBoundObject:代码暗处有玄机

Author:水如烟

MSDN帮助文档如是说:
ContextBoundObject 类
定义所有上下文绑定类的基类。

备注

驻留在上下文中并要绑定到上下文规则的对象称为上下文绑定对象。上下文是用于定义对象集合所驻留的环境的属性集或用法规则集。当对象进入或离开上下文时，规则被强制。非上下文绑定的对象称为灵活对象。

上下文在对象激活期间创建。新对象被放置到现有上下文或新的上下文中，后者是通过元数据类型中包含的属性创建的。使用提供用法规则的 ContextAttribute 标记上下文绑定类。可以添加的上下文属性包括有关同步和事务的策略。

ContextAttribute 类
该类型支持 .NET Framework 结构，因此不适用于直接从代码中使用。

那是说,用ContextAttribute标记的继承了ContextBoundObject的类，有自身的规则。继承了ContextBoundObject的类，不晓得在哪处会另有玄机，不要轻信代码本身表现的逻辑。

这里用个例子来说说。

一个会场，一个通道，门卫只对名字有“8”的人放行。
假设名字为Guest000，Guest001，...，Guest099共100人尝试进场，最后到了会场的有什么人。

为此,一般的,建一个MeetingPlace项目,输出为Dll,有以下三个文件:
User.vb

Public Class User
    Private _Name As String = "guest"
    Private _Valid As Boolean = False

    Public Property Name() As String
        Get
            Return _Name
        End Get
        Set(ByVal value As String)
            _Name = value
        End Set
    End Property

    Public Sub SetValid(ByVal valid As Boolean)
        Me._Valid = valid
    End Sub

    Public ReadOnly Property Valid() As Boolean
        Get
            Return _Valid
        End Get
    End Property

    Public Overrides Function ToString() As String
        Return String.Format("{0}:{1} valid", Name, IIf(Valid, "", "not"))
    End Function
End Class

通道和门卫(放行规则)
Passage.vb

Public Class Passage

    Public Sub Check(ByVal user As User)
        If user.Name.IndexOf("8") <> -1 Then
            user.SetValid(True)
        End If
    End Sub
End Class

进场情形
Center.vb

Public Class Center
    Private ValidUserList As List(Of User)
    Private passage As Passage

    Sub New()
        ValidUserList = New List(Of User)
        passage = New Passage
    End Sub


    Public Sub test()
        Dim mUser As User
        For i As Integer = 0 To 99
            mUser = New User
            mUser.Name = "Guest" & i.ToString.PadLeft(3, "0")
            Me.Guard(mUser)
        Next
    End Sub

    Public Sub Guard(ByVal user As User)

        passage.Check(user)

        If user.Valid Then
            ValidUserList.Add(user)
        End If

    End Sub

    Public ReadOnly Property ValidUsers() As User()
        Get
            Return ValidUserList.ToArray
        End Get
    End Property

End Class

现在引用这个Dll使用它，结果肯定与预测相符：

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim mCenter As New MeetingPlace.Center
        mCenter.test()
        Me.ListBox1.DataSource = mCenter.ValidUsers
    End Sub

但是,如果放行规则文件Passage.vb是这样:

Imports LzmTW.uRemoting.MethodWatcher

<SimpleMethodWatcher()> <SimpleMethodWatcherAppend()> _
Public Class Passage
    Inherits ContextBoundObject

    Public Sub Check(ByVal user As User)
        If user.Name.IndexOf("8") <> -1 Then
            user.SetValid(True)
        End If
    End Sub
End Class

就继承了ContextBoundObject，加了两个标志，这样还能保证进场的人与预测相符吗？不能了。有可能全部进了场，有可能一个不能进，有可能Guest007也进去了，还有可能通道给封闭了，一验就发生异常。总之，充满了不可预测性，玄得很哪。

关于SimpleMethodWatcher和SimpleMethodWatcherAppend见MethodWather。文的最后也有全部代码下载。

那样做后，生成了Dll.

在引用使用这个dll 时，我可以这样来实现新的规则。而这个规则不再理睬原先的Check了。
MyGuard.vb

Imports LzmTW.uRemoting.MethodWatcher
Imports System.Runtime.Remoting.Messaging

Public Class MyGuard
    Inherits MethodWatcherCenter


    Private _pass As PassType
    Public WriteOnly Property Pass() As PassType
        Set(ByVal value As PassType)
            _pass = value
        End Set
    End Property

    Public Sub Ready()
        Remove()
        AddHandler MethodCallBegin, AddressOf WriteMethodCallBegin
        AddHandler MethodCallOver, AddressOf WriteMethodCallOver
    End Sub

    Public Sub Remove()
        RemoveHandler MethodCallBegin, AddressOf WriteMethodCallBegin
        RemoveHandler MethodCallOver, AddressOf WriteMethodCallOver
    End Sub

    Protected Overridable Sub WriteMethodCallBegin(ByVal callMsg As IMethodCallMessage, ByVal MethodAppendType As System.Type)
        If MethodAppendType.Equals(GetType(SimpleMethodWatcherAppendAttribute)) Then
            Dim mUser As MeetingPlace.User = CType(callMsg.GetArg(0), MeetingPlace.User)
            Select Case _pass
                Case PassType.Normal
                Case PassType.All
                    mUser.SetValid(True)
                Case PassType.None
                Case PassType.Let007in
                    If mUser.Name = "Guest007" Then
                        mUser.Name = "8" & mUser.Name
                    End If
                Case PassType.Exception
                    Throw New Exception
            End Select
        Else

        End If

    End Sub

    Protected Overridable Sub WriteMethodCallOver(ByVal replyMsg As IMethodReturnMessage, ByVal MethodAppendType As System.Type)
        If MethodAppendType.Equals(GetType(SimpleMethodWatcherAppendAttribute)) Then
            Dim mUser As MeetingPlace.User = CType(replyMsg.GetArg(0), MeetingPlace.User)
            Select Case _pass
                Case PassType.Normal
                Case PassType.All
                Case PassType.None
                    mUser.SetValid(False)
                Case PassType.Let007in
                    If mUser.Name = "8Guest007" Then
                        mUser.Name = mUser.Name.Substring(1)
                    End If
                Case PassType.Exception
            End Select
        Else

        End If
    End Sub
End Class

Public Enum PassType
    Normal
    All
    None
    Let007in
    Exception
End Enum

界面代码:

Public Class Form1
    Private myGuard As New MyGuard

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim mCenter As New MeetingPlace.Center
        mCenter.test()
        Me.ListBox1.DataSource = mCenter.ValidUsers
    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        myGuard.Ready()
    End Sub

    Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
        myGuard.Remove()
    End Sub

    Private Sub ComboBox1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ComboBox1.SelectedIndexChanged
        myGuard.Pass = CType([Enum].Parse(GetType(PassType), Me.ComboBox1.Text), PassType)
    End Sub

    Private Sub Form1_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
        Me.ComboBox1.DataSource = [Enum].GetNames(GetType(PassType))
    End Sub
End Class

全部代码下载