kbmmw 中使用带验证的REST 服务

AuthMgr.AddRole(‘AdminRole‘);

procedure Tdmf.AuthMgrLogin(Sender: TObject; const AActorName,
  ARoleName: string; var APassPhrase: string;
  var AActor: TkbmMWAuthorizationActor; var ARole: TkbmMWAuthorizationRole;
  var AMessage: string);
begin
  //建议使用数据库保存用户名和密码， 密码不要用明码
       if AActorName<>‘xalion‘ then
       begin
         AMessage:=‘用户或密码不正确，请检查‘;
         exit;
       end;


       if APassPhrase<>‘123456‘ then
       begin
         AMessage:=‘用户或密码不正确，请检查‘;
         exit;
       end;

        //检查角色是否定义？
        ARole:=AuthMgr.Roles.Get(‘AdminRole‘);
           if ARole=nil then
              AMessage:=‘角色不支持‘
           else
           begin
                //检查使用者是否存在，如果不存在则建立一个使用者 
                AActor:=AuthMgr.GetActor(AActorName);
                if AActor=nil then
                   AActor:=AuthMgr.AddActor(AActorName,APassPhrase,ARoleName);
                AMessage:=‘用户正确,允许登录‘;
           end;

end;

[kbmMW_Method(‘EchoString‘)]       // 回应输入的串
     [kbmMW_Rest(‘method:get, path: ["echostring/{AString}","myechostring/{AString}" ]‘)]
     [kbmMW_Auth(‘role:[AdminRole], grant:true‘)] 
     function EchoString([kbmMW_Rest(‘value: "{AString}"‘)] const AString:string):string;