Salut,
j'ai un problème avec la progressbar qui devrait suivre le transfert de mon téléchargement, rien ne se passe ...
j'ai une procedure public qui telecharge une image
et une procedure public qui suit le transfert
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 procedure Tform1.DownloadHTTP_IMG(const AUrl : string; out DestStream: TStream; const APort : integer = 80); begin with TIdHTTP.Create(Application) do try Port := APort; Request.UserAgent:='agent'; try Get(AUrl,DestStream); rep:=ResponseCode; except On E: Exception do MessageDlg(Format('Erreur : %s',[E.Message]), mtInformation, [mbOK], 0); end; finally Free; end; end;
pourquoi ca fonctionne pas, ma progress bar reste grise
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 procedure TForm1.IdHTTPWorkBegin(Sender: TObject; AWorkMode: TWorkMode; const AWorkCountMax: Integer); begin if AWorkMode = wmRead then //uniquement quand le composant recoit des données begin form1.ProgressBar1.Max := AWorkCountMax; //Maximum = taille de l'élément form1.ProgressBar1.Position := 0; //Position à zéro end; end; procedure TForm1.IdHTTPWork(Sender: TObject; AWorkMode: TWorkMode; const AWorkCount: Integer); begin if AWorkMode=wmRead then //uniquement quand le composant recoit des données form1.ProgressBar1.Position := AWorkCount; end; end;
Partager