使用TRoleAuth类对DataSnap服务端的接口授权

最新推荐文章于 2025-09-08 22:40:31 发布

转载最新推荐文章于 2025-09-08 22:40:31 发布 · 155 阅读

0 ·

CC 4.0 BY-SA版权

原文链接：http://www.cnblogs.com/Kim53622744/p/4403596.html

文章标签：

#json

使用Troleauth类，一种类似注视的代码进行授权，也是最简单和方便的方式，实现如下：

unit ServerMethodsUnit1;

interface

uses System.SysUtils, System.Classes, System.Json,
    Datasnap.DSServer, Datasnap.DSAuth, DataSnap.DSProviderDataModuleAdapter;

type
  TServerMethods1 = class(TDSServerModule)
  private
    { Private declarations }
  public
    { Public declarations }
    [TRoleAuth('AdminGroup','GuestGroup')]
    function EchoString(Value: string): string;

    [TRoleAuth('GuestGroup','AdminGroup')]
    function ReverseString(Value: string): string;
  end;

implementation


{$R *.dfm}


uses System.StrUtils;

function TServerMethods1.EchoString(Value: string): string;
begin
  Result := Value;
end;

function TServerMethods1.ReverseString(Value: string): string;
begin
  Result := System.StrUtils.ReverseString(Value);
end;

end.