Discussion :

[Beauserge]

Bonjour

J'utilise le composant Indy et une TListView (voir image ci-après) pour lister tous les fichiers sur un serveur FTP.

Je voudrais savoir comment :

- trier les fichiers par leurs types d'extensions au lieu de les avoir alphabétiquement ?
- telecharger uniquement les fichiers d'un ou plusieurs type d'extensions (exemple - tous les fichiers zip ou jpg) ? (directement sur le serveur ou dans le TlistView)

Merci d'avance pour votre aide

A vous lire
Cordialement
Beauserge

[Invité]

Tu peux utiliser une TList et la méthode Sort.

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
39
40
41
42
43
44
45
46
47
48
procedure TForm2.Button1Click(Sender: TObject);
var
   Liste  : TList<string>;
   i      : integer;
begin
   Liste := TList<string>.Create;
 
   try
      Liste.Add('a.b');
      Liste.Add('a.c');
      Liste.Add('b.e');
      Liste.Add('d.r');
      Liste.Add('a.k');
      Liste.Add('z.a');
 
      Liste.Sort(TComparer<string>.Construct(function(const Left, Right: string): integer
                                             var
                                                ExtLeft, ExtRight: string;
                                             begin
                                                ExtLeft  := ExtractFileExt(Left);
                                                ExtRight := ExtractFileExt(Right);
 
                                                if ExtLeft = ExtRight then
                                                begin
                                                   if Left < Right then
                                                      Result := -1
                                                   else
                                                      if Left > Right then
                                                         Result := 1
                                                      else
                                                         Result := 0;
                                                end
                                                else
                                                   if ExtLeft < ExtRight then
                                                      Result := -1
                                                   else
                                                      if ExtLeft > ExtRight then
                                                         Result := 1
                                                      else
                                                         Result := 0;
                                             end));
 
      for i := 0 to Liste.Count - 1 do
         Memo1.Lines.Add(Liste[i]);
   finally
      Liste.Free;
   end;
end;

Pour télécharger que les fichiers d'une extension, tu parcours la liste et si l'extension correspond tu télécharges.

Tu peux aussi prendre les listes de Spring4D ou les FluentQuery de Malcolm Groves pour pouvoir "requêter" dans ta liste.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
   for MonFichier in ObjectQuery<string>
                       .Select
                       .From(Liste)
                       .Where(function(aNom: string) : boolean
                              begin
                                 Result := ExtractFileExt(aNom) = '.zip'
                              end) do
   begin
      // téléchargement que des fichiers zip
      // ...
   end;

[Beauserge]

Bonjour Retwas

dans le code pour trier la listview, ça ne passe pas.
erreur ; attendu mais < trouvé ???

Code :

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

1
2
var
   Liste  : TList<string>;

A te lire
Beauserge

[Lung]

dans le code pour trier la listview, ça ne passe pas.
erreur ; attendu mais < trouvé ???

Quelle est ta version de delphi ?

[Beauserge]

Je possède la Version DELPHI 7 perso

[Invité]

Je possède la Version DELPHI 7 perso

Dans ce cas tu n'as pas les listes de générique ..