Discussion :

[ChPr]

Bonjour à toutes et à tous,

dans une application, je voudrais utiliser le OnProgress d'un TPicture. J'ai écrit ce qui suit :

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
27
28
29
30
31
32
33
unit MapUtil;
 
{$mode objfpc}{$H+}
 
interface
 
uses
  Graphics, FPImage;
 
 
procedure ImageUnique(DimImg, QJpg: Integer);
procedure PictProgress(Sender: TObject; Stage: TFPImgProgressStage;
                                   PercentDone: Byte; RedrawNow: Boolean; const R: TRect;
                                   const Msg: AnsiString; var Continue : Boolean);
 
implementation
 
procedure PictProgress(Sender: TObject; Stage: TFPImgProgressStage;
                                   PercentDone: Byte; RedrawNow: Boolean; const R: TRect;
                                   const Msg: AnsiString; var Continue : Boolean);
begin
  { Show progress of long image processing. }
  ...
end;
 
procedure ImageUnique(DimImg, QJpg: Integer);
 begin
  PictSrc:= TPicture.Create;
  PictSrc.LoadFromFile(DirSrc+ImgSrc);
 
  PictSrc.OnProgress:= PictProgress; // ça bloque ici
 
  ...

A la compilation, sur la ligne suivante :

Code :

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

PictSrc.OnProgress:= PictProgress;

j'ai l'erreur suivante :

maputil.pas(81,24) Error: Wrong number of parameters specified for call to "PictProgress"

Je ne comprends pas où est mon erreur.

Merci de votre aide.

Pierre

[tourlourou]

Soit il attend l'adresse : PictSrc.OnProgress:= @PictProgress; ; soit une procédure d'objet au lieu d'une procédure simple.

[ThWilliam]

Bonsoir,

Je confirme ce que tourlourou dit.

Ton message d'erreur vient de l'absence de @
Mais tu auras une autre erreur, vu l'endroit où tu déclares ta procedure PictProgress.
Elle doit être déclarée dans un objet, par exemple, dans la section private d'un TForm.

Cordialement
Thierry

[ChPr]

Soit il attend l'adresse : PictSrc.OnProgress:= @PictProgress; ; soit une procédure d'objet au lieu d'une procédure simple.

Ce n'est pas PictSrc.OnProgress:= @PictProgress; , par contre, j'ai essayé différents méthodes d'écrire que c'est une procédure d'objets, mais à chaque fois j'ai une erreur de compilation du genre :

maputil.pas(43,23) Error: overloaded identifier "PictProgress" isn't a function ou bien
maputil.pas(45,83) Fatal: Syntax error, ";" expected but "OF" found.

Je ne vois pas comment il faut écrire tout cela.

Merci de votre aide.

PIerre

[tourlourou]

type TFPImgProgressEvent = procedure( Sender: TObject; Stage: TFPImgProgressStage; PercentDone: Byte; RedrawNow: Boolean; const R: TRect; const Msg: AnsiString; var Continue: Boolean ) of object;

Donc il attend une méthode d'objet. Comme c'est un événement destiné à l'interface, il n'est pas illogique de déclarer la procédure qui doit lui être affectée comme méthode de la fiche principale, qui devra réagir aux événements de progression.

[ChPr]

Vous avez raison, il fallait que ma déclaration se fasse dans un objet : ça fonctionne.

Quant au @, cela dépend du mode de compilation. Il le faut en mode {$mode objfpc}{$H+} mais pas en mode {$mode Delphi}{$H+}.

Merci à vous.

Question annexe : elle est où la balise codeinline ?

Pierre

[tourlourou]

pour la balise, elle n'est pas implémentée dans l'interface, mais fonctionne bien...
comme le noparse qui permet d'ajouter des commentaires qui ne prendront pas la coloration syntaxique dans un code.