Cauchemar avec TProgressBar et Indy 10 et Delphi 7

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:

---

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:

---

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:

---

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

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.

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:

---

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;

---

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:

---

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;

---

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

mais si je rajoute :

Code:

---

1 2 3 4

OnWorkBegin := IdHTTPWorkBegin; OnWork := IdHTTPWork; OnWorkEnd := IdHTTPWorkEnd;

---

exactement ou toi tu le mets, j'obtiens :

Citation:

---

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

---

et si je mets

Code:

---

1 2 3 4

OnWorkBegin := frmUpdater.IdHTTPWorkBegin; OnWork := frmUpdater.IdHTTPWork; OnWorkEnd := frmUpdater.IdHTTPWorkEnd;

---

j'obtiens :

Citation:

---

incompatible types, parameter list differs

---

et si je rajoute les parametres, par exemple

Code:

---

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

---

j'obtiens :

Citation:

---

[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

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:

---

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;

---

Egalement, j'ai mis un showmessage dans la procedure IdHTTPWork pour voir quelle est la valeur que renvoie AWorkCount, elle est reste toujours égale à 0.
N'est-il pas possible que mon problème vienne du fait que IdHTTPWork ne serait pas alimenté comme il faut?
J'ai lu quelque part que Indy 9 avait un bug avec cette procédure, mais j'utilise indy 10

KND

Normalement ta seconde option aurait dû être la bonne, c'est curieux que tu obtiennes une erreur de compilation car j'ai comparé avec mes sources de Indy 9 et les déclarations ont l'air correctes, essayes de vérifier si les déclarations sont identiques avec les sources de Indy 10 (unité IdComponent si ça n'a pas changé).

En tout cas ce n'est pas à toi d'appeler les OnXXXX tu dois simplement positionner tes procédures dessus et c'est le composant qui devrait se charger de les appeler de manière automatique. Reste juste à faire en sorte que tu arrives à les affecter... Je penses à un truc, peut-être que c'est ta syntaxe avec un Width qui lui pose problème essaye d'utiliser une variable locale plutôt qu'un Width pour utiliser le composant TIdHTTP.

Je suis d'accord ce n'est pas à moi d'appeler les OnWork c'est pour ça il y a surement un problème de sémantique du code certainement.
Mais qu'est-ce que tu entends par Width dans ces cas là? Je pense comprendre ou tu veux en venir en tout cas, je vais regarder ça tout de suite

KND

mais parcontre, concrêtement je vois pas comment utiliser une variable local pour remplacer TIdHTTP.
Aurais-tu un exemple précis?

KND

Genre comme ceci :

Code:

---

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

---

Bonjour,

c'est bien ce que je suis parvenu à faire peu après avoir lu ta réponse hier soir, mais malgré cela j'obtiens :

Citation:

---

[Error] main.pas(64): Incompatible types: 'Parameter lists differ'
[Error] main.pas(65): Incompatible types: 'Parameter lists differ'

---

Donc j'en déduis que je ne dois pas être loin de la solution, je poste mon code mis à jour en tout cas :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23

procedure TfrmUpdater.DownloadHTTP(const AUrl : string; out DestStream: TStream); var myhttp : TIdHTTP;   begin myhttp := TIdHTTP.Create(Application); try try myhttp.OnWorkBegin := IdHTTPWorkBegin; myhttp.OnWork := IdHTTPWork; myhttp.OnWorkEnd := IdHTTPWorkEnd; ////////////////////////////////////////////////////// myhttp.Get(AUrl,DestStream); showmessage('download completed!'); except On e : Exception do MessageDlg(Format('Erreur : %s',[e.Message]), mtInformation, [mbOK], 0); end; finally myhttp.Free; end; end;

---

j'ai cependant essayé de déplacer les procédures et leurs déclarations vers tout les endroits possibles, mais ça passe pas, dans le meilleurs des cas j'obtiens 'parameter list differs' ou bien sinon 'undeclared IdHTTPOnWork...' ou même 'undeclared Get...'

KND

En tout cas je viens de regarder le code dans IdComponents.pas, et voila ce que je trouve :

Code:

---

1 2 3 4

property OnWork: TWorkEvent read FOnWork write FOnWork; property OnWorkBegin: TWorkBeginEvent read FOnWorkBegin write FOnWorkBegin; property OnWorkEnd: TWorkEndEvent read FOnWorkEnd write FOnWorkEnd;

---

Seul OnWork et OnWorkBegin me donne 'parameter list differs', car la déclaration de OnWorkEnd correspond bien à ce que j'ai dans mon code.
Est il possible de modifier IdComponents.pas de façon à adapter à mon code sans pour autant créer de bugs dans indy pour ce projet là comme pour les autres?

KND

A partir de là tu dois chercher la déclaration (un peu plus haut je penses) de TWorkEvent et TWorkBeginEvent et comparer avec les déclarations de tes réponses aux évènements.

Voila,
dans IdComponent.pas j'ai :

Code:

---

1 2 3 4 5 6

TWorkBeginEvent = procedure(ASender: TObject; AWorkMode: TWorkMode; AWorkCountMax: Integer) of object; TWorkEndEvent = procedure(ASender: TObject; AWorkMode: TWorkMode) of object; TWorkEvent = procedure(ASender: TObject; AWorkMode: TWorkMode; AWorkCount: Integer) of object;

---

et un plus bas :

Code:

---

1 2 3 4 5 6

protected ... FOnWork: TWorkEvent; FOnWorkBegin: TWorkBeginEvent; FOnWorkEnd: TWorkEndEvent;

---

et ensuite, toujours dans protected :

Code:

---

1 2 3 4

property OnWork: TWorkEvent read FOnWork write FOnWork; property OnWorkBegin: TWorkBeginEvent read FOnWorkBegin write FOnWorkBegin; property OnWorkEnd: TWorkEndEvent read FOnWorkEnd write FOnWorkEnd;

---

si je m'arrête au TWorkBeginEvent déclaré plus haut, cela correspond parfait à ce que j'ai en paramètres dans mes déclarations à moi.
Sincèrement je ne vois pas trop comment interpréter tout cela, parceque n'ayant qu'un mois de delphi, mais à priori tout me semble correct?

KND

Ha si je me reporte à tes déclarations il y a une différence, tu as mis des const au niveau de tes troisièmes paramètres alors que les déclarations des évènements n'en demande pas, voila pourquoi il te dit que la liste des paramètres est différentes. Tu dois enlever les const au niveau de IdHTTPWorkBegin et IdHTTPWork

Enfin, le cauchemar est terminé! :)
j'ai finalement compris que c'était le mot 'const' qui était en trop et non le paramètre tout entier.
Une fois cela réparé, j'ai eu également à déclarer 'http : TIdHTTP;' dans 'type' et non en local, sinon j'obtenais un message 'class TIdHTTP not found', donc rien de bien grave ;)

Donc un grand merci à toi pour m'avoir aidé tout au long de ce périple,
et l'avantage est que désormais je saurais mieux comment interagir avec les composants delphi.
Je ne pensais pas avoir besoin de tout ce temps pour un simple progressbar, mais j'ai beaucoup apris,

Encore merci pour ton aide,

KND

Ravi que ton problème soit résolu mais y'a un truc qui m'a chiffoné quand tu as dis que tu devais mettre "à déclarer 'http : TIdHTTP;' dans 'type' et non en local".

Je ne sais pas comment tu l'utilises exactement mais normalement tu ne devrais pas avoir besoin de faire ça. Au vu de l'erreur vérifie bien que tu as inclus l'unité IdComponent dans les uses de l'unité où tu déclares cette variable.