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