Delphi 是否有相当于 Java 的 PermissionManager 或 AccessController 类？

Question

是否有任何类（免费、开源或商业）执行类似于 Java 的访问控制 AccessController 会吗？我想创建一组可以在运行时更改的动态策略。

但是，我想避免到处编码

if Allowed( ... ) then

。我知道我可能需要调整我的程序类层次结构，但我更喜欢这样做，而不是在各处手动添加防护。

如果没有现成的代码，明智的方法是什么？实时时间间隔？

编辑：以下是 GlassFish 中的安全注释和授权的示例以及 Java EE 5 SDK 文章。由于有人在评论中提到了注释，我认为这将是理想的：

@Stateless
@RolesAllowed("javaee")
public class HelloEJB implements Hello {
    @PermitAll
    public String hello(String msg) {
        return "Hello, " + msg;
    }

    public String bye(String msg) {
        return "Bye, " + msg;
    }
}

来自文章：

在此示例中，每个人都可以访问 hello() 方法，而 javaee 角色的用户可以访问 bye() 方法。

编辑： 嗯，看来普遍的共识是这不能在 Delphi 中完成。其他人则认为这是一个糟糕的做法。

我，我仍然认为这会很棒。我对 Java 注释的体验（作为图腾柱中的代码猴子）是积极的。添加一个新方法，添加某种形式的注释（与 Java 安全注释不完全相同），然后就完成了。管理员稍后可以转到管理面板，并向组或个人用户添加对此新处理程序的授予访问权限。它就是有效的。

这些是我当前的替代方案：

1. TMS 安全系统 - 这看起来像是一个完整的解决方案，几个工具。值得研究一下。我接受这个作为答案，即使我可能不会这么做。
2. 这看起来很有前途：Delphi 虚拟方法拦截。它仅适用于虚拟方法，但我认为这并不太难遵守。这个和注释可以创建一个有趣的系统（看起来这最初是为 DataSnap 身份验证设计的）
3. 在您的应用程序中只有一个 ActionManager，并确保所有操作只能从那里启动。这样你就可以使用动作管理器的OnExecute方法；我假装使用 TAction.Name 属性作为权限名称（“处理程序”），从表中读取允许的操作列表。我可以使用操作管理器中的操作列表在管理 UI 中显示整个列表。

Answer 1

Delphi 还没有这样的框架，也没有像 EJB 这样适合它的概念。 DELPHI 确实支持类注释，并且可以设计这样的框架，也许与 TAction 结合使用，以提供操作级别的安全性，但我怀疑这是否可以扩展到阻止特定的方法调用。 Delphi 代码从不请求调用虚拟方法的权限。任何将自身注入到 Delphi 中的每个虚拟方法调用中的东西，在幕后添加 checkPermission 调用（在我看来）都是邪恶的。这会很慢，而且比手工写这样的支票更糟糕。

然而，用于 Mock delphi 类的相同技术将来也许可以用于创建一些自动安全包装对象。

我猜测，如果所讨论的 Java 库使用了方面（本质上是通过代码挂钩等技术实现的“注入”），那么它就不需要到处调用“CheckAllowed”。如果您不介意将所有方法调用更改为实现接口，然后提供执行方法调用的包装器，并在其周围使用某种自动生成的模拟安全包装器，则可以避免调用 CheckAllowed。

所以一个谨慎的“不”，带有“未来可能的有限框架”条款。

Answer 2

是的，有一个 Delphi 访问控制库 (lkacl) (OpenSource)，JCL (OpenSource)，它提供了相当全面的安全性功能，最后，如果您的要求真的很高最流行的商业解决方案是TMS 安全系统。