Datasnap interface authentication on the service side

As long as the Onuserauthenticate event of the DSAuthenticationManager1 component is implemented on the server side, we can complete the authentication of the client access interface, and his events are as follows:

proceduretservercontainer1.dsauthenticationmanager1userauthenticate (sender:tobject;ConstProtocol, Context, User, Password:string; varValid: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');//Add the code we want to certify hereEnd;

The client is simple, as long as you set the SqlConnection driver property,

This completes an interface authentication process, is not very simple ...

Compilation environment: Delphi XE7

Join Datasnap Advanced Exchange Group 439992010 to download demo

Datasnap interface authentication on the service side