delphi定时
2016-06-10 11:03
295 查看
procedure TForm1.Button1Click(Sender: TObject); begin timer1.Interval:=60*1000; //启动监控,每1分钟检查一次设定时间和当前时间 timer1.Enabled:=true; end;procedure TForm1.Timer1Timer(Sender: TObject); var l_time: TDateTime; h_time: TDateTime; ss:Int64; begin timer1.enabled:=false; h_time:= strtotime('10:30:00'); l_Time := time; //now是取当前的日期加时间,time只取当前时间 if (h_time>l_time) then begin ss:=SecondsBetween(h_time,l_time); //求两个时间相差多少秒 if ss<5*60 then begin //如果时间间隔小于5分钟定时启动timer2 timer1.Enabled:=false; showmessage('Inteval seconds:'+inttostr(ss)); timer2.Interval:=ss*1000; timer2.Enabled:=true; end; end else timer1.enabled:=true; end;procedure TForm1.Timer2Timer(Sender: TObject); begin timer2.enable:=false; showmessage('ok on time run the program'); timer1.Enabled:=true; //再次开始监控end;自己加入要执行程序的代码...或者用Timer2替掉也行实现
使用delphi2009手动设置多个时间段,定时执行扫描文件任务,不知道用哪种方法,定时器控件好像不是很好,为此定时成天纠结,请各位知道的不吝赐教,俺么感激不尽。。。。。最好有具体的代码,不然不能深入了解。。。。
详细阐述下多线程的方案吧
DELPHI里的定时器精度很差,一分钟一次还行,时间长了就不行了。 1\最好是用线程实现,线程中加上sleep(毫秒)2\用定时器,查到任务后开线程
相关文章推荐
- ruby中执行周期性任务(定时任务)的3种方法
- 使用mysql事件调度器定时删除binlog
- ASP中实现执行定时任务的方法
- 调试WordPress中定时任务的相关PHP脚本示例
- java定时任务的实现方式
- node.js中使用node-schedule实现定时任务实例
- 详解PHP实现执行定时任务
- php定时计划任务的实现方法详解
- PHP定时执行任务的3种方法详解
- 详解PHP执行定时任务的实现思路
- 在WordPress中使用wp-cron插件来设置定时任务
- Nodejs中读取中文文件编码问题、发送邮件和定时任务实例
- PHP中使用sleep函数实现定时任务实例分享
- yii框架通过控制台命令创建定时任务示例
- linux使用crontab实现PHP执行计划定时任务
- 最流行的java后台框架spring quartz定时任务
- Spring Boot定时任务的使用方法
- Java定时任务的三种实现方法
- java中 spring 定时任务 实现代码
- 详解java定时任务