Delphi：Datasnap从服务器方法单元识别用户

Question

如何确定启动我在服务器方法单元中创建的某个功能的用户？

Answer 1

在ServerContainerUnit或WebModuleUnit（ISAPI）中，

---

DSAuthenticationManager.onUserAuthenticate过程或TDSServer.onConnect等...，

---

使用TDSSessionManager.GetThreadSession.PutData（' UserName '，User）;将当前用户识别为DSSession，

---

在您的Servermethods单元函数中，您可以使用DSSession中的TDSSessionManager.GetThreadSession.GetData（' UserName '）保存在用户验证或其他过程中。

---

在DataSnap REST ISAPI上测试，运行正常。

Answer 2

如果您启用了身份验证，请使用TDSSessionManager.GetThreadSession.Username。