DataSnap服务端的接口认证

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;