Composant dynamique et ajout d'un paramètre à une fonction ?

Version imprimable

Bonjour,

J'utilise le composant TIdHTTP de manière dynamique 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
23
24
25
26
27
28
procedure TFGCenter.Telecharger(Lien:string;Fichier:TStream);
var
     Waiting   : TWaiting;
     HTTP      : TIdHTTP;
begin
     try
          Waiting := TWaiting.Create(nil);
          Waiting.LInformations.Caption := 'Transfert du fichier ' + ExtractFileNameFromUrl(Lien) + ' en cours...';
          Waiting.Show;
          Waiting.Refresh;
          try
               HTTP := TIdHTTP.Create(Self);
               HTTP.ProxyParams.ProxyServer := '217.x.x.x';
               HTTP.ProxyParams.ProxyPort := 80;
               HTTP.OnWorkBegin := HTTPWorkBegin;
               HTTP.Get (Lien,Fichier);
          finally
               HTTP.Free;
          end;
          Waiting.Free;
     except
          on E : Exception do
          begin
               Log(E.Message);
          end;
     end;
end;

Je voudrais rajouter un paramètre à ma fonction HTTPWorkBegin comme ceci :

Code:

1
2
3
4
5
6
7
8
9
procedure TFGcenter.HTTPWorkBegin(Sender: TObject; AWorkMode: TWorkMode; const AWorkCountMax: Integer; Waiting:TWaiting);
begin
     if AWorkMode = wmRead then
     begin
          Waiting.ProgressBarInformations.Max := AWorkCountMax;
          Waiting.ProgressBarInformations.Position := 0;
     end;
end;

Je déclare ma fonction comme ça :

Code:

1
2
procedure HTTPWorkBegin(Sender: TObject; AWorkMode: TWorkMode; const AWorkCountMax: Integer; Waiting:TWaiting);

Cependant, si je fais comme ça, j'ai l'erreur suivante :

Citation:

[Pascal Erreur] xxxx.pas(197): E2009 Types incompatibles : 'Les listes de paramètres diffèrent'

Comment dois-je faire ?

Merci,
ZiP

13/06/2007, 09h18
Clorish

he oui :) car OnWorkBegin est une variable de Type Procedure(Sender: TObject; AWorkMode: TWorkMode; const AWorkCountMax: Integer) et non de type procedure(Sender: TObject; AWorkMode: TWorkMode; const AWorkCountMax: Integer; Waiting:TWaiting)

Pour faire cela tu doit creer une classe derivant de TidHttp et implementer ton evenement et rempalcer l'ancien, ou simplement creer un parametre de plus.
13/06/2007, 09h23
[ZiP]

Citation:

Envoyé par Clorish

ou simplement creer un parametre de plus.

Comment dois-je faire pour créer un paramètre de plus ?
Créer une fonction supplémentaire avec le paramètre en plus ?

Merci,
ZiP
13/06/2007, 09h24
Rayek

Normal que cela ne fonctionne pas, tu ne peux pas modifier la liste des paramètres d'un événement attendu par un composant comme cela.

Il faut que tu te crées ton propre composant dérivé du TIdHttp et que tu te fasses ton évement avec ta liste de paramètres.

Je suis pas spécialiste la dedans mais je pense pas me tromper sur la marche à suivre.

Creer un parametre de plus est simple :

Code:

1
2
3
4
5
6
7
 
TidHttpEx = Class(TidHttp)
Private
  FWaiting : TWaiting;
Public
  Property Waiting : TWaiting Read FWaiting Write FWaiting;
End;

Voir les tutos sur les property pour plus de subtilitées ;)

Pour les evenements c'est un peu plus complexe.
L'ecenement est appelé generalement par une methode "Do<NomDeL'evenement>".

donc le code serait plus ou moins proche de celui la :

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
 
// definition du type de la procedure utilisé.
THttpWorkBeginEventEx = procedure(Sender: TObject; AWorkMode: TWorkMode; const AWorkCountMax: Integer; Waiting:TWaiting);
 
TidHttpEx = Class(TidHttp)
Private
  FOnHttpworkBeginEx : THttpWorkBeginEventEx;
Protected
  Proceure doHTTPWorkBegin(AWorkMode: TWorkMode; const AWorkCountMax: Integer); Override; // MEthode de TidHttp surchargée
  Procedure doHTTPWorkBeginex(Sender: TObject; AWorkMode: TWorkMode; const AWorkCountMax: Integer; Waiting:TWaiting); // ta procedure lanceur d'evenemnt
Public
  Property OnHttpWorkBegin : THttpWorkBeginEx Read FOnHttpworkBeginEx Write FOnHttpworkBeginEx;
End;
 
Procedure TidHttpEx.doHTTPWorkBegin(AWorkMode: TWorkMode; const AWorkCountMax: Integer);
Begin
Self.doHTTPWorkBeginex(AWorkMode, AWorkCountMax, <Valeur Waiting a transmettre>);
End;
 
Procedure TidhttpEx.Procedure doHTTPWorkBeginex(Sender: TObject; AWorkMode: TWorkMode; const AWorkCountMax: Integer; Waiting:TWaiting);
Begin
If Assigned(Self.FOnHttpWotkBegin) Then 
  Self.FOnHttpWorkBegin(AWorkMode, AWorkCountMax, Waiting);
End;

Voila grosso modo la ligne a suivre ... a moduler avec le vrai nom des fonctions / Types de la classe TidHttp car je ne la connait pas.

13/06/2007, 09h47
[ZiP]

Merci pour votre aide.