Discussion :

[bcandel]

Bonjour,

J'ai un probleme avec le composant FTPCli de Franois PIETTE. Lorsque j'essaie de faire plusieurs listings de fichiers de repertoires sur le serveur, seul le premier fonctionne, les suivants echouent. J'ai teste l'insertion d'une procedure de deconnection / reconnection entre 2 listings. En vain.
Le code suivant se situe apres connection au seveur FTP et est insere dans une boucle. Des le deuxieme passage dans la boucle donc, le listing ne fonctionne plus.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
 
with FFTPClient do begin
  HostDirName := aHostDirName;
  if CWD then begin
    LocalFileName := aLocalFileName;
    if Ls then
      Result := True
    else
      Result := False;
    LocalFileName := '';
    DeleteFile(aLocalFileName);
  end;
end;

J'ai biensur teste les variables aHostDirName et aLocalFileName qui changent a chaque passage dans la boucle.

D'avance merci si vous avez un tuyau.

[jula2i]

Salut bcandel,

"Pourquoi faire simple quand on peux faire compliquer" !
Ce ne serait pas ta devise par hazard ?!

Pourquoi n'utilises tu pas le composant IdFTP ?
Il est simple d'utilisation et très bien documenté.

A+.

[bcandel]

Merci a jula2i pour ses conseils.
J'ai finalement resolu mon probleme. L'erreur venait du fait que, entre deux executions de la procedure FFTPClient.Ls, j'affectait une valeur a la propriete FFTPClientHostFileName.
Or ils semble qu'une valeure nulle ('') de HostfileName soit requise pour que la procedure Ls fonctionne. Une re-initialisation de HostFileName a vide ('') a donc regle le probleme.

[bcandel]

En realite, la propriete HostFileName sert de filtre a la commande FFTPClient.Ls. Pour lister les fichiers en '.txt', il suffit donc d'affecter la valeur '*.txt' a HostFileName.