DataSnap服务端的接口认证

在服务端只要实现DSAuthenticationManager1组件的OnuserAuthenticate事件,我们就可以完成客户端接入接口的认证,他的事件如下:

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  }
//  valid := True ;
  valid := (User = 'Admin') and (Password = '123456');  //这里加入我们要认证的代码
end;

客户端就简单了,只要设置SQLconnection的Driver属性就可以了,如图:

这样就完成一个接口认证的过程了,是不是很简单。。。

编译环境:Delphi XE7

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

原文地址:https://www.cnblogs.com/Kim53622744/p/4400998.html