IdentifiantMot de passe
Loading...
Mot de passe oublié ?Je m'inscris ! (gratuit)
Navigation

Inscrivez-vous gratuitement
pour pouvoir participer, suivre les réponses en temps réel, voter pour les messages, poser vos propres questions et recevoir la newsletter

  1. #1
    RDM
    RDM est déconnecté
    Membre émérite

    Profil pro
    Inscrit en
    mars 2002
    Messages
    1 424
    Détails du profil
    Informations personnelles :
    Localisation : France

    Informations forums :
    Inscription : mars 2002
    Messages : 1 424
    Points : 2 871
    Points
    2 871
    Par défaut Tutoriel: Comment personnaliser la sécurité XMLRAD
    un nouveau tutoriel pour une question qui est très demandée:
    Comment gérer la sécurité XMLRAD à partir de la base de données ?
    http://xmlrad.developpez.com/Articles/Authentification/
    RDM
    Tout Est Relatif
    Rubrique XMLRAD: http://xmlrad.developpez.com
    FAQ XMLRAD: http://xmlrad.developpez.com/faq/

  2. #2
    Nouveau membre du Club
    Inscrit en
    janvier 2005
    Messages
    30
    Détails du profil
    Informations forums :
    Inscription : janvier 2005
    Messages : 30
    Points : 34
    Points
    34
    Par défaut XMLC_Pivot altéré par onAuthenticate
    Bonsoir,
    Merci pour votre excellent article : il m'a servi de base de départ pour un monde que je connaissais pas.

    J'ai buté ensuite sur les pivots qui ne fonctionnaient plus avec ce système en place.

    Je pense en avoir trouvé la raison : XMLCollection.DBForEach altère le contenu de XMLC_Pivot. Dans la procédure onAuthenticate il suffit au début de le sauvegarder, et de le restaurer dans le finally, et tout rentre dans l'ordre.

    Georges

  3. #3
    Membre expérimenté

    Profil pro
    Inscrit en
    mars 2002
    Messages
    520
    Détails du profil
    Informations personnelles :
    Localisation : France

    Informations forums :
    Inscription : mars 2002
    Messages : 520
    Points : 1 421
    Points
    1 421
    Par défaut
    Citation Envoyé par Georges_Lauret
    Bonsoir,
    Merci pour votre excellent article : il m'a servi de base de départ pour un monde que je connaissais pas.

    J'ai buté ensuite sur les pivots qui ne fonctionnaient plus avec ce système en place.

    Je pense en avoir trouvé la raison : XMLCollection.DBForEach altère le contenu de XMLC_Pivot. Dans la procédure onAuthenticate il suffit au début de le sauvegarder, et de le restaurer dans le finally, et tout rentre dans l'ordre.

    Georges
    Merci pour le tip ;-) je viens de tomber exactement sur ce souci...
    .NET / ASP.NET MVC / Delphi / XMLRAD / XSL / Technos Web

    Mon Blog : http://blog.developpez.com/index.php?blog=89
    Mes Articles : http://sjames.developpez.com/
    Rubrique XMLRAD: http://xmlrad.developpez.com

  4. #4
    Membre régulier
    Profil pro
    Inscrit en
    février 2003
    Messages
    89
    Détails du profil
    Informations personnelles :
    Localisation : France

    Informations forums :
    Inscription : février 2003
    Messages : 89
    Points : 78
    Points
    78
    Par défaut
    Pourquoi ne pas mettre un exemple du code.
    Cela peut servir à tout le monde...
    Alain
    ______________________________
    Delphi7+XmlRAD2005+WS2003+IIS

  5. #5
    Membre expérimenté

    Profil pro
    Inscrit en
    mars 2002
    Messages
    520
    Détails du profil
    Informations personnelles :
    Localisation : France

    Informations forums :
    Inscription : mars 2002
    Messages : 520
    Points : 1 421
    Points
    1 421
    Par défaut
    Citation Envoyé par powerlog
    Pourquoi ne pas mettre un exemple du code.
    Cela peut servir à tout le monde...
    Oui, désolé...
    Je reprends l'exemple (OnAuthenticate) du code Delphi dans le tuto de RDM, en vert les modifs :

    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    7
    8
    9
    10
    11
    12
    13
    14
    15
    16
    17
    18
    19
    20
    21
    22
    23
    24
    25
    26
    27
    28
    29
    30
    31
    32
    33
    34
    35
    36
    37
    38
    39
    40
    41
    42
    43
    44
    45
    46
    47
    48
    49
    50
    procedure TTrainingAdm.XMLCollectionEvents1Authenticate(XMLCollection: IXMLCollection; e: TAuthenticateEventArgs);
    var
      Database: IDacDatabase;
      Session: WideString;
      USR_NAME: WideString;
      Expiration: TDateTime;
      SavePivot: WideString;
    begin
      SavePivot := Context.GetValue('XMLC_Pivot');
      if CompareText(XMLApplication.InitParams.Values['XMLC_SecurityLevel'], 'GUEST') = 0 then
      begin
        Context.SetValue('XMLC_Authenticated', '1');
        Exit;
      end;  
      Database := XMLCollection.GetDatabase('Database');
      if Database = nil then
      	XMLRequest.RaiseError('Cannot find database', 'TTrainingWM.XMLCollectionEvents1Authenticate');
      if not Database.GetConnected then
        Database.Open;
      Database.StartTransaction;
      try
        try
          e.Handled := True;
          USR_NAME := Context.GetValue('XMLC_UserName');
          Session := Context.GetValue('XMLC_Session');
          Context.SetValue('USR_NAME', USR_NAME);
          Context.SetValue('USR_SESSION', Session);
          XMLCollection.DBExtract('qryUSRSession');
          if Context.GetValue('USR_ID') = '' then
          begin
            Context.SetValue('XMLC_Authenticated', '0');
            XMLRequest.RaiseError('XMLC_AUTHENTICATION_REQUIRED', 'TTrainingWM.XMLCollectionEvents1Authenticate');
          end;
          Expiration := StrToFloatDef(Context.GetValue('USR_EXPIRATION'), 0);
          if Expiration < Now then
          begin
            Context.SetValue('XMLC_Authenticated', '0');
            XMLRequest.RaiseError('XMLC_AUTHENTICATION_REQUIRED', 'TTrainingWM.XMLCollectionEvents1Authenticate');
          end;
          Context.SetValue('XMLC_Authenticated', '1');
          // mettre ici le code de gestion des groupes et autorisations (cf Personnaliser l'autorisation)
        except
          Database.Rollback;
          raise;
        end;
      finally
        Context.SetValue('XMLC_Pivot', SavePivot);
        Database.Commit;
      end;
    end;
    Probablement que dans les prochaines releases >2006, ce sera fixé par l'éditeur.

    Sylvain
    .NET / ASP.NET MVC / Delphi / XMLRAD / XSL / Technos Web

    Mon Blog : http://blog.developpez.com/index.php?blog=89
    Mes Articles : http://sjames.developpez.com/
    Rubrique XMLRAD: http://xmlrad.developpez.com

Discussions similaires

  1. Réponses: 0
    Dernier message: 29/09/2013, 16h34
  2. Réponses: 0
    Dernier message: 11/05/2006, 08h19
  3. Réponses: 0
    Dernier message: 24/03/2006, 08h33
  4. Réponses: 0
    Dernier message: 17/10/2005, 08h05
  5. [MFC] Comment personnaliser sa police de caractères ?
    Par Guybrush113 dans le forum MFC
    Réponses: 11
    Dernier message: 26/05/2004, 07h29

Partager

Partager
  • Envoyer la discussion sur Viadeo
  • Envoyer la discussion sur Twitter
  • Envoyer la discussion sur Google
  • Envoyer la discussion sur Facebook
  • Envoyer la discussion sur Digg
  • Envoyer la discussion sur Delicious
  • Envoyer la discussion sur MySpace
  • Envoyer la discussion sur Yahoo