Quelqu'un aurait t-il une idée de la façon de s'y prendre pour récuperer la vitesse de chargement avec idhttp.get(url)
Merci et à Pluche
Slash
Quelqu'un aurait t-il une idée de la façon de s'y prendre pour récuperer la vitesse de chargement avec idhttp.get(url)
Merci et à Pluche
Slash
Tiré de www.remixtech.com
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 procedure TForm1.IdHTTP1WorkBegin(Sender: TObject; AWorkMode: TWorkMode;const AWorkCountMax: Integer); begin if AWorkMode = wmRead then //1 begin ProgressBar1.Max := AWorkCountMax ; //2 ProgressBar1.Position := 0 ; //3 end; end; procedure TForm1.IdHTTP1Work(Sender: TObject; AWorkMode: TWorkMode;const AWorkCount: Integer); begin if AWorkMode = wmRead then begin ProgressBar1.Position := AWorkCount ; //4 Label1.Caption := IntToStr(AWorkCount) + 'Bytes de :' + inttostr(ProgressBar1.Max) ; //5 end; end; procedure TForm1.IdHTTP1WorkEnd(Sender: TObject; AWorkMode: TWorkMode); begin if AWorkMode = wmRead then Label1.Caption := 'Fin; //6 end; TForm1.IdHTTP1WorkBegin -> Début de travail du composant TForm1.IdHTTP1Work -> Travail en cours TForm1.IdHTTP1WorkEnd -> Fin du travail
Désolé je me suis mal exprimé,
En faite je voulais un peu d'aide sur la méthode à utilisé pour savoir le nombre de Ko télécharger en une seconde pendant le téléchargement du fichier. Comme celui qui gère le téléchargement de fichier sur IE et non la gestion des progressbar ou gauge.
Merci d'avance
A++ Slash
Ben oui,
AWorkCountMax -> taille max
AWorkCount -> taille téléchargée
@ +
En octeit
Ok merci a toi !
J'ai résolu mon problème
A++ Slash
Partager