delphi uniGUI应用检测无人操作

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 ' +
                     IntToStr(FCnt * 5) + ' seconds.
' +
                     'Please press "Continue" to return to your session.';

 Dec(FCnt);
end;

本文基于官方的例子Session Idle Timeout所写，具体项目在FMSoft\Framework\uniGUI\Demos\Desktop\Session Idle Timeout目录。

来源：https://www.cnblogs.com/kinglandsoft/p/Session_Idle_Timeout.html