如何在Datasnap Server Methods单元中获取经过身份验证的用户名和密码？

Question

一旦使用正确的参数名称(在Delphi Datasnap Server用户身份验证中说明),Datasnap身份验证非常简单.下一个问题是在使用FireDAC数据库连接时能够使用这些相同的凭据.答案似乎隐含在最有效的方式将SQL登录凭据传递给Delphi Datasnap服务器？虽然"简单转发"并没有真正解释如何完成代码.此外,这些凭据应该作为用于登录Datasnap服务器的相同凭据进行身份验证.这样可以防止在数据库级别进行模拟.

到目前为止,我还没有找到任何方法从Server Methods单元中以编程方式获取当前的Datasnap用户凭据.例如,在BeforeConnect事件中.我正在使用的代码是使用会话生命周期使用Delphi XE7构建的独立服务器.

以下是连接到Datasnap服务器并请求数据时发生的事件的说明:

让我进一步解释一下:

通过使用一些ShowMessage指令,我可以在连接并发出数据请求时跟踪Datasnap的流程.在Test下运行服务器允许我显示事件附带的各种参数的内容.设置完成后,运行连接到服务器并请求数据的客户端会产生以下结果:

客户登录按钮

• 提交了凭证对话(这是我的代码,而不是TSQLConnection的属性,它错了.)
• 输入用户名和密码.
• Paremeters放置在TSQLConnection.Params [DSAuthenticationPassword,DSAuthenticationUser]中
• 设置TSQLConnection.Connected:= True

• 服务器事件OnUserAuthenticate

  此时,虽然服务器上没有其他任何内容,但已建立连接.最重要的是,ServerClass和ServerMethodsClass都没有实例化.我无法看到存储身份验证凭据的位置.

客户端GetData按钮

• 客户端连续打开两个客户端数据集.
• 服务器DSServerClass1.Create.这显然意味着
  ServerTransport将请求识别为有效并继续
  创建处理会话所需的资产.
• ServerMethodsUnit3.Create.隐藏在DSServerClass中的某处有一个GetClass调用,它返回相关ServerMethodsClass的名称.命名类被实例化.由于ServerMethodsClass最终来自TDataModule,这也意味着属性流.
• OnUserAuthorize(显然是第一个数据集)
• OnUserAuthorize(显然是第二个数据集)

数据返回给客户端(此时,数据库凭据被硬编码到TFDConnection ConnectionDefinition中,只是为了让它工作.)

OnUserAuthorize使用nil值显示Sender参数; 还提供了一个TDSAuthorizeEventObject,它不包含我能够用来查找ServerMethods实例的任何引用,最后还有一个名为Valid的参数,一个用于授权用户的布尔值.

请注意,TDSAuthorizeEventObject包含对TDSServerMethodUserEventObject的引用,该引用包含用户名以及角色,授权角色和拒绝角色.但是,那又怎样？这让我回到原来的问题:如何将此信息传达给ServerMethodsUnit中的代码？

Answer 1

过了一段时间,我在Bob Swart的白皮书中偶然发现了确切的方法.有几种方法可以让您在Datasnap会话期间保留信息.它们属于TDSSessionManager.GetThreadSession,分别是GetData,PutData,RemoveData,HasData,GetObject,PutObject,RemoveObject和HasObject.这些方法实际上管理了作为Session一部分的两个字典.例如,在UserAuthentication事件中,您可以存储用户名,如下所示:

TDSSessionManager.GetThreadSession.PutData('entrykey', UserName);

稍后,在用于数据库连接的OnBeforeConnect事件中,您可以检索这些值以在连接中使用:

DBUserName := TDSessionManager.GetThreadSession.GetData('entrykey');

在实践中,我发现"对象"形式具有更大的价值,但任何一种形式都提供了一种强大的方式,可以在不诉诸外部媒体的情况下在会话期间保留您自己的数据.