zoukankan      html  css  js  c++  java
  • uniGUI应用检测无人操作

    在浏览器中运行一个uniGUI应用,当超过一定时间,无人操作时,我们想实现自动退出应用,该如何实现呢?

    下面是具体的实现方法:

    在MainForm中,增加了一个事件OnSessionIdle,当超过一定时间无人操作时,会触发这个事件,这个时间在哪里设置呢?答案是UniServerModule的AjsxTimeout这个属性,单位毫秒。

    利用上面的原理,我们开始实现一个超过30秒无人操作时,自动退出应用。

    1.设置UniServerModule.AjaxTimeout:=30000

    2.实现MainForm.OnSessionIdle事件:

    在这个事件中,我们显示一个提示窗口UniIdleForm,当这个窗口不返回mrOK时,关闭应用。

    procedure TMainForm.UniFormSessionIdle(Sender: TObject);
    begin
      UniIdleForm.ShowModal(
        procedure(Sender: TComponent; AResult:Integer)
        begin
          if AResult <> mrOK then
          begin
            UniSession.Terminate('Your session terminated because it was idle for 30 seconds!');
          end;
        end
      );
    end;

    3.接下来,看UniIdleForm的实现:

    建立一个UniIidleForm,放置一个UniTimer1,设置Interval=5000,即5秒触发一次。

    建立一个私有变量FCnt,初始值设置为6,在UniTimer1的OnTimer事件中,利用FCnt变量,控制计时。当FCnt小等于0时,自动退出窗口并设置返回值为mrCancel。具体的代码:

    procedure TUniIdleForm.UniTimer1Timer(Sender: TObject);
    begin
      if FCnt <= 0 then
      begin
        ModalResult := mrCancel;
        Exit;
      end;
      UniLabel1.Caption := 'Session will be terminated in <b>' +
                          IntToStr(FCnt * 5) + '</b> seconds.<br>' +
                          'Please press "Continue" to return to your session.';
    
      Dec(FCnt);
    end;

    本文基于官方的例子Session Idle Timeout所写,具体项目在FMSoftFrameworkuniGUIDemosDesktopSession Idle Timeout目录。

  • 相关阅读:
    Silverlight数据绑定之DataGrid
    演练:使用属性自定义 DataGrid 控件
    [开源下载] 【开源项目】EasySL for Silverlight 4
    Expression Blend实例中文教程(13)
    Expression Blend实例中文教程(12)
    Expression Blend实例中文教程(11)
    Expression Blend实例中文教程(10)
    Expression Blend实例中文教程(8)
    Expression Blend实例中文教程(7)
    Expression Blend实例中文教程(6)
  • 原文地址:https://www.cnblogs.com/kinglandsoft/p/Session_Idle_Timeout.html
Copyright © 2011-2022 走看看