Delphi Event Bus入门

玉录發表於 2021-3-7 17:43:00

什么是Event Bus，可以百度一下这个关键词，了解一下。具体来说，好处有两点：
1.广播通信，当对象状态发生改变时，会自动通知已经订阅过的对象 2.发布者与订阅者耦合性降低，发布者只管发布一条消息出去，它不关心这条消息如何被订阅者使用
Delphi 现在有了开源项目，https://www.github.com/spinettaro/delphi-event-bus，目前已经发展到2.0版本，我在项目中使用感觉非常强大与稳定，支持跨平台。接下来，假设你已经下载并安装到Delphi IDE中，看看如何使用他。
2.0版本改动非常大，较1.x比，简直是脱胎换骨，用法更简洁，但功能更灵活，因为完全基于接口来实现的。
为了使用他，首先呢，我们要声明一个接口，然后再用一个类来实现这个接口：
现在声明一个接口IMemoChangeEvent：
<div class="cnblogs_code">
<pre>IMemoChangeEvent = interface
['{DCFE64D2-9BA8-4949-9BB1-F5CD672E51A2}']
procedure SetText(const Value: string);
function GetText: String;
property Text: string read GetText write SetText;
end;</pre>
</div>
接着，用TMemoChangeEvent类来实现这个接口：
<div class="cnblogs_code">
<pre>TMemoChangeEvent = class(TInterfacedObject, IMemoChangeEvent)
private
FText: string;
procedure SetText(const Value: string);
function GetText: String;
public
property Text: string read GetText write SetText;
end;</pre>
</div>
我们再声明一个函数，将TMemoChangeEvent实列用接口IMemoChangeEvent返回：
<div class="cnblogs_code">
<pre>function GetMemoEvent: IMemoChangeEvent;
begin
Result:= TMemoChangeEvent.Create;
end;</pre>
</div>
现在，我们可以将这个接口，通过Event Bus发布出去了，下面是发布的代码：
<div class="cnblogs_code">
<pre>procedure TfrmMain.Memo1Change(Sender: TObject);
var
LEvent: IMemoChangeEvent;
begin
LEvent := GetMemoEvent;//取得接口
LEvent.Text := Memo1.Lines.Text;//为接口赋值
GlobalEventBus.Post(LEvent);//发布接口实例
end;</pre>
</div>
上面的代码中，GlobalEventBus是Delphi Event Bus提供的一个全局函数，返回IEventBus接口实例。
接下来，看看如何接收这个IMemoChangeEvent接口实例，看下面的代码，我们在接收对象中这样声明一个方法：
<div class="cnblogs_code">
<pre>
procedure OnMemoChange(AEvent: IMemoChangeEvent);</pre>
</div>
注意，这里用了注解，同时，接收方法只有一个参数AEvent，再看一下具体的实现：
<div class="cnblogs_code">
<pre>procedure TfrmSecond.OnMemoChange(AEvent: IMemoChangeEvent);
begin
MemoObserver.Lines.Text := AEvent.Text;
end;</pre>
</div>
这个AEvent参数就是前面发送的接口实例。
最后，为了能让接收对象接收消息，我们还要做一步，就是把接收对象注册到Event Bus中：
<div class="cnblogs_code">
<pre>procedure TfrmSecond.FormCreate(Sender: TObject);
begin
GlobalEventBus.RegisterSubscriberForEvents(Self);//一般情况下，我们都是在对象建立时注册
end;</pre>
</div>
<div class="cnblogs_code">
<pre>procedure TfrmSecond.FormDestroy(Sender: TObject);
begin
GlobalEventBus.UnregisterForEvents(Self);//取消注册
end;</pre>
</div>
现在，基于Delphi Event Bus的发布-订阅机制就完成了。
上文中用到的代码是开源代码中的例子VCLMessageing.dpr，你下载后就有了这个，可以基于上文，运行例子，感受Delphi Event Bus带给我们的便利！
如果上面内容对你有帮助，别忘记为我点赞或者关注，为我加点动力！ 
来源：https://www.cnblogs.com/kinglandsoft/p/14495519.html

頁: [1]

琼殿技术论坛's Archiver

Delphi Event Bus入门