Discussion :

[amitoum]

Bonjour,

je cherche de la documentation sur la manière de définir et modifier les permissions d'une application, en particulier pour utiliser CopyFile et DeleteFile.

Je n'ai trouvé qu'une indication proposant de modifier les options du projet, qui ne proposent apparemment que 3 niveaux de droits mais sans possibilité de modulation par répertoire.
Je n'arrive pas à trouver de précisions sur la notion d'invocateur et je ne saisis pas bien la différence entre droits le plus grands possibles et administrateur.

J'ajoute que je ne souhaite pas donner de permission trop large, mais plutôt de limiter les droits d'écriture et d'effacement à un répertoire et bien entendu ses sous-répertoires.

J'utilise Ubuntu mais je souhaite également que l'appli puisse être utilisée sous Windows.

[sematimo]

pourquoi ne pas utiliser fileutil pour copier ou supprimer un fichier

[amitoum]

@sematimo
c'est ce que j'essaye de faire avec CopyFile et DeleteFile.qui sont tous deux dans fileutil sauf erreur de ma part, et fileutil est dans ma clause uses; mais rien ne se passe et j'ai pensé qu'il devait y avoir un problème de permission d'où mes questions.

Y a-t-il un moyen de détecter pourquoi CopyFile ne fonctionne pas?

[Roland Chastain]

Bonjour !

Y a-t-il un moyen de détecter pourquoi CopyFile ne fonctionne pas?

Je viens de faire l'essai suivant (sous Linux).

J'ai créé un fichier dont j'ai changé les attributs, de sorte que personne n'ait le droit de le supprimer.

Code X :

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

1
2
3
4
5
6
7
8
[roland@localhost permissions]$ touch fichier.txt
[roland@localhost permissions]$ lsattr fichier.txt
--------------e----- fichier.txt
[roland@localhost permissions]$ sudo chattr +i fichier.txt
[roland@localhost permissions]$ lsattr fichier.txt
----i---------e----- fichier.txt
[roland@localhost permissions]$ rm fichier.txt
rm: impossible de supprimer 'fichier.txt': Opération non permise

Ensuite j'ai mis dans mon projet Lazarus le code suivant :

Code :

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

1
2
3
4
5
6
7
procedure TForm1.Button1Click(Sender: TObject);
begin
  if DeleteFile('fichier.txt') then
    Memo1.Append('Fichier supprimé')
  else
    Memo1.Append(SysErrorMessage(GetLastOSError));
end;

Et donc, quand j'appuie sur le bouton, le fichier n'est pas supprimé, et je vois dans mon TMemo le message suivant :

Operation not permitted

Cela vous aide-t-il ?

[sematimo]

Chez moi fileutil fonctionne.

Code :

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

1
2
3
4
5
6
//pour copier
fileutil.CopyFile(source,destination,true,false);
 
//pour supprimer
fileutil.DeleteDirectory(cheminDossier, False);
//false supprime dossier, true suupprime le contenu

[amitoum]

@Roland Chastain
merci beaucoup, je vais m'en servir.

Dans l'intervalle, j'ai envisagé d'utiliser la fonction RenameFile qui me paraissait pouvoir remplacer avantageusement CopyFile+DeleteFile, mais je me suis aperçu que cette fonction écrasait sans prévenir un éventuel fichier préexistant portant le nom du fichier de destination. Autrement dit, il faut vérifier l'absence de fichier qui serait écrasé avant de l'utiliser. Dommage.

Dommage également que cette fonction (peut-être plus ancienne et qui fait partie d'une autre unité) ne bénéficie pas des mêmes options que CopyFile; il pourrait être intéressant de l'harmoniser.

[sematimo]

Sous windows, tu peux utiliser filesetattr.

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
//faReadOnly 	: 1 : Read-only files
//faHidden 	: 2 : Hidden files
//faSysFile 	: 4 : System files
//faVolumeID 	: 8 : Volume ID files
//faDirectory 	: 16 : Directory files
//faArchive 	: 32 : Archive files
//faSymLink 	: 64 : Symbolic link
 
var
  fileName : string;
  attrs    : Integer;
 
begin
  filename:=path+'test.txt';
  filesetattr(filename,0);
  //1 met le fichier en lécture seule, 0 met en lécture/écriture
 
  attrs := FileGetAttr(fileName);//récupère l'attribut
 
  // test
  if attrs and faReadOnly > 0
  then ShowMessage('Fichier en lécture seule '+inttostr(attrs))
  else ShowMessage('Fichier en lécture/écriture '+inttostr(attrs));
end;