Utilisation de TPicture.OnProgress

Version imprimable

Bonjour à toutes et à tous,

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

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
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:

PictSrc.OnProgress:= PictProgress;

j'ai l'erreur suivante :

Citation:

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

11/12/2014, 16h12
tourlourou

Soit il attend l'adresse : PictSrc.OnProgress:= @PictProgress; ; soit une procédure d'objet au lieu d'une procédure simple.
11/12/2014, 17h34
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
11/12/2014, 17h45
ChPr

Citation:

Envoyé par tourlourou

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
11/12/2014, 18h20
tourlourou

Citation:

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.
11/12/2014, 18h32
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
11/12/2014, 22h24
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.
12/12/2014, 09h56
ChPr

Merci tourlourou.

Cordialement.

Pierre.