Datasnap 删除过期会话 Delphi

Question

为公司机械师创建的应用程序通过服务器上活动的datasnap windows 服务进行控制。现在，这些机制经常在路上并与服务器断开连接。当技术人员再次打开应用程序并连接到服务时，会创建一个新会话并且不会删除旧会话。这导致累积了未删除的过期会话。如何确保删除过期的会话？

如果我忘记了一些信息，请告诉我，我将其添加到问题中。

Answer 1

在一些文档形式 embarcadero 之后，我将以下内容添加到我的 DSTCPServerTransport.OnConnect 事件中：

 Event.Channel.EnableKeepAlive(30000);

其中 30000 是毫秒数。

在我的客户端，我在FDConnection.Onrecover 事件中添加了以下内容：

AAction := TFDPhysConnectionRecoverAction.faRetry;

这解决了我未使用的会话的问题。