将 IntraWeb 应用程序作为服务运行时访问事件

Question

我正在将独立的 Intraweb 应用程序作为服务运行。现在我需要实现一个函数来编写 数据库表的“心跳”时间戳。我已经在其他使用的服务应用程序中完成了此操作 TService Classm，我可以在其中使用 OnAfterInstall、OnExecute 等事件。

有没有一种方法可以在作为服务运行的独立网络内应用程序中使用这些事件？

感谢

沃尔夫冈提供的所有信息

Answer 1

我开始在我自己的 Intraweb 应用程序中执行此操作，但因为 IWServiceWizard 隐藏了包括主执行循环在内的服务详细信息，所以我在服务器端完成了所有操作，我使用的是应用程序模式。

我在会话类上定义了一个心跳方法（RunSQL 是我自己的数据访问层对象 DBConnection 上的一个方法，这可能是 TADOConnection 的一个简单包装器）。

function TIWUserSession.UpdateHeartbeat: boolean;
var
  sSQL : string;
begin
  sSQL := 'UPDATE Heartbeats SET LastComms = getdate()'+
          ' WHERE SessionID = '+ IntToStr(FSessionID);

  Result := DBConnection.RunSQL(sSQL);
end;

完成此操作后，每当用户打开新网页时调用此方法（例如）就很简单了。

procedure TIWMyPage.IWAppFormCreate(Sender: TObject);
begin
  inherited;

  Session.UpdateHeartbeat;
end;

只要用户执行与服务器通信的操作，即使它是异步事件 (AJAX)，也可以使用此方法。

procedure TIWMyPage.btnRefreshAsyncClick(Sender: TObject; 
  EventParams: TStringList);
begin
  Session.UpdateHeartbeat;
end;

Answer 2

Intraweb 支持 TIWTimer，因此将时间戳发送到数据库应该非常简单。编码的细节取决于详细规范。