Discussion :

[el_coyote]

Bonjour à tous,

J'ai intégré a une application un client FTP qui me permet de récupérer des fichiers. Le problème est qu'une fois le fichier sur ma machine je n'arrive pas à l'ouvrir (depuis la même application), j'ai le message :
"Le processus ne peut accéder au fichier car ce fichier est utilisé par un autre processus'. Processus Monprog.exe"

voici globalement ce que je fait :
Je me connecte au serveur FTP
je change de répertoire
je recupere mon fichier (avec idFTP.get)

sur l’événement idFTP.onWorkEnd
je me déconnecte
je lance ma procédure qui ouvre mon fichier (enfin charge le fichier dans un TStringList : MaStringList.LoadFromFile(monfichier.txt)

Si je lance la procédure qui ouvre le fichier après relance du programme ça fonctionne !!

Est-ce le idFTP.get qui ne libère par le fichier comme il faut ?

j'ai essayer de charger mon fichier après une tempo: même symptôme

[Ph. B.]

Bonjour,

J'ai intégré a une application un client FTP qui me permet de récupérer des fichiers. Le problème est qu'une fois le fichier sur ma machine je n'arrive pas à l'ouvrir (depuis la même application), j'ai le message :
"Le processus ne peut accéder au fichier car ce fichier est utilisé par un autre processus'. Processus Monprog.exe"

Vous utilisez la commande

Code :

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

procedure TIdFTP.Get(const ASourceFile, ADestFile: string; const ACanOverwrite: Boolean = False; AResume: Boolean = False);

Le verrou sur le fichier n'est libéré qu'après la sortie de la méthode gérant l'événement OnWorkEnd. En gardant cette commande, il faut pour maintenir un traitement automatique utiliser un timer qui sera activé dans la méthode de gestion OnWorkEnd. Le traitement de l'événement OnTimer sera de charger le fichier et aussi de désactiver le timer.

Ce n'est pas des plus élégants , aussi il est préférable d'utiliser la surcharge de la commande Get suivante qui utilise un stream pour réceptionner les données :
procedure TIdFTP.Get(const ASourceFile: string; ADest: TStream; AResume: Boolean = False);.

Par exemple, on peut initialiser un TFileStream que l'on passera à la commande Get. Sur l'événement OnWorkEnd, on libèrera le stream et on chargera le fichier.

[el_coyote]

Bonjour,

Oups je viens de voir que j'ai oublié de répondre. Donc merci pour la réponse, j'ai utilisé la méthode bourrin: le timer. Par contre je n'appelais pas directement ma fonction dans le OnWorkEnd, je déclenchais un autre événement dans le OnWorkEnd et dans la réception de l’événement j'appelais ma fonction. j'ai tout remplacé par le timer et ça fonctionne.