FPACCESS |
Accès avec Free Pascal |
---|---|
Free Pascal | BaseUnix |
Syntaxe
Function FpAccess(pathname:PChar;aMode:cInt):cInt; |
Function FpAccess(pathname:AnsiString;aMode:cInt):cInt; |
Paramètres
Nom | Description | ||
---|---|---|---|
pathname | Ce paramètre permet d'indiquer le chemin de répertoire du fichier | ||
aMode | Ce paramètre permet d'indiquer le mode d'accès : | ||
Constante | Valeur | Description | |
F_OK | 0 | Cette constante permet d'indiquer une vérification de l'existence seulement | |
X_OK | 2 | Cette constante permet d'indiquer une vérification de la possibilité d'exécution | |
W_OK | 4 | Cette constante permet d'indiquer une vérification de la possibilité d'écriture | |
R_OK | 6 | Cette constante permet d'indiquer une vérification de la possibilité de lecture | |
N.B.: Il est possible d'effectuer des combinaisons de vérification comme par exemple «W_OK OR R_OK» permet de vérifier la possibilité de lecture et d'écriture |
Description
Cette fonction permet de demander les droits d'accès d'un fichier.
Remarque
- L'unité BaseUnix a été intégré par Marco Van de Voort. Il contient les fonctionnalités de base du système d'exploitation Unix. Il remplace l'unité Linux de la version 1.0.X du compilateur, mais intègre uniquement un sous-ensemble nettoyé et portable de cette unité. De plus, puisqu'il est destiné au système d'exploitation Unix à l'origine, il n'est pas supporté ou disponible pour tous les systèmes d'exploitation.
Exemple
Voici un exemple permettant de tester le droit d'accès au fichier «SamplesFPAccess.pas» :
- Program SamplesFPAccess;
-
- Uses BaseUnix;
-
- BEGIN
- If(FPAccess('SamplesFPAccess.pas',W_OK) = 0)Then Begin
- WriteLn('Vous avez le droit d''accès');
- End;
- END.
on obtiendra le résultat semblable au suivant sous Ubuntu 9.10 :
Vous avez le droit d'accèsVoir également
Langage de programmation - Perl - Référence des modules - POSIX::access
Dernière mise à jour : Samedi, le 18 juillet 2015