affecter une procedure OnWorkBegin

Je voudrais avoir un bargraph qui montre la progression d'un transfert de fichier.
J'utilise les composants Indy10 avec Turbo Delphi.
Je n'arrive pas à affecter mes procédures OnWorkbegin et OnWork au IdTCPClient
le code suivant sort des erreurs:

  IdTCPClient1.OnWorkBegin:= IdTCPOnWorkBegin(Sender,wmRead,AWorkCount);
  OnWork:= IdTCPWork;

Le premier me dit que les types sont incompatibles (TWorkbeginEvent et procédure)
Le second que je n'ai pas assez de paramètres...
Bien sûr j'ai tourné tout cela dans tous les sens..avec, sans paramètres...
J'ai même essayé un transtypage d'un TworkBeginEvent....

Ben evidemment ... un TWorkBeginEvent est une méthode d'objet avec plusieurs procédures, il te faut les respecter.

Exemple simple : tu as un événement, dans un composant lambda, qui te fournit un nom d'utilisateur et son mot de passe (en plus du traditionnel Sender). La déclaration de cette méthode d'objet est :

TMonEvenement = procedure (Sender: TObject; User, Password: String) of Object;

Quand tu vas déclarer une procédure pour répondre à cet événement, il te faudra la déclarer comme çela :

procedure TForm1.ReponseEvenement(Sender: TObject; User, Password: String);

Et voilà :)

Cordialement, Bacterius !

Oups il fallait lire "paramètres" à la place de "procédures" dans la première phrase :)

Cordialement, Bacterius !

Merci de ta réponse, mais je ne dois pas être bien malin, ou mal réveillé...

je ne comprends pas tout.

1) Comment la première déclaration est-elle rattachée à ton objet lambda?

2) comment la procedure Réponse à l'évènement est-elle rattachée à la première déclaration?

J'ai bien sûr essayé, mais cela me sort toujours des erreurs...

Pour lier, tu fais :

procedure TForm1.MonEvenement(LesParametresQuiCorrespondentACetEvenement);
begin
... Le code de l'événement ...
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
// On rattache l'événement
MonCompo.MonEvenement := MonEvenement;
end;

Et voilà !

Cordialement, Bacterius !

Pour que ce soit plus clair pour notre ami et si je puis me permettre :
Il eût mieux valu écrire :
procedure TForm1.FormCreate(Sender: TObject);
begin
   // On rattache l'événement
  MonCompo.OnMonEvenement := MonEvenement;
end;
Au lieu de :
procedure TForm1.FormCreate(Sender: TObject);
begin
  // On rattache l'événement
   MonCompo.MonEvenement := MonEvenement;
end;

Autrement, pour affecter une méthode à un évènement, il faut que la méthode soit conforme à la signature du type attendu. C'est ce qu'a essayé de t'expliquer maître Bacterius

May Delphi be with you

---

Pensez à cliquer sur Réponse acceptée lorsque la réponse vous convient.

Oui désolé j'ai oublié le On. Et voilà c'est la signature de la méthode, voilà c'est le mot que je cherchais :) merci DelphiProg :)

Cordialement, Bacterius !

Il me semble que c'est ce que j'ai fait.

Cela marche pour OnConnected et OnDisconnected (qui n'ont que Sender comme paramètre) mais pas pour OnWorkBegin et on work qui ont d'autres paramètres.
Voilà mon code:
Déclaration dans la partie publique de la déclaration de la form.
  public
    { Déclarations publiques }
    IdTCPClient1: TIdTCPClient;
    procedure IdTCPClient1OnConnected(Sender: Tobject);
    procedure IdTCPWork(Sender: TObject; AWorkMode: TWorkMode;
  const AWorkCount: Integer);
    procedure IdTCPOnWorkBegin(Sender: Tobject; AWorkMode: TWorkMode;
  const AWorkCountMax: Integer);
  end;
Partie dans la création de la form...
procedure TForm1.FormCreate(Sender: TObject);
begin
  IdTCPClient1:= TIdTCPClient.Create(self);
With IdTCPClient1 do
Begin
  Port:=3000;
  Host:='localhost';
  OnConnected:= IdTCPClient1OnConnected;
  OnDisconnected:= IdTCPClient1OnConnected;
  IdTCPClient1.OnWorkBegin:= IdTCPOnWorkBegin(Sender,wmRead,AWorkCount);
  OnWork:= IdTCPWork;
  ReadTimeout:=10000;
end;

Et bien sûr la déclaration des procédures que je n'ajoute pas: cela n'est pas le problème.
Donc: On connected et OnDisconnected marchent, mais pas OnWorkBegin et Onwork.
J'ai essayé sans paramètre (ex OnWork) ou avec paramètres (OnWorkBegin)
Dans le premier cas le compilateur me signale pas assez de paramètres, dans le second
E2010 Types incompatibles : 'TWorkBeginEvent' et 'procedure, untyped pointer or untyped parameter'
(Le type des paramètres est bien déclaré en partie commune... et on ne peut pas les redéclarer ici: syntaxe incorrecte..)

En général, si tu reçois l'erreur "procedure, untyped pointer or untyped parameter" c'est que tu essaies de filer à un événement une procédure "flottante", c'est-à-dire qui n'est pas une méthode. Il faut que ta procédure à rattacher à l'événement soit déclarée après le "public" de la fiche, par exemple.

Cordialement, Bacterius !

Et euh ça c'est pas bon du tout :

IdTCPClient1.OnWorkBegin:= IdTCPOnWorkBegin(Sender,wmRead,AWorkCount);

Essaye ça ?

IdTCPClient1.OnWorkBegin := IdTCPOnWorkBegin;

Si ça ne fonctionne pas c'est que tu n'as pas les bons paramètres pour OnWorkBegin, réfère-toi à la doc.

Cordialement, Bacterius !