代理模式

代理模式:给某一对象提供代理对象,并由代理对象控制具体对象的引用《GOF设计模式》。

其实，我们一定要仔细理解代理二字，现实生活中，很多这样的例子，包括 如代理商，生产商和使用用户 间 有一个代理商。有人说，这不是多此一举。其实，有一个中介媒介，在具体的对象设计中，是很有弹性的。

  一个公共接口，这个公共接口，必须被代理类和实际工作类 实现。就是说，外界只知道到代理类，而不知道实际工作类的存在。而代理类，在实现的公共接口中，是要调用实际工作的方法，就是说，对工作类的一个引用。COM、COM+很多类似这样的实现模式。

 

现在，简单用Delphi代码进行实现。

 

unit Proxy;
  {代理模式：在实际使用过程中，让下面这两个类实现 每一个公共接口，这样更灵活}
interface
type

    {实际业务工作类}
  TRemoteBusiness = class
  public
    function F1: string;
    function F2: string;
  end;

  {代理类}
  TProxy = class
  private
    FRemoteBusinessObj: TRemoteBusiness;
  public
    function F1: string;
    function F2: string;
    constructor create;
    destructor Destroy; override;
  end;

implementation

{ TProxy }



constructor TProxy.create;
begin
  FRemoteBusinessObj := TRemoteBusiness.Create;
end;

destructor TProxy.Destroy;
begin
  FRemoteBusinessObj.Free;
  inherited;
end;

function TProxy.F1: string;
begin
  result := FRemoteBusinessObj.F1;
end;

function TProxy.F2: string;
begin
  result := FRemoteBusinessObj.F2;
end;

{ TRemoteBusiness }

function TRemoteBusiness.F1: string;
begin
  result := 'F1 function is Called';
end;

function TRemoteBusiness.F2: string;
begin
  result := 'F2 function is Called';
end;

end.

 

{调用}

 

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;

type
  TForm1 = class(TForm)
    Button1: TButton;
    Memo1: TMemo;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

uses Proxy;

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
var
  Proxy: TProxy;
begin
  Proxy := TProxy.create;
  try
    Memo1.Lines.Clear;
    Memo1.Lines.Add(Proxy.F1);
    Memo1.Lines.Add(Proxy.F2);
  finally
    proxy.Free;
  end;    
end;

end.

 

 

 

{frm文件}

 

object Form1: TForm1
  Left = 291
  Top = 136
  Width = 422
  Height = 209
  Caption = 'Form1'
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  PixelsPerInch = 96
  TextHeight = 13
  object Button1: TButton
    Left = 240
    Top = 120
    Width = 75
    Height = 25
    Caption = 'Button1'
    TabOrder = 0
    OnClick = Button1Click
  end
  object Memo1: TMemo
    Left = 16
    Top = 16
    Width = 297
    Height = 89
    Lines.Strings = (
      'Memo1')
    TabOrder = 1
  end
end