Discussion :

[kernigansnotdead]

Bonjour,

Le faq indy de ce site dit qu'il est simple rajouter un progress bar pour afficher la progression d'un téléchargement de fichier via TIdHTTP, mais telle n'est pas mon expérience)

Une fois que j'ai cliqué sur update, le fichier se télécharge bien, mais ma barre de progression reste grise.

A ce jour, il n'y aucune entrée sur le sujet dans google que je n'ai lu déjà au moins 3 fois, et pourtant, la j'abandonne...

voila, le mieux est de poster mon code ici :

d'abord la déclaration des procédures dans type

Code :

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

1
2
3
4
 
procedure IdHTTPWorkBegin(Sender: TObject; AWorkMode: TWorkMode; const AWorkCountMax: Integer);
    procedure IdHTTPWork(Sender: TObject; AWorkMode: TWorkMode; const AWorkCount: Integer);
    procedure IdHTTPWorkEnd(Sender: TObject; AWorkMode: TWorkMode);

ensuite le code qui utilise les OnWork events

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
 
procedure TfrmUpdater.btnUpdateClick(Sender: TObject);
var
Fs : TFileStream;
begin
//frmDownloader.show();
frmUpdater.Height := 272;
pgbDownloader.Top := 192;
pgbDownloader.Enabled := true;
pgbDownloader.Visible := true;
 
Fs := TFileStream.Create('c:\download_update.txt',fmCreate);
  try
    DownloadHTTP('http://.../.../...txt',TStream(fs));
 
    http.OnWorkBegin(frmUpdater.pgbDownloader,wmRead,100);
    pgbDownloader.Position := 0;
    http.OnWork(frmUpdater.pgbDownloader,wmRead,pgbDownloader.Position);
    http.OnWorkEnd(frmUpdater.pgbDownloader,wmRead);
 
    showmessage('download completed!');
 
  finally
    Fs.Free;
  end;
end;

et pour finir, les procédures que j'ai mises en dernier dans le code

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
 
procedure TfrmUpdater.IdHTTPWorkBegin(Sender: TObject; AWorkMode: TWorkMode; const AWorkCountMax: Integer);
begin
   if AWorkMode = wmRead then //uniquement quand le composant recoit des donne'es
   begin
      frmUpdater.pgbDownloader.Max := AWorkCountMax; //Maximum = taille de l'e'le'ment
      frmUpdater.pgbDownloader.Position := 0; //Position a` ze'ro
   end;
end;
 
procedure TfrmUpdater.IdHTTPWork(Sender: TObject; AWorkMode: TWorkMode;
  const AWorkCount: Integer);
begin
   if AWorkMode=wmRead then //uniquement quand le composant recoit des donne'es
     frmUpdater.pgbDownloader.Position := AWorkCount;
end;
 
procedure TfrmUpdater.IdHTTPWorkEnd(Sender: TObject; AWorkMode: TWorkMode);
begin
  frmUpdater.pgbDownloader.Position := 0;
end;

Voila, toutes vos suggestions sont bienvenues, mais en règles générale, je ne suis pas sur de donner les bons paramètres au fonctions IdHTTPWorkBegin etc... quand je les invoques.

Merci pour votre aide,

KND

[Aka Guymelef]

C'est quoi ta variable http ?

En tout cas y'a un truc qui me chiffonne dans ton code, sémantiquement parlant. Tu appelles dans un premier temps DownloadHTTP qui si je comprends bien va s'occuper de télécharger le fichier et ensuite tu fais des appels à cet objet http qui va générer des évènements auxquels tu réponds avec tes trois dernières méthodes.
Or vu que le téléchargement est déjà effectué dans DownloadHTTP avant les appels aux évènements ben tu ne va rien voir à l'écran à priori. Pour moi les appels devraient plutôt être à l'intérieur de DownloadHTTP à chaque block de données lu.

[kernigansnotdead]

Bonjour,

en fait ma variable http, c'est ma variable TIdHTTP, à moins que je n'est pas compris ta question.

J'ai donc déplacé les OnWork dans la procédure DownloadHTTP elle meme, mais j'obtiens toujours le meme résultat :

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
 
procedure DownloadHTTP(const AUrl : string; out DestStream: TStream);
begin
  with TIdHTTP.Create(Application) do
  try
      try
        Get(AUrl,DestStream);
        //////////////////////////////////////////////////////
        OnWorkBegin(frmUpdater.pgbDownloader,wmRead,100);
        frmUpdater.pgbDownloader.Position := 0;
OnWork(frmUpdater.pgbDownloader,wmRead,frmUpdater.pgbDownloader.Position);
        OnWorkEnd(frmUpdater.pgbDownloader,wmRead);
        //////////////////////////////////////////////////////
        except
        On e : Exception do
        MessageDlg(Format('Erreur : %s',[e.Message]), mtInformation, [mbOK], 0);
        //showmessage(e.Message);
      end;
  finally
      Free;
  end;
end;

[Aka Guymelef]

Mais à aucun moment je vois que tu positionne les évènements sur le composants TIdHttp, est-ce normal ?

Pour moi tu dois positionner les évènements avant l'appel de Get puis après tu n'as pas besoin de les appeler manuellement après Get... D'ailleurs vu que tu ne les as pas positionné ça devrait te retourner une violation d'accès quand tu exécute le précédent code.

Tu devrais faire :

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
procedure DownloadHTTP(const AUrl : string; out DestStream: TStream);
begin
  with TIdHTTP.Create(Application) do
  try
      try
        //////////////////////////////////////////////////////
        OnWorkBegin := IdHTTPWorkBegin;
        OnWork := IdHTTPWork;
        OnWorkEnd := IdHTTPWorkEnd;
        //////////////////////////////////////////////////////
        Get(AUrl,DestStream);
      except
        On e : Exception do
        MessageDlg(Format('Erreur : %s',[e.Message]), mtInformation, [mbOK], 0);
        //showmessage(e.Message);
      end;
  finally
      Free;
  end;
end;

[kernigansnotdead]

bien en fait c'est par la que je cherche depuis hier soir,

mais si je rajoute :

Code :

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

1
2
3
4
 
 OnWorkBegin := IdHTTPWorkBegin;
 OnWork := IdHTTPWork;
 OnWorkEnd := IdHTTPWorkEnd;

exactement ou toi tu le mets, j'obtiens :

undeclared identifier 'IdHTTPWorkBegin' et ainsi de suite pour les deux autres

et si je mets

Code :

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

1
2
3
4
 
 OnWorkBegin := frmUpdater.IdHTTPWorkBegin;
 OnWork := frmUpdater.IdHTTPWork;
 OnWorkEnd := frmUpdater.IdHTTPWorkEnd;

j'obtiens :

incompatible types, parameter list differs

et si je rajoute les parametres, par exemple

Code :

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

1
2
 
 OnWorkBegin := frmUpdater.IdHTTPWorkBegin(frmUpdater.pgbDownloader,wmRead,100);

j'obtiens :

[Error] main.pas(64): Incompatible types: 'TWorkBeginEvent' and 'procedure, untyped pointer or untyped parameter'

C'est pour ça. Cependant j'ai bien vu sur le forum un ou deux post ou il est question de la même chose mais je n'arrive pas à l'appliquer

KND

[kernigansnotdead]

par ailleurs, je viens d'essayer ce code là qui ne me donne pas d'erreur mais le résultat est le même :

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 DownloadHTTP(const AUrl : string; out DestStream: TStream);
begin
 
  with TIdHTTP.Create(Application) do
  try
      try
        //////////////////////////////////////////////////////
        frmUpdater.http.OnWorkBegin(frmUpdater.pgbDownloader,wmRead,100);
        frmUpdater.http.OnWork(frmUpdater.pgbDownloader,wmRead,frmUpdater.pgbDownloader.Position);
        frmUpdater.http.OnWorkEnd(frmUpdater.pgbDownloader,wmRead);
        //////////////////////////////////////////////////////
        Get(AUrl,DestStream);
        showmessage('download completed!');
        except
        On e : Exception do
        MessageDlg(Format('Erreur : %s',[e.Message]), mtInformation, [mbOK], 0);
        //showmessage(e.Message);
      end;
  finally
      Free;
  end;
end;