p_select_files - John COLIBRI.

• mots clé:utilitaire - selection de fichiers - utilitaires - template - modèle
  
• logiciel utilisé: Windows 98, Delphi 5.0
  
• matériel utilisé: Pentium 500Mhz, 128 M de mémoire
  
• champ d'application: Delphi 1 à 6 sur Windows, Kylix
  
• niveau: débutant en Pascal et Delphi
  
• plan:
  
  • Introduction
    
  • Utilisation
    
  • Programmation
    
  • Améliorations
    
  • Télécharger
    

1 - Introduction

La procédure handle_files_in_dirs reçoit comme paramètre le chemin de départ et appelle, pour tous les fichiers dans cette arborescence une procédure de traitement.

Si nous connaissons le répertoire de départ, cette procédure est fort pratique.

Toutefois des utilitaires très généraux (correcteur orthographique, liste de référence de variables, pretty-printers etc.) doivent pouvoir travailler sur n'importe quel répertoire, y compris des répertoires qui seront créés après la compilation de l'utilitaire.

Pour désigner le répertoire de départ, plusieurs solutions s'offrent à nous:

• taper le répertoire dans un tEdit, ce qui est fastidieux et risqué
  
• utiliser un tOpenDialog: ce composant standard est effectivement normalisé, mais son but est de sélectionner à la fois le répertoire et le chemin. La navigation dans l'arborescence est devenue un automatisme pour tout utilisateur Windows, mais ne présente pas l'arborescence en permanence
  
• employer un tDirectoryListBox: ce composant nous paraît le plus adapté, et c'est lui que nous retiendrons.
  

Finalement, lors de la mise au point d'utilitaires, il nous arrive d'avoir à utiliser pendant un ou deux jours le même fichier de test, avant de verrouiller le projet.

Par conséquent nous souhaitons:

• avoir un fichier par défaut, sélectionner par un tButton ayant la propriété Default à True
  
• pouvoir naviguer dans une arborescence et afficher les fichiers qui nous intéressente dans une tListBox:
  • la sélection d'un fichier lance le traitement sur ce fichier
    
  • la sélection d'un tButton "tous" et "tous récursivement" lance le traitement sur tous les fichiers de ce répertoire, récursivement ou non
    

2 - Utilisation

2.1 - Un exemple simple

• le fichier par défaut sera u_select_file.pas
  
• le répertoire initial sera le répertoire de tous nos programmes
  

• la procédure qui affiche les fichiers est la suivante:

  procedure list_file_call_back(p_level: Integer; p_dir, p_file_name: String;           p_pt_data: Pointer);       var l_line: Integer;       begin         with tStringList.Create do         begin           LoadFromFile(p_dir+ p_file_name);           for l_line:= 0 to Count- 1 do             display(Strings[l_line]);           Free;         end; // with tStringList       end; // list_file_call_back

• la procédure qui appelle le traitement pour le fichier par défaut est:

  procedure TForm1.default_Click(Sender: TObject);       begin         list_file_call_back(0, k_default_path, k_default_file_name, Nil);       end; // default_Click

• le click dans la tFileListBox correspond au traitement suivant

  procedure TForm1.FileListBox1Click(Sender: TObject);       var l_file_name: String;       begin         with FileListBox1 do           l_file_name:= Items[ItemIndex];         list_file_call_back(0, DirectoryListBox1.Directory+ '\', l_file_name, Nil);       end; // FileListBox1Click

• et le traitement récursif de tous les fichiers est provoqué par:

  procedure TForm1.all_recursive_Click(Sender: TObject);       var l_path, l_extension: String;       begin         l_path:= DirectoryListBox1.Directory;         l_extension:= Copy(FilterComboBox1.Mask, 2, 4);         handle_all_files_recursive(1, l_path, l_extension,             [e_dir_recursive, e_dir_handle_file], list_file_call_back, Nil);       end; // all_recursive_Click

  
  

2.2 - Présentation

2.3 - Répertoires

C:
  programs
    colibri_skelettons
      colibri_project_skelettons
        p_select_files

Vous pouvez naturellement changer cette organisation par Projet | Options | Directories

2.4 - Directives de compilation

• R+ (vérification des intervalles)
  
• S+ (vérification de la pile)
  
• pas d'optimisation
  

3 - Programmation

• notre sélection utilise handle_all_files_recursive. Pour le détail concernant cette procédure, voyez u_handle_files_in_dirs
  
• le traitement de tous les fichiers ayant une certaine extension dans un répertoire pourrait se faire en analysant les fichiers contenus dans tFileListBox. Comme handle_all_files_recursive fait le même traitement, nous avons préféré utiliser cette procédure
  
• nous avons choisi de lire l'extension dans la tFilterComboBox. C'est la propriété Mask qui contient le masque sélectionné. Ainsi le masque DOS pour les fichiers .PAS est *.PAS. Nous obtenons .PAS en supprimant le premier caractères. Notons que la version actuelle de handle_all_files_recursive ne reconnaît pas *.*. Comme nos utilitaires ne traitent jamais TOUS les fichiers, nous avons conservé cette version
  
• plus ennuyeux: pour que les programmes fonctionnent dans n'importe quel répertoire, nous avons opté depuis quelques semaines pour des répertoires relatifs, alors que depuis plus de 10 ans nous utilisions l'immuable "c:\programs\".
  Et naturellement ce changement a fait surgir quelques bugs:
  • le fichier de log est ouvert et fermé pour chaque ligne écrite. En cas de problème, les tampons mémoire sont censées être purgés.
    
  • si le répertoire de l'application change entre la création du log et son ouverture pour écriture plus tard, cela provoque des erreurs (le fichier "log\mon_log.txt" est dans un sous répertoire de celui contenant l'EXE, mais plus tard, le répertoire courant ne contiendra pas en général de sous-répertoire "log\'
    
  • autre problème: l'erreur d'ouverture du log se faisait par les fichiers de base c_basic_file. Lorsque l'ouverture se passe mal, un message est affiché. Et naturellement mis dans le log: c'est bien pour cela qu'il y a un log. Mais le log ne peut être ouvert. Etc.
    
  Pour éviter ces problèmes de chemin relatif et de récursion dans l'affichage des erreurs, nous avons donc modifié la classe c_log. Cette classe ne fait plus aucun appel désormais à u_c_display. Voyez u_c_log.
  

4 - Améliorations

5 - Télécharger le source

• u_handle_files_in_dirs.zip: l'unité de sélection (2 K)
  
• select_files.zip: le projet de test (14 K) qui contient:
  
  • la forme et l'unité principale
    
  • toutes les unités qu'elle utilise
    
  • le projet de démonstration
    

• nous vous remercions de nous signaler toute erreur, inexactitude ou problème de téléchargement en envoyant un e-mail à jcolibri@jcolibri.com. Les corrections qui en résulteront pourront aider les prochains lecteurs
  
• tous vos commentaires, remarques, questions, critiques, suggestion d'article, ou mentions d'autres sources sur le même sujet seront de même les bienvenus à jcolibri@jcolibri.com.
  
• plus simplement, vous pouvez taper (anonymement ou en fournissant votre e-mail pour une réponse) vos commentaires ci-dessus et nous les envoyer en cliquant "envoyer" :

  Nom :
  E-mail :
  Commentaires * :

• et si vous avez apprécié cet article, faites connaître notre site, ajoutez un lien dans vos listes de liens ou citez-nous dans vos blogs ou réponses sur les messageries. C'est très simple: plus nous aurons de visiteurs et de références Google, plus nous écrirons d'articles.
  

6 - L'auteur