Delphi XE2 DataSnap - Доступ к свойствам REST-соединения в модуле методов сервера

Question

Я создаю сервер XE2 DataSnap, который будет обслуживать соединения от клиентов REST.Моё свойство DSServerClass LifeCycle установлено в «Вызов».Свойства соединения REST будут включать имя пользователя и пароль, которые обрабатываются с помощью события DSAuthenticationManager UserAuthenticate ().Что мне нужно знать, это как я могу получить доступ к имени пользователя и паролю в классе методов сервера?Я хочу знать, какое имя пользователя / пароль REST запустило экземпляр объекта моего класса сервера.

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;

Пароль недоступен. Не используйте для этого Server LifeCycle!