2

我们正在使用 Delphi XE 开发一个新的 Datasnap 服务器 (tcp/ip) 并遇到了问题。我们不知道客户端何时以异常方式断开连接，即。连接断开或客户端电脑重新启动。

当客户端建立连接时，我们将其详细信息保存在列表中，如下所示：

TClientInfo = record
  Id: integer;
  Session: TDSSession;
  LastSeen: TDateTime;
end;
...
ClientInfoList: TDictionary<Integer, TClientInfo>;
...
//OnConnect    
ClientInfo.ClientId := ClientId;
ClientInfo.Session := TDSSessionManager.GetThreadSession;
ClientInfo.LastSeen := Now();
ClientInfoList.Add(ClientId, ClientInfo);

理想情况下，我们希望遍历 ClientInforList 并断开任何 30 分钟未见的客户端，但这是我遇到问题的地方。

我试图断开或终止客户端会话，但没有任何运气。

for i in ServerContainer.ClientInfoList.Keys do
  begin      
    ClientInfo := TClientInfo(ServerContainer.ClientInfoList[i]);
    ClientInfo.Session.Terminate;
  end;

在 Delphi XE 中有没有办法做到这一点？

4

1 回答 1

2

您不能在 XE 中从服务器端终止 TCP/IP 会话。Mat DeLong 写了一篇文章，解释了在 XE 中使用 HTTP 时如何从服务器端断开会话，并以“在 XE 中此功能目前仅适用于 HTTP 连接。在 XE2 中，它也适用于 TCP/IP。 ”

我们在 XE 中遇到了同样的问题。我们尝试在会话线程中使用和计时器，如果用户在x小时内LifeCycle := Session没有看到，则可以自行终止它。但是我们不能从内部终止线程。而且我们无法从主线程枚举线程连接。

所以我们将其设置LifeCycle为 [Server]，这样我们就可以自己管理连接列表。我们必须处理使用 [Session] 自动发生的所有事情LifeCycle，但至少我们可以循环浏览连接列表并删除LastSeen超过x小时的连接。

如果升级到 XE2（现在是 XE3）是一种选择，它可能是最好的选择（因此您可以使用会话管理方法进行 [Session] 连接）。

如果您无法升级，那么从服务器端终止会话的唯一方法是设置LifeCycle为 [Server] 并自己进行会话管理。

于 2012-09-21T12:53:11.873 回答