Discussion :

[m14w]

Bonjour,
je me sers d'indy pour faire un telechargement, et j'ai mis une barre de progression, pour voir la progression comme indiqué sur le site.
Le probleme c'ets que l'application rame à mort du coup je ne vois pas la progression et l'application est comme bloquée.
J'ai dejà essayé une solution qui consiste augmenter la taille de la pile, mais ca marche pas, donc il me faut un autre moyen.

Merci de votre aide.

[Rayek]

A mon avis il te manque un application.processMessages

Code :

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

1
2
3
4
5
6
7
procedure TfrmMain.IdHTTP1Work(ASender: TObject; AWorkMode: TWorkMode;
  AWorkCount: Integer);
begin
  ProgressBar1.Position := AWorkCount;
  Application.ProcessMessages;
end;

[m14w]

A mon avis il te manque un application.processMessages

et non j'y ai dejà pensé.

edit: si je vois mon probleme je pense.

[octal]

et sui tu mettais

Code :

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

1
2
3
4
5
6
7
8
 
procedure TfrmMain.IdHTTP1Work(ASender: TObject; AWorkMode: TWorkMode;
  AWorkCount: Integer);
begin
  ProgressBar1.Position := AWorkCount;
  self.refresh;  //en supposant que la progress est sur la form courante
  Application.ProcessMessages;
end;

???

[m14w]

en fait la reponse qu'il a donné ets juste
mais je me suis planté de composant pour le application.processmessages