ContextBoundObject:代码暗处有玄机

原创 2006年06月03日 14:19:00

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 ObjectByVal e As System.EventArgs) Handles Me.Load
        
Me.ComboBox1.DataSource = [Enum].GetNames(GetType(PassType))
    
End Sub
End Class


全部代码下载
 

版权声明:本文为博主原创文章,未经博主允许不得转载。

相关文章推荐

(191)明暗处理

明暗处理函数支持特殊的明暗处理操作,例如模糊明暗处理以及调整反射高光形状。 明暗处理函数 以下是“明暗处理”类别下所有函数的列表。 FuzzyShading(模糊明暗处理) 此...

.Net AOP(三)继承ContextBoundObject方式

.Net AOP(三)继承ContextBoundObject方式 AopAttribute   [AttributeUsage(AttributeTargets.Class, AllowMultip...

OpenGL开启Gouraud明暗处理,减少马赫夫效应

在我们建立三维模型的过程中,当用多边形网格或者是三角面片来近似的表示曲面的表面时,曲面被离散成许多的平面多边形,如果我们的网格较大,离散度较粗,在模型表面使用明暗处理后,两两相邻的多边形会出现凸起或者...

C# 多线程Synchronization和ContextBoundObject应用

C#处理多线程可以说是方式多种多样,多到你都不知道选择那个好,直到Task的出现,Task类的灵活机制和极为优美的写法让所有.net开发者眼前一亮,但是今天我们要说一说一个冷门的多线程安全处理机制,S...

AUTOCAD 玄机

  • 2010-11-20 18:41
  • 1.11MB
  • 下载

HR问何时能来公司报道,此问题暗藏玄机

   如果应聘者给公司留下很好的印象,或者还在公司考虑范围之内,公司一定会问这样的问题。这个问题已经是让你接近成功的问题了,不过有时候越是在最后关头,越要小心地应对。      在职者...

这些信号暗藏玄机,不知道要吃大亏!

跳槽时,我们可能需要面对自己不熟悉的行业领域及公司。为了能给面试官一个良好的印象,为了能让自己顺利地谋求到一份自己满意的工作,我们通常都会在事前或是事后进行相关的准备或调查,从公司的官方网站、行业的专...

BizTalk 2010看似简单的LOB OracleDB Adapter暗藏玄机-Oralce Client 32位与64位

最近有微博的朋友问到了一些关于BizTalk与OracleDB集成方面的问题,经过测试之后得出以下结论,并在此将其分享之。在我测试的过程中,想到了暗藏玄机这个词,其实就是想说明我们平时在做一件看似简单...
内容举报
返回顶部
收藏助手
不良信息举报
您举报文章:深度学习:神经网络中的前向传播和反向传播算法推导
举报原因:
原因补充:

(最多只允许输入30个字)