Discussion :

[jean christophe]

Bonjour,

J'essaie de me remettre á Delphi (comme amateur) en voulant me faire une petite appli qui m'aiderait á enregistrer des files dans une database.
Pour ce faire, je voudrais:
1 compter le nombre de fichiers qu'il y a dans un répertoire
2 définir si les fichiers sont des fichiers ou des répertoires
3 si ce sont des fichiers, si ils sont bien des *.jpg
4 si ce sont des jpg, les passer dans la database

Mais je plante déja au point 1!

Sinon j'ai pensé faire quelquechose comme ceci:

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
 
for i:= 0 to i:= Le nombre de files dans le répertoire do
Begin
   S:= ExtractFileName(FileName:string):string;
   if ExtractFileExt(FileName:string):string = jpg
   then
   begin
      with ADOTable do
      begin
         if Active = False  then Active := True ;
         Open ;
         Last ;
         Insert ;
         Edit;
         FieldValues ['Path'] := 'Billeder/' + S   
         Post ;
         Active := False ;
         Close ;
         end;
      end;
end;

J'ai pensé de me servir des composants: TShellComboBox & TShellTreeview.
La base est en mysql
Je tourne sous Delphi6.

Avez vous des tuyaux, voir des tutaux?

Merci
Sincérement
Jean-Christophe

[ouiouioui]

bonjour, pour le 1,2 lister les fichiers: http://delphi.developpez.com/faq/?pa...listerfichiers

le 3 ExtractFileExt

[ShaiLeTroll]

En gros, tu fais une GED, attention, le stockage de blob en base, c'est périlleux ... il est conseillé de faire une table ne contenant que 2-3 colonnes (ID_AutoInc, Type de données, BLOB)
Attention, à la limite du champ, 64Ko sont vite dépassent, faut passer au MEDIUMBLOB ou LONGBLOB

l'exemple de la FAQ est très bon, mais tu peux en faire une fonction réutilisable

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
25
26
27
28
29
30
31
32
33
34
35
36
37
38
  {* ----------------------------------------------------------------------- }
  procedure GetListFile(const PathFile: string; ResultList: TStrings; Recurse: Boolean = False);
  var
    SearchRec: TSearchRec;
  begin
    ResultList.BeginUpdate();
    try
      if not Recurse then
        ResultList.Clear();
 
      // '*' ou '*.*' Renvoie '.' et '..'
      if SysUtils.FindFirst(PathFile + '*', faAnyFile, SearchRec) = 0 then
      begin
        try
          repeat
            if (SearchRec.Name <> '.') and (SearchRec.Name <> '..') then
            begin
              if Recurse then
              begin
                if (SearchRec.Attr and faDirectory) <> 0 then // Dossier
                  GetListFile(IncludeTrailingPathDelimiter(PathFile + SearchRec.Name), ResultList, True) // C'est un Dossier, on cherche les fichiers qu'il contient !
                else
                  ResultList.Add(PathFile + SearchRec.Name) // Fournie Racine + Nom du Fichier
              end
              else
                if (SearchRec.Attr and faDirectory) = 0 then // Fichier
                  ResultList.Add(SearchRec.Name); // Fourni juste le nom du Fichier
            end;
 
          until SysUtils.FindNext(SearchRec) <> 0;
        finally
          SysUtils.FindClose(SearchRec);
        end;
      end;
    finally
      ResultList.EndUpdate();
    end;
  end;

[jean christophe]

Super, merci pour vos réponses!

Ca marche super.
2450 données en même pas 1 min!

Maintenant j'ai besoin d'une certitude en plus:
Pour le chemin de mes images, j'ai écrit en relatif, c'est á dire:

Code :

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

1
2
 
../billeder/gb/nomdelafile.jpg

(déja lá je me suis planté j'ai écrit le "/" en linux/html!!! )
Ma question est:
L'application terminée, la file exe ira ouvrir nomdelafile.jpg par rapport á l'endroit oú est située l'application n'est ce pas?
C'est á dire que si le programme est placé dans:

Code :

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

1
2
 
USB:\programme\monprogramme.exe

Je devrais placer mon répertoire billeder a cote de "Programme"

Code :

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

1
2
3
4
 
Dir ma clef USB
USB:\programme\monprogramme.exe
USB:\billeder\gb\nomdelafile.jpg

Sincérement
Jean-Christophe

[ShaiLeTroll]

En général, je n'utilise pas . et .., mais en théorie oui,

tu peux aussi stocker "/billeder/gb/nomdelafile.jpg" et faire Application.ExeName et ExtractFilePath deux fois ...

[Andnotor]

L'application terminée, la file exe ira ouvrir nomdelafile.jpg par rapport á l'endroit oú est située l'application n'est ce pas?

Pas exactement .

Le chemin est relatif au répertoire de travail. Il corresond au répertoire de l'application uniquement s'il n'a pas été défini.
Les OpenDialog le modifient. Un raccourci peut aussi le redéfinir.

Donc attention au relatif .

[jean christophe]

Mercdi pour votre aide, ca baigne!


Sincérement
Jean-Christophe