Discussion :

[Abou Zar]

Bonjour,

J'ai 2 utilisateurs crées sur mon serveur FTP.
Quand je me conecte avec le deuxieme utilisateur le message suivant s'affiche à la validation : "indice de liste hors limite(0)".
Mais le premier utilisateur ne me pose pas ce probleme.
Quand dans mon code je change le "0" en "1" il me dit "indice de liste hors limite(1)".
Voici la portion de mon code

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
procedure TForm23.Raffraichir1Click(Sender: TObject);
Var n:integer;
   taille:extended;
   ListItem:TListItem;
   liste:TStringList;
   resultat,DossierCourant,x,x2:string;
   Ext : pchar;
   Icone: TIcon;
begin
liste:=TStringList.Create;
Icone:= TIcon.Create;
listview1.Clear;
liste.Clear;
if not (IdFTP1.Connected) then Button1.onclick(sender);
DossierCourant:=IdFTP1.RetrieveCurrentDir;
ComboBox1.Text:=DossierCourant;
ComboBox1.Items.Add(DossierCourant);
IdFTP1.List(liste,'',false);
IdFTP1.ChangeDir(DossierCourant);
RichEdit1.lines.add('Transfert de liste fichier en cours...');
repeat
   x:=liste[0];

c'est la derniere ligne le probleme.

Merci de votre aide!

[ShaiLeTroll]

Code :

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

1
2
repeat
   x:=liste[0];

tu ne mets pas le plus important le until ?

Code :

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

1
2
for i:= 0 to liste.count - do
  x := liste[i];

Tu devrais revoir les bases de la programmation sur les boucles et le parcours de Tableau ou Liste avant de t'attaquer à un Server FTP

[Abou Zar]

ok,
voici le code complet de la procedure

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
49
procedure TForm1.Rafrichir1Click(Sender: TObject);
Var n:integer;
   taille:extended;
   ListItem:TListItem;
   liste:TStringList;
   resultat,DossierCourant,x,x2:string;
   Ext : pchar;
   Icone: TIcon;
begin
liste:=TStringList.Create;
Icone:= TIcon.Create;
listview1.Clear;
liste.Clear;
if not (IdFTP1.Connected) then Button1.onclick(sender);
DossierCourant:=IdFTP1.RetrieveCurrentDir;
ComboBox1.Text:=DossierCourant;
ComboBox1.Items.Add(DossierCourant);
IdFTP1.List(liste,'',false);
IdFTP1.ChangeDir(DossierCourant);
richedit1.lines.add('Transfert de liste fichier en cours...');
repeat
   x:=liste[0];
   n:=ListView1.Items.Count;
   if (idftp1.Size(x)) <= 0 then
   begin
      ListItem:=ListView1.Items.Add;
      richedit1.SelAttributes.Color:=clnavy;
      richedit1.Lines.Add(x);
      ListItem.Caption:=x;
      ListItem.SubItems.Add('Dossier');
      ListView1.Items[n].ImageIndex:=0;
   end else begin
      Ext:=Pchar(ExtractFileExt(x));//Recuperer l'icon de l'extention de fichier
      Icone.Handle := GetAssociatedIcon(Ext);
      ImageList1.AddIcon(Icone);
      ListItem:=ListView1.Items.Add;
      richedit1.SelAttributes.Color:=clnavy;
      richedit1.Lines.Add(x);
      ListItem.Caption:=x;
      taille:=idftp1.Size(x)/1024;
      if taille<1 then
         ListItem.SubItems.Add(floattostr(int(taille*1024))+' Octets')
         else ListItem.SubItems.Add(floattostr(int(taille))+' Ko');
      listview1.Items[n].ImageIndex := ImageList1.Count -1;
   end;    liste.Delete(0);
until liste.Count=0;
richedit1.SelAttributes.Color:=clgreen;
richedit1.lines.add('Transfert Terminé');
end;

Merci pour l'aide!

[Linkin]

Si aucun fichier n'est présent, tu as un indice hors limite.
Plutôt qu'un repeat avec des conditions d'exécutions qui peuvent êter fausses, il vaudrait mieux un while (test de fin de boucle au début au lieu d'à la fin)

[Abou Zar]

Bonjour,
Merci pour la reponse, effectivement qand je met un fichier l'erreur n'est plus là!

Pour la boucle while, quelle sera la condition à verifier?

Merci de m'eclaircir davantage!

[Andnotor]

La même !

While teste avant, repeat..until teste après.

[Linkin]

Pas la même mais son inverse

[Andnotor]

Bien sûr

[Abou Zar]

Merci d'integrer les changements dans le code (comme il est là).
Sinon je n'arrive pas à vous suivre.

Merci bien!

[droggo]

Jai,

Merci d'integrer les changements dans le code (comme il est là).
Sinon je n'arrive pas à vous suivre.

Merci bien!

Je peux aussi venir border ton lit le soir, si ça peut te rendre service.

C'est en programmant qu'on devient programmeur !

[ShaiLeTroll]

Abou Zar, as-tu au moyen essayé ma réponse en utilisant le for ?

Un minimum d'effort est requis !

[Abou Zar]

Meme avec While ou for il ya probleme!

[popo]

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
liste:=TStringList.Create;
try
Icone:= TIcon.Create;
listview1.Clear;
liste.Clear;
if not (IdFTP1.Connected) then Button1.onclick(sender);
DossierCourant:=IdFTP1.RetrieveCurrentDir;
ComboBox1.Text:=DossierCourant;
ComboBox1.Items.Add(DossierCourant);
IdFTP1.List(liste,'',false);
IdFTP1.ChangeDir(DossierCourant);
richedit1.lines.add('Transfert de liste fichier en cours...');
for i := 0 to liste.count - 1 do
begin
   x:=liste[i];
   n:=ListView1.Items.Count;
   if (idftp1.Size(x)) <= 0 then
   begin
      ListItem:=ListView1.Items.Add;
      richedit1.SelAttributes.Color:=clnavy;
      richedit1.Lines.Add(x);
      ListItem.Caption:=x;
      ListItem.SubItems.Add('Dossier');
      ListView1.Items[n].ImageIndex:=0;
   end else begin
      Ext:=Pchar(ExtractFileExt(x));//Recuperer l'icon de l'extention de fichier
      Icone.Handle := GetAssociatedIcon(Ext);
      ImageList1.AddIcon(Icone);
      ListItem:=ListView1.Items.Add;
      richedit1.SelAttributes.Color:=clnavy;
      richedit1.Lines.Add(x);
      ListItem.Caption:=x;
      taille:=idftp1.Size(x)/1024;
      if taille<1 then
         ListItem.SubItems.Add(floattostr(int(taille*1024))+' Octets')
         else ListItem.SubItems.Add(floattostr(int(taille))+' Ko');
      listview1.Items[n].ImageIndex := ImageList1.Count -1;
   end;    
end;
finally
  if (assigned(liste)) then
    FreeAndNil(liste);
end;
richedit1.SelAttributes.Color:=clgreen;
richedit1.lines.add('Transfert Terminé');

Non testé mais ça devrait fonctionner et ça me parait déjà plus propre comme ça.
D'ailleurs pense à utiliser d'autres noms que ListView1 ou RichEdit1 ! ça fait vraiment travail baclé !