Discussion :

[reg11]

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

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;

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
 
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;

pourquoi ca fonctionne pas, ma progress bar reste grise

[reg11]

Pourquoi si je place l'objet IDhttp sur ma feuille, ca fonctionne mais pas en faisant TIdHTTP.Create(Application) ?

[jenesuispasunrobot]

c'est peut être que tu n'as pas affecté l'événement IdHTTPWork à ton composant créé dynamiquement non ?

[reg11]

oui je crois que c'est cela tu l'affectes comment et à quel niveau ?

[Rayek]

simplement :

Code :

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

1
2
3
 
IdHttp.OnWorkBegin := IdHTTPWorkBegin;
IdHtpp.onWork := IdHTTPWork;

[reg11]

merci