浅析.NET开发中代理模式的使用(外摘)

当我们需要使用的对象很复杂或者需要很长时间去构造，这时就可以使用代理模式(Proxy)。例如：如果构建一个对象很耗费时间和计算机资源，代理模式(Proxy)允许我们控制这种情况，直到我们需要使用实际的对象。一个代理(Proxy)通常包含和将要使用的对象同样的方法，一旦开始使用这个对象，这些方法将通过代理(Proxy)传递给实际的对象。 

　　 一些可以使用代理模式(Proxy)的情况： 

　　 1、一个对象，比如一幅很大的图像，需要载入的时间很长。 

　　 2、一个需要很长时间才可以完成的计算结果，并且需要在它计算过程中显示中间结果 

　　 3、一个存在于远程计算机上的对象，需要通过网络载入这个远程对象则需要很长时间，特别是在网络传输高峰期。 

　　 4、一个对象只有有限的访问权限，代理模式(Proxy)可以验证用户的权限 

　　 代理模式(Proxy)也可以被用来区别一个对象实例的请求和实际的访问，例如：在程序初始化过程中可能建立多个对象，但并不都是马上使用，代理模式(Proxy)可以载入需要的真正的对象。 

　　 这是一个需要载入和显示一幅很大的图像的程序，当程序启动时，就必须确定要显示的图像，但是实际的图像只能在完全载入后才可以显示！这时我们就可以使用代理模式(Proxy)。 

　　 这个代理模式(Proxy)可以延迟实际图像的载入，直到它接收到一个paint请求。在实际图像的载入期间我们可以通过代理模式(Proxy)在实际图像要显示的位置预先载入一个比较小、简单的图形。 

　　 图像Proxy代码： 

Public Class ImageProxy 

　 Private done As Boolean 
　 Private tm As Timer 

　 Public Sub New() 
　　 done = False 
　　 '设置timer 延迟5秒 
　　 tm = New Timer(New TimerCallback(AddressOf tCallback), Me, 5000, 0) 
　 End Sub 

　 Public Function isReady() As Boolean 
　　 Return done 
　 End Function 

　 Public Function getImage() As Image 
　　 Dim img As Imager 
　　 '显示预先的图像，直到实际图像载入完成 
　　 If isReady Then 
　　　 img = New FinalImage() 
　　 Else 
　　　 img = New QuickImage() 
　　 End If 

　　 Return img.getImage 
　 End Function 

　 Public Sub tCallback(ByVal obj As Object) 
　　 done = True 
　　 tm.Dispose() 
　 End Sub 
End Class 

　　 定义一个简单的接口： 

Public Interface Imager 
　 Function getImage() As image 
End Interface 

　　 实现接口： 

　　 预先载入的图像的类： 

Public Class QuickImage 

　 Implements Imager 
　 Public Function getImage() As Image Implements Imager.getImage 
　　 Return New bitmap("Box.gif") 
　 End Function 

End Class 

　　 载入实际图像的类： 

Public Class FinalImage 

　 Implements Imager 

　 Public Function getImage() As Image Implements Imager.getImage 
　　 Return New Bitmap("flowrtree.jpg") 
　 End Function 

End Class 

　　 在显示图像的窗体中,定义一个图像代理的(Proxy)实例，在载入图像按钮事件中，载入图像： 

Private imgProxy As ImageProxy 

　 Public Sub New() 

　　 MyBase.New 
　　 Form1 = Me 
　　 InitializeComponent 
　　 imgproxy = New ImageProxy() 
　 End Sub 

　 Protected Sub btLoad_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles btLoad.Click 

　 pic.Image = imgProxy.getImage 

End Sub