zoukankan      html  css  js  c++  java
  • Delphi中的观察者模式运用

    不知道从哪个版本开始,Delphi包含了一个System.Messaging单元,实现了观察者模式(也就是发布/订阅模式),运用于消息传递,极大方便了编程。

    提供了一个消息管理器TMessageManager,默认实现了一个DefaultManager.一般运用,直接用这个DefaultManager就够了,当然也可以自己实现。

    这里的消息可以包含任何东东,看看其消息定义:

      TMessage<T> = class (TMessage)
      protected
        FValue: T;
      public
        constructor Create(const AValue: T);
        destructor Destroy; override;
        property Value: T read FValue;
      end;


      TObjectMessage<T: class> = class(TMessage<T>)
      protected
        FOwnsObject: Boolean;
      public
        constructor Create(const AValue: T; AOwnsObject: Boolean = True);
        destructor Destroy; override;
      end;

    如果消息不是对象类型,用TMessage<T>就好,否则用TObjectMessage<T: class> ,比较方便,因为可以选择是不是自动释放(默认是自动释放的constructor Create(const AValue: T; AOwnsObject: Boolean = True);)

    运用中,定义消息类继承TMessage<T>或TObjectMessage<T: class> , 要处理消息的类订阅此消息,实现消息处理(回调)方法,格式是:

    procedure(const Sender: TObject; const M: TMessage)

    提供了2种实现,匿名方法和类方法:

      TMessageListener = reference to procedure(const Sender: TObject; const M: TMessage);
      TMessageListenerMethod = procedure (const Sender: TObject; const M: TMessage) of object;


    订阅方法是:

        function SubscribeToMessage(const AMessageClass: TClass; const AListener: TMessageListener): Integer; overload;
        function SubscribeToMessage(const AMessageClass: TClass; const AListenerMethod: TMessageListenerMethod): Integer; overload;

    发送消息的对象调用

        procedure SendMessage(const Sender: TObject; AMessage: TMessage); overload; inline;
        procedure SendMessage(const Sender: TObject; AMessage: TMessage; ADispose: Boolean); overload;

    ADispose参数指定是不是要自动释放,第一个方法是默认自动释放的。

    这里的实现和原来的WINDOW下的窗体类没关系了,可以直接在实例间传递,非常灵活方便。

    原来window下的消息内容常常用指针来传递,这下解脱了,因为这个消息管理器可以用于VCL和FMX。

    可以在基类窗体和基本业务类中声明一个属性

    TBaseForm = class(TForm)

    private

      FMessageManager: TMessageManager;

    public

      constructor Create(AOwner: TComponent); override;

      property MessageManager: TMessageManager read FMessageManager;

    .......

    end;

    .....


    TBaseForm .Create(AOwner: TComponent); 

    begin

      FMessageManager := TMessageManager.DefaultManager;

    end;

    TMessageManager.DefaultManager 是类属性,所以是单例实现的。

    Delphi帮助里带了一个简单的DEMO

  • 相关阅读:
    爬虫中动态的POST参数
    Sublime3注册码和安装中文包
    [pytorch][进阶之路]pytorch学习笔记二-自动求导和module
    [pytorch][进阶之路]pytorch学习笔记一
    [python][进阶之路]理解python中的深复制和浅复制
    [python][matlab]在python36上安装matlab2015b引擎
    [python][进阶之路]list复制引发的问题
    [python][pandas]DataFrame的基本操作
    [Algorithm]ADMM简明理解
    [python][cpp]对浮点数进行n位翻转
  • 原文地址:https://www.cnblogs.com/jankerxp/p/7774020.html
Copyright © 2011-2022 走看看