首页 > 其他 > 详细

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

时间:2015-04-08 21:12:16      阅读:1897      评论:0      收藏:0      [点我收藏+]

先实现TDSAuthenticationManager的OnUserAuthticate事件对客户端认证:

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;

现在设置接口授权,只要对TDSAuthenticationManager的Roles属性进行设置即可:

技术分享

技术分享

技术分享

我们分别对自带的2个方法分配了权限,设置完成编译即可!

 

编译环境:Delphi XE7

加入DataSnap高级交流群439992010,即可下载本DEMO

 

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

原文:http://www.cnblogs.com/Kim53622744/p/4403563.html

(0)
(0)
   
举报
评论 一句话评论(0
关于我们 - 联系我们 - 留言反馈 - 联系我们:wmxa8@hotmail.com
© 2014 bubuko.com 版权所有
打开技术之扣,分享程序人生!