Discussion :

[PLO435]

Bonjour,

Je crée actuellement une application contenant une procédure (fabriquée par mes soins ) permettant de transférer tout un dossier ainsi que ses fichiers et ses sous-répertoires sur un serveur. J'utilise pour cela le composant indy IdFTP. Jusqu'à là tout va bien.

Je compte au départ le nombre de fichiers à télécharger sur le serveur pour déterminer la propriété "max" d'un progressbar et je rajoute un à sa position chaque fois qu'un fichier eut été copié.

Malheureusement pour moi, lors de l'utilisation de la procédure IdFTP1.Put(mes paramètres), mon application est bloquée durant le temps du transfert J'aimerais pouvoir continuer d'utiliser mon application pendant le transfert. Est-ce possible ? Et si oui, comment ?

Cordialement,

PLO435

[ShaiLeTroll]

Mets le code de l'Upload dans un Thread, avec un Synchronize dans la Boucle qui appele Put, tu mettras à jour le ProgressBar

[PLO435]

Mets le code de l'Upload dans un Thread, avec un Synchronize dans la Boucle qui appele Put, tu mettras à jour le ProgressBar

En fait ce n'est pas le progressbar qui me pose problème.

Ce que j'aimerais faire c'est avoir un bouton "annuler" qui, une fois clické, changerait une variable boolean à false. Ainsi, ma procédure qui télécharge plusieurs fichiers sur le serveur, ira vérifier la variable avant de copier le fichier suivant pour savoir s'il faut continuer le transfert.

Et c'est là où réside le problème. Quand le téléchargement est en cours, je ne peux pas clicker sur mon boutton comme sil était enabled à false;

[ouiouioui]

TIdAntiFreeze tu met sur ta form.

indy dans un thread serai plus efficace! Et si tu veux pas de thread ICS est non bloquant et plus adapté à ce type d'utilisation.

[PLO435]

TIdAntiFreeze tu met sur ta form.

indy dans un thread serai plus efficace! Et si tu veux pas de thread ICS est non bloquant et plus adapté à ce type d'utilisation.

J'ai donc mis un TIdAntiFreeeze sur ma form, cependant le problème persiste ; je ne peux toujours pas clicker sur quelque boutton.

Qu'est ce qu'ICS ? Est-ce intégré à Delphi ?

Je ne comprend pas bien non plus le système du thread. Est-ce pour lancer en parallèle une "mini-application" permettant de s'occuper du transfert ? Si c'est cela comment procède-t-on ?

Merci déjà de votre aide

[ShaiLeTroll]

Tu pourrais regarder l'aide !

Objet TThread pour utiliser un processus léger parallèle à au processus principal de ton application !

On veut bien aider mais faut faire un effort !

Voici un idée générale du code à obtenir

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
type
  TUploader = class(Thread)
  private
     FFileName: string;
  public
     procedure Upload(const AFileName: TFileName);
 
     procedure Execute(); override;
  end;
 
...
 
procedure TUploader.Upload(const AFileName: TFileName);
begin
  FreeOnTerminate := True;
  FFileName := AFileName;
 
  Resume();
end;
 
 
procedure TUploader.Execute(); 
begin
  With TFTP.Create(nil) do
  try
    Put(FFileName);
  finally
    Free();
  end;
end;

Code :

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

  TUploader.Create(True).Upload(MonFichier);

[ouiouioui]

TIdAntiFreeeze tu l'active avant le transfert et stop après ?
ICS http://www.overbyte.be/frame_index.h...ducts/ics.html
mais le thread c'est mieux

[PLO435]

ok merci beaucoup pour tout

Cordialement,

PLO435