Discussion :

[Ema1714]

Salut,je suis entrain de developper un logiciel de téléchargement et je veux savoir s'il y'a une méthode particulière qui sert à démarrer la progression de TProgressBar d'une position définie, par exemple si je stoppe le téléchargement l'état de la barre de progression est fixe (j'arrive à ce réaliser), si je le reprends la progression commence à zéro (à cause de IDHttpWorkbegin & IDHttp work), j'ai essayé plusieurs astuces pour commencer la progression de la position d’arrêt ( c'est le cas dans IDM), mais j'y arrive pas , alors y'a t-il une méthode ou une instruction pour ce faire?

[Fxg]

En sauvegardant la propriété position du TProgressBar au moment de l'arrêt du téléchargement. Puis en initialisation la propriété Min avec cette valeur.

Ou peut être ai-je mal compris la demande

[Ema1714]

Mon code est un peu long donc pour résumer :voici la partie du code qui est censé changer la progression de TProgressBar:

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
 
procedure TForm1.IdHTTPWorkBegin(ASender: TObject; AWorkMode: TWorkMode; AWorkCountMax: Int64);
  begin
  if AWorkMode = wmRead then
  begin
    //progressBar
    ProgressBar1.Max := AWorkCountMax;
    if tel_repri=true then  // cette variable est initialisée à vrai quand je reprends un téléchargement
    ProgressBar1.Min:=progressPos ;
 
  end;
  end;
 
 procedure TForm1.IdHTTPWork(ASender: TObject; AWorkMode: TWorkMode; AWorkCount: Int64);
  begin
  if AWorkMode=wmRead then
  begin
    //progressBar
     ProgressBar1.position:=AWorkCount;
     progressPos:=ProgressBar1.Position;
 
    end;
  end;

ça n'a pas marché, quelle erreur j'ai commis?

[Lung]

Et en ajoutant un Application.ProcessMessages; après avoir modifié ta ProgressBar ?

[tourlourou]

En cas de reprise, est-ce que AWorkCountMax est diminué du fragment déjà téléchargé ?
Et est-ce que AWorkCount représente la totalité déjà téléchargée, ou seulement depuis la reprise, voire seulement l'incrément ?

[Ema1714]

@Ling j'ai ajouté Application.ProcessMessages; mais ça marche pas toujours.
@Tourlourou AWorkCount représente la totalité téléchargée seulement depuis la reprise, et si vous ai bien compris je crois que AWorkCountMax a toujours la même valeur quand je fais une reprise, d'ailleurs quand je reprends un téléchargement c'est comme si je commence un nouveau téléchargement en ce qui concerne les valeurs AWorkCountMax et AWorkCount.

[Fxg]

Ce ne serait pas plutôt

Code :

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

    ProgressBar1.position:=progressPos ;

au lieu de

Code :

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

    ProgressBar1.Min:=progressPos ;

si tu reprend le téléchargement je laisserai la valeur min et max aux mêmes valeurs et je ferais juste bouger la valeur de la porgressBar jusqu'à sa valeur avant l'arrêt.