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