Procedure Habilitation Optimiser(NulAbsorbant, PasDEffetDeBord) LireDroitsDAcces(NomFichier : Nul Ou Caractere, DroitsGroupe : Nul Ou DroitsDAcces=? Sortie, DroitsAutres : Nul Ou DroitsDAcces=? Sortie) Retourner Nul Ou DroitsDAcces;
Le nom du fichier peut comporter un accès distant introduit par l'opérateur @. En ce cas, l'opérateur doit introduire un nom d'un serveur disponible parmi les noeuds de la topologie gérée par Up ! Object Request Broker. Le fichier dont les droits d'accès sont lus est alors hébergé sur ce serveur et non en local.
Le paramètre DroitsGroupe récupère les droits d'accès pour les utilisateurs du groupe de rattachement de l'utilisateur propriétaire du fichier. Le paramètre DroitsAutres récupère les droits d'accès pour les autres utilisateurs.
Les droits d'accès sont encodés selon l'énuméré DroitsDAcces.
Si NomFichier est Nul, le résultat est Nul.
Si la lecture des droits n'est pas possible, l'exception LireDroitsDAccesImpossible est envoyée.
Principal
/*******/
Variable
/******/
DroitsUtilisateur : DroitsDAcces;
DroitsGroupe : DroitsDAcces;
DroitsAutres : DroitsDAcces;
Debut
...
DroitsUtilisateur=LireDroitsDAcces("c:/tmp/essai.txt", DroitsGroupe, DroitsAutres);
/* Lit les droits d'accès pour le fichier 'c:/tmp/essai.txt'. */
...
Fin Principal
| - | - | - | - | - | - | - | - | - |