设置TDSAuthenticationManager属性对DataSnap服务端的接口授权

procedure TServerContainer1.DSAuthenticationManager1UserAuthenticate(
  Sender: TObject; const Protocol, Context, User, Password: string;
  var valid: Boolean; UserRoles: TStrings);
begin
  { TODO : Validate the client user and password.
    If role-based authorization is needed, add role names to the UserRoles parameter  }

  if (User = ‘Admin‘) and (Password = ‘123456‘) then
  begin
    valid := True ;
    UserRoles.Add(‘AdminGroup‘); //加入到AdminGroup组别
  end else
  if (User = ‘Guest‘) and (Password = ‘123456‘) then
  begin
    valid := True ;
    UserRoles.Add(‘GuestGroup‘); //加入到GuestGroup组别
  end else
  valid := False ;
end;