Delphi

本类阅读TOP10

·分布式网络考试系统原型分析及实现
·游戏外挂设计技术探讨①
·使用HOOK随心监视Windows
·Delphi 水晶报表打包解决
·试题库开发中非文本数据的处理
·如何将几个DBGRID里的内容导入同一个EXCEL表中....的问题
·如何使用Delphi设计强大的服务器程序
·工人线程中关闭窗体的实现
·用DLL方式封装MDI子窗体。
·支持XP下托盘栏气球提示的托盘单元

分类导航
VC语言Delphi
VB语言ASP
PerlJava
Script数据库
其他语言游戏开发
文件格式网站制作
软件工程.NET开发
用Timer实现定时运行

作者:未知 来源:月光软件站 加入时间:2005-6-5 月光软件站

定时运行这个问题其实老早就接触到了,不过在上次的程序中似乎没有很好的解决这个问题,并且没有深入下去。这次再次碰到同样的问题,在查找了网上的资料以后,对这一问题有了比较深的理解。在程序中实现定时运行的思路:
由timer控件实现
两个timer控件,其中timer1负责每一分钟检查一次系统时间和设定时间的差值,如果两者相差5分钟,则继续检查,直到当相差时间小于5分钟,触发timer2,timer2的定时器时间就是这个时间间隔。当timer2到时以后,就触发主程序。具体代码

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');
  // start...
  timer1.Enabled:=true;   //再次开始监控
end;




相关文章

相关软件




月光软件源码下载编程文档电脑教程网站优化网址导航网络文学游戏天地生活休闲写作范文安妮宝贝站内搜索
电脑技术编程开发网络专区谈天说地情感世界游戏元素分类游戏热门游戏体育运动手机专区业余爱好影视沙龙
音乐天地数码广场教育园地科学大观古今纵横谈股论金人文艺术医学保健动漫图酷二手专区地方风情各行各业

月光软件站·版权所有