从去年开始,kbmmw 慢慢增加内涵,除了完善各种服务外,陆续增加和扩展了作为一个中间件必须有的功能,
例如,权限管理、日志系统、调度系统、内存调试等功能。
今天给大家介绍一下kbmmw 的调度事件,调度事件的主要目标就是”在指定时间干,必须干“,不是“爱干”不干,是“必须干” :)。
在传统的delphi 中事件调度室通过两种方式,一种方式通过Ttimer 来实现,(我20年做的母校的食堂餐饮消费系统就是通过Ttimer来轮询
POS 机的)。另外一种就是通过扩展Tthread 线程类,通过后台完成一些指定事件。
利用Ttimer 来完成事件调度,其实是一个松散的调度,其依靠windows 的消息机制,如果一个事件在指定事件没有做完,
那么后面的消息就会被忽略,这样会丢失一些事件,在很多场合是不允许的。
利用扩展线程实现调度,可以比较精确的执行调度事件,但是由于多线程编写程序复杂,而且精确时间的计算也要一定的
功力及技巧,一般开发者往往望而却步。
那么怎么办呢? kbmmw 来帮忙,在新版的kbmmw 中,加入了TkbmMWSchedule 类,这个类用来完成事件调度,完成
”在指定时间干,必须干“这个任务。这个类简单易用,不但简单易用,而且包括了很多调度启动、关闭的相关操作。
TkbmMWScheduler 类不但是一个任意数量调度事件的容器,也是一个调度事件的管理器。确保这些事件在正确的事件被执行。
Kbmmw 自带一个标准的TkbmMWScheduler 类,名称就叫kbmMWScheduler,这个是kbmmw 自用的,你同样可以用它,当然
了,你也可以任性自己再建一个自己独立的。
ok. 让我们先简单的看一下一个例子。
kbmMWScheduler.Schedule(OnScheduledEvent).EverySecond(10).Activate(true);
以上的代码就是让调度器每10秒做一件事情。在调度事件里面我们可以写一下代码。
function TForm1.OnScheduledEvent(const AScheduledEvent:IkbmMWScheduledEvent):boolean;
begin
call('无为,干活');
result:=True;
end;
这样这个事件就一直被执行下去,无为估计就会疯了:)
为了不让无为发疯,我们需要可以停止这个事件。那么为了能够停止这个事件,我们需要先给这个调度定义,以
方便我们后面停止这个调度操作。
以下代码来控制这个调度
var
myevent:IkbmMWScheduledEvent;
myevent:=kbmMWScheduler.Schedule(OnScheduledEvent).EverySecond(10).Activate(true);
好了,我们知道是哪个事件了,后面就好办了。
myevent.Active:=false;
这样,无为就消停了(无为到底是什么鬼?)。
当然了,我们也可以通过强行命名一个调度器,以便后面方便操作。
kbmMWScheduler.Schedule(OnScheduledEvent).NamedAs(‘xalion’).EverySecond(10).Activate(true);
这样,后面可以通过名称查找这个调度,然后操作这个调度
xalionev:=kbmMWScheduler.GetByName(‘xalion’);
kbmmw 中的时间调度有两种,一种是松散调度,一种是精确调度。
松散调度是通过一个线程池来完成的,所有的调度时间共享一个线程池,它保证事件的运行,但是不保证精确度。由于是共享线程池,
因此松散调度调度节省系统资源,这种调度适合于数据备份等场合,例如确保每天晚上12点左右备份数据,但是没有必要在12:00:00
那一瞬间执行这个事件,kbmmw 中默认调度为松散调度。但是某些场合,我们必须在精确的指定时间执行一个事件,例如上、下课铃声,我们谁也不愿意
下课时间到了,还没听见下课铃声。这个就需要精确事件调度,为了适合满足这种要求,kbmmw 为其单独建立一个线程,确保
这个事件精确按时执行,代价是会增加系统资源的使用(当然了也有例外,如果系统本身很忙,例如CPU 负载100%,神仙也没办法了)。
建立精确事件调度在kbmmw 里面也很简单,代码如下,
kbmMWScheduler.Schedule(OnScheduledEvent).NamedAs(‘xalion’).EverySecond(10).Precise.Activate(true);
当然了,你也可以用下面代码定义松散调度。
kbmMWScheduler.Schedule(OnScheduledEvent).NamedAs(‘xalion’).EverySecond(10).Relaxed.Activate(true);
kbmmw 不但支持秒为执行间隔,还有很多间隔方法。
EveryMSecond(n) ---每n毫秒,什么东西要这么快?
EveryMinute(n) -------每n分钟,测量心跳?
EveryHour(n)---------每n小时,当n=1 时,8次就可以下班了?不可能
EveryDay(n) -----------每n天,当n=1 时,就是程序猿的闹钟
EveryMonth(n) ----------每n月一次,当n=1 时,是什么?
EveryYear(n) --------------你开发的系统,能n年不重新启动?
其实这个n 可以是小数, EveryDay(0.5) 就是半天。
注意,很人性化的一点出现了
EveryDay(1).EveryHour(6) 是多少呢? 呵呵,其实就是EveryHour(30),24+6=30 小时。
那么 EveryMonth(2.5).EveryHour(3) 是多少呢? 2.5 个月到底是多长时间?自己调试吧。
每个星期几必须要做,怎么办?
AtWeekDays([mwwdSunday,mwwdWednesday])
在指定的日期范围内执行也很简单