【Delphi】中使用消息Messages（四）RTL 消息演示

Demo演示（RTL部分）的功能包括：

 

1. 消息的订阅（SubscribeToMessage）
2. 消息退订（Unsubscribe）
3. 消息处理方法的三种实现方式（内嵌、对象方法、普通过程）
4. 发送消息（普通文本、记录）
5. 多个订阅同一个消息

特别说明：

为了演示方便，所有功能集成在一个Form中，包括发送和接收消息等。实际使用中大多是在不同的单元（Form）间进行通信的！另外为了方便使用的是VCL框架，事实上除了windows消息外，都是可以支持FireMonkey的。

先看下演示效果：

RTL消息实现：

        1. 首先需要引用单元System.Messaging

uses
  System.Messaging, // RTL 消息单元

        2. 需要声明对象：MessageManager: TMessageManager;

private
    { Private declarations }
    ....
    MessageManager: TMessageManager;

        3. 接收方订阅消息：MessageManager.SubscribeToMessage

procedure TForm_Message_VCL.Button_SubScrible1Click(Sender: TObject);
begin
  MessageManager := TMessageManager.DefaultManager;
  SubscriptionId1 := MessageManager.SubscribeToMessage
    (System.Messaging.TMessage<UnicodeString>,
    procedure(const Sender: TObject; const M: System.Messaging.TMessage)
    begin
      Memo1.Lines.Add('订阅消息1-直接处理(延迟3000毫秒): ' + (M as System.Messaging.TMessage<UnicodeString>).Value);
      sleep(3000);
    end);
end;

TMessageManager.SubscribeToMessage的定义：

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

其中AMessageClass表示一个定义的消息类，可以是字符串、数字型、记录结构或者对象。

AListener：表示一个消息响应监听处理器，可以是一个内嵌的过程、对象方法、普通过程函数等。演示程序中的订阅消息1对应的是内嵌过程，订阅消息2对应的是对象方法，订阅消息3对应的是普通函数过程，

        4. 发送方发送消息：MessageManager.SendMessage

procedure TForm_Message_VCL.Button_SendMessageClick(Sender: TObject);
var
  MessageManager: TMessageManager;
  Message: System.Messaging.TMessage;
begin
  Memo1.Lines.Add('开始执行: ' + FormatDateTime('hh:mm:ss zzz',Now));
  MessageManager := TMessageManager.DefaultManager;
  Message := System.Messaging.TMessage<UnicodeString>.Create(Edit1.Text);
  MessageManager.SendMessage(Sender, Message, True);
  Memo1.Lines.Add('结束执行: ' + FormatDateTime('hh:mm:ss zzz',Now));
end;

下一节：【Delphi】中使用消息Messages（五）Windows消息​​​​​​​