delphi - キオスクのログイン ページ セッション タイムアウト

Question

Delphi および Intraweb で記述された Web ベースの製品があり、公共のキオスク (フルスクリーン) で実行できます。

Intraweb を使用して、セッションの一部ではないログイン ページ (標準の Intraweb ページのみ) を表示する方法はありますか?そのため、ユーザーが正常にログインした場合にのみセッションが作成されますか?

Answer 1

これを実行するために私たちが見つけた最良の方法は、Javascript を使用して 30 秒ごとに AJAX 要求を Intraweb に送信し、Intraweb にページがまだ使用中であると認識させ、セッションがタイムアウトしないようにすることです。

Javascript (30 秒ごとに Intraweb AJAX メソッドを呼び出します):

<script type="text/javascript">
  document.addEventListener("DOMContentLoaded", function(event) {
      window.setInterval(function() {
          executeAjaxEvent("", null, "ResetSessionTimer", false, null, true);
      }, 30000);
  });

Delphi (プライベート メソッドとコールバックの登録):

procedure TfrmLogin.ResetSessionTimer(EventParams: TStringList);
begin
 //Intraweb does everything for us, we just need this method to exist
end;

WebApplication.RegisterCallBack('ResetSessionTimer', ResetSessionTimer);