Discussion :

[mballasse]

Bonjour,
Je travaille sous Delphi 6 (oui je sais ! )
J'ai une application composée d'environ 150 fiches (construites sur la base d'un TForm)
- chaque fiche embarque au moins un composant TActionList qui lui même référence X actions (couplées à l'interface utilisateur, menu de fiche, bouton,etc), ses fiches sont disponibles et non autocréées au niveau du projet

Je cherche un moyen de récupérer toutes les actions de toutes les fiches afin de gérer des droits applicatifs spécifiques ou globaux

comment puis je faire pour récupérer la liste de toutes ces actions ?

Par avance merci pour votre aide.

[popo]

Tes composants sont forcément déclarés dans chacune de tes classes héritant de TForm.

Tu peux donc créer un TList ou un TObjectList contenant la liste de tous ces composants TActionList et donc de toutes ces actions

La manière moche consiste à faire à faire un truc de ce genre.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
MaListeDeToutesLesActions.Add(MaPremiereForm.MonActionList);
MaListeDeToutesLesActions.Add(MaDeuxiemeForm.MonActionList);
MaListeDeToutesLesActions.Add(MaTroisiemeForm.MonActionList);

La manière un plus sioux consiste à boucler sur les formes et faire la même chose. Par contre je sais pas comment faire, mais l'idée est là.

Une fois que tu as cette liste tu parcours les listes d'actions et donc leurs actions propres comme tu l'entends.

PS : Je t'ai donné la réponse qui correspond à la façon dont tu souhaites gérer tes droits mais il faut savoir qu'il y a des méthodes plus élégantes. Fait une recherche sur ce même forum pour t'en apercevoir

[ShaiLeTroll]

Salut Caribou !

150 TForm dans un seul EXE, j'ai connu ^_^ !
TActionList, ah bien, ça donne une idée du style, un peu plus rigoureux que des event handler direct !

Une gestion des habilités ! ouais classique
Ok, je vois, bon je suppose que créer les fenêtres une par une dans une bouche serait trop pénible, question de contexte pour le Create de la TForm, tu as besoin de DB ou d'objet métier !


Phase 1 :
Enumération des fenêtres !

Méthode 1
- Voir si l'on peut choper les ressources dans l'exe, tu cherches toutes les ressources qui commence par TPF0, avantage peu de code, faut juste savoir explorer la liste de ressources, j'ai jamais essayé, je suppose que c'est uniquement via API EnumResourceNames avec une CallBack, une TStringList pour stocker les noms de Classes
Un THabilitesManager aurait la TStringList et une méthode RegisterFormResourceName(String AResourceName);

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

THabilitesManager.RegisterFormResourceName(lpszName); // lpszName = LPTSTR = PChar = PAnsiChar ou PWideChar selon Delphi, StrPas est implicite selon mes souvenirs

Avantage, pas de code à maintenir si de nouvelles fenêtres sont ajoutées et pas plus pour les anciennes auxquelles ont ajoute des ActionList



Méthode 2
- Une vraie "Class Registry", avec une TClassList interne, tu ajoutes dans la section Initialization l'appel à RegisterForm(TFormClass AClass);

C'est proche de la proposition de popo, mais plusieurs avantages : chaque fenêtre reste indépendante pas besoin d'avoir un uses de 150 unités pour le Register
On gère au niveau Classe et non pas au niveau Instance

juste qu'une fois la classe enregistrée, on a pas besoin de maintenir le register pour chaque TActionList ajouté, on peut même comparer la DB qui stocke les droits avec l'état courant du dernier exe
Cela peut ainsi permettre d'ajouter automatiquement une valeur par défaut et avertir l'administrateur de nouveaux menus sans habilité

Par contre, le Register il ne faut pas l'oublier dans Initialization et cela disperse le code, c'est un petit défaut

C++Builder :

Code c++ :

Sélectionner tout - Visualiser dans une fenêtre à part

THabilitesManager::RegisterForm(__classid(TMaClasseDuFichier));

Delphi (je suis rouillé) :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

THabilitesManager.RegisterForm(TMaClasseDuFichier);

Comme la ressouce à le nom de la TForm, c'est facile de retrouver la ressource

Méthode 1
RegisterForm c'est

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
FRegisteredResNameList: TStringList;
FRegisteredResNameList.Add(AResourceName);

Méthode 2
RegisterForm c'est

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
FRegisteredClassList: TClassList;
FRegisteredClassList.Add(AClass);

Méthode 1

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

TResourceStream.Create(FindResourceHInstance(FindClassHInstance(TMaClasseDuFichier)), FRegisteredResNameList[i], PChar(RT_RCDATA));

Méthode 2

Code c++ :

Sélectionner tout - Visualiser dans une fenêtre à part

new TResourceStream(FindResourceHInstance(FindClassHInstance(TMaClasseDuFichier)), FRegisteredClassList[i].ClassName, PChar(RT_RCDATA));

Phase 2 :
Pseudo Fenêtre !
Tu utilises un TComponent, un TResourceStream, la méthode TStream.ReadComponent pour charger la ressources

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
var
 MaForm: Component;
 
 MaForm := ResourceStream.ReadComponent(nil);

Ensuite, un ComponentCount pour trouver le ActionList par sa Classe (InheritsFrom ou is)

Code c++ :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
 for (int i = 0; i < MaForm->ComponentCount; i++)
 {
   if (MaForm->Components[i]->InheritsFrom(__classid(TActionList)))
   //if MaForm.Components[i] is TActionList then
     là facile ... tu as un TActionList
 }

la Méthode 2 en code

Code c++ :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
class THabilitesManager : public TObject
....
  private
    static THabilitesManager* FSingleton;
    TClassList* FRegisteredFormClassList;
  public
    static THabilitesManager* GetInstance();
    static void RegisterForm(TFormClass AClass);
 
    __property RegisteredFormClassCount = {read=GetRegisteredFormClassCount};
    __property RegisteredFormClasses[int Index] = {read=GetRegisteredFormClass};

Code c++ :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
 
/*static*/ THabilitesManager* THabilitesManager::GetInstance()
{
  if ( ! FSingleton)
    FSingleton = new THabilitesManager(); // Thread Unsafe !!!
 
  return FSingleton;
}
 
/*static*/ void THabilitesManager::RegisterForm(TFormClass AClass)
{
  GetInstance()->RegisteredFormClassList->Add(AClass);
}