我想用delphi做一个实时监控的功能,例如:对于网上平台用户,实时查询他的可用截止日期,判断如果已经过期,就将该用户的可用状态更新为不可用,实时间隔精确到1分钟。请问该怎么样实现呢,最好有简单的例子?

解决方案 »

  1.   

    登陆服务器的时候保留用户session.
    建立用户session列表.(TList)
    定时循环(用timer控件
    if 判断用户是否过期(表中记录比较) then
      kick(session)
      

  2.   

    楼上太麻烦,
    在你的界面上面加一个时钟控件,时间间隔设置成1分钟,这个在属性里面有设的,然后双击这个时钟控件,编程去读你的数据库,如果满足什么条件就执行什么操作。这样完全可以实现。
    我做的很多和VOD还有internet的计费接口都是用这种方法做的,时间可以精确到毫秒,也就是说在极端情况下,我能够每一毫秒就重复一个操作
      

  3.   

    scfanxzq(老猪哼哼) 的方法不错
      

  4.   

    你每一毫秒都去读数据库这样会不会不妥当,redher(红孩儿)的方法比较好也很合理,登陆服务器记录用户session列表一直驻留内存,直接从内存读不是更快更好吗?
      

  5.   

    谢谢各位!此问题用timer控件解决了,正好适合我这个初学者使用,发分了