Delphi XE2 DataSnap - 在服务器方法模块中访问REST连接属性

Question

我正在构建一个XE2 DataSnap服务器，用于为REST客户端提供服务。我的DSServerClass LifeCycle属性设置为“Invocation”。REST连接属性将包括用户名和密码，这些是通过DSAuthenticationManager UserAuthenticate（）事件处理的。我需要知道的是如何在服务器方法类中访问用户名和密码？我想知道哪个REST用户名/密码启动了我的服务器类对象实例。

- Jonathan Wareham

Answer 1

你可以使用 DSServerClass.OnPrepare 来实现这个功能：

procedure TServerContainerTest.DSServerClass1Prepare(
  DSPrepareEventObject: TDSPrepareEventObject);
begin
  // Add username property to TServerMethodsTest
  if DSPrepareEventObject.MethodInstance is TServerMethodsTest then
    TServerMethodsTest(DSPrepareEventObject.MethodInstance).Username := DSPrepareEventObject.UserName;
end;

没有可用的密码。 不要使用服务器生命周期！

- Arjen van der Spek