在FMX中实现PostMessage的方法
http://www.qdac.cc/?p=1090
首先,做为一个从Windows下转过来的开发人员,许多时候,我们喜欢用PostMessage来触发一些异步执行的代码,但遗憾的是,FMX做为EMB的跨平台库的基础,只提供了SendMessage方法,却没有提供PostMessage方法。
那我们确实需要PostMessage怎么办?我因为用到了,所以研究了下,编写了一个fmx.postqueue单元,提供了一个类似的PostMessage方法,供大家参考。此代码可以运行在跨平台环境下,所以你可以放心在Windows、Andriod、iOS、OSX中使用。
第一步:我不喜欢消息映射的方式,所以直接PostMessage的定义我改了一下,让其更简单易用。
1
2
3
|
type
TPostProcedure=procedure (ASender:TObject;AMsgId:Integer;AWParam,ALParam:NativeInt) of object;
procedure PostMessage(ACallback:TPostProcedure;ASender:TObject;AMsgId:Integer;AWParam,ALParam:NativeInt);
|
首先是一个消息响应过程,如果你将所有的异步消息响应过程都投寄到同一个函数,那基本上就是Windows上的PostMessage函数的翻版了,你只能在回调函数中根据消息ID挨个处理了。
TPostProcedure提供了四个参数:
ASender : 消息的发送者,如果不需要,可以传递为nil/NULL。
AMsgId : 消息ID,一个整数值,如果不需要区分,直接赋0就好了。
AWParam : 一个附加的参数,具体由程序自己决定,和Windows下消息的WParam参数一样。
ALParam : 同上
接口就是这么一个简单的定义了,用时直接在后台线程或主线程中PostMessage就可以,这个函数是线程安全的。
第二步:我来详细说明下这个函数的实现原理。
1、自己建立一个内部列表,用来存贮投寄来的消息。
2、注册一个用于响应TIdleMessage消息的回调函数,在其中处理这些异步消息的响应。
3、在投寄消息时,将消息加入到内部列表,然后如果定义了WakeMainThread函数,就调用WakeMainThread函数,从而激活主线程的消息循环,用于处理异步消息。
基本的思路就是这个样子,而后面实际还注册了退出过程,用来清理自身,防止内存泄露。