IdFTP trop longue pour modifier un fichier sur le serveur ?

**codon21** · 13/08/2013, 14h23

Bonjour,

J'ai fait un programme pour uploader les fichiers text sur un serveur FTP.

Si je crée un nouveau fichier avec le contenu qui est est une chaine de caractère par exemple, cela est fait immédiatement.

Mais quand je modifie le contenu d'un fichier texte qui existe déjà. Le programme marche. Mais c'est trop longue.

La modification du fichier n'est pas faite immédiatement, il faut attendre environ 40 secondes.

J'aimerais savoir s'il existe une solution pour que la modification soit faite immédiatement ???

Voici 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
 NbrRq : string;
      ListFichier : TstringList;      
 
      if ListFichier.IndexOf(FichierSurServeurFTP) >= 0 then
      begin
        buttonSelected := MessageDlg('Un fichier du même nom existe déjà à cet emplacement, voulez vous le remplacer ?'
                          ,mtCustom,[mbYes,mbCancel], 0);
 
        if buttonSelected = mrYes    then
          IdFTP1.Delete(FichierSurServeurFTP)
        else if buttonSelected = mrCancel then
          exit;
      end;
 
      MemoryStream.Clear;
      NbrRq := inttostr(1000);
      MemoryStream.Write(NbrRq[1], Length(NbrRq));
      MemoryStream.Position := 0;
      IdFTP1.put(MemoStream,FichierSurServeurFTP);

Merci !