《GOF设计模式》—代理（PROXY）—Delphi源码示例：代理接口

示例：代理接口

说明：

（1）、定义

为其他对象提供一种代理以控制对这个对象的访问。

（2）、结构

这是运行时刻一种可能的代理结构的对象图。

 

 

对象：

Subject：定义RealSubject和Proxy的共用接口，这样就在任何使用RealSubject的地方都可以使用Proxy。

RealSubject：定义Proxy所代表的实体。

代理：

Proxy：保存一个引用使得代理可以访问实体。若RealSubject和Subject的接口相同，Proxy会引用Subject。提供一个与Subject的接口相同的接口，这样代理就可以用来替代实体。控制对实体的存取，并可能负责创建和删除它。

其他功能依赖于代理的类型：

.Remote Proxy负责对请求及其参数进行编码，并向不同地址空间中的实体发送已编码的请求。

.Virtual Proxy可以缓存实体的附加信息，以便延迟对它的访问。例如，动机一节中提到的ImageProxy缓存了图像实体的尺寸。

.Protection Proxy检查调用者是否具有实现一个请求所必需的访问权限。

代码：

unit uProxy;

 

interface

 

uses

    Dialogs;

 

type

    TSubject = class

    public

        procedure Request; virtual; abstract;

    end;

    TRealSubject = class(TSubject)

    public

        procedure Request; override;

    end;

    TProxy = class(TSubject)

    private

        FSubject: TSubject;

    public

        constructor Create;

        destructor Destroy; override;

        //---

        procedure Request; override;

    end;

 

implementation

 

procedure TRealSubject.Request;

begin

    ShowMessage('RealSubject');

end;

 

constructor TProxy.Create;

begin

    FSubject := nil;

end;

 

destructor TProxy.Destroy;

begin

    if assigned(FSubject) then

        FSubject.Free;

    //---

    inherited;

end;

 

procedure TProxy.Request;

begin

    if not assigned(FSubject) then

        FSubject := TRealSubject.Create;

    //---

    FSubject.Request;

end;

 

end.

 

procedure TForm1.Button1Click(Sender: TObject);

var

    ASubject: TSubject;

begin

    ASubject := TProxy.Create;

    ASubject.Request;

    ASubject.Free;

end;