Discussion :

[Creenshaw]

Bonjour,

je souhaite tracer dans un mémo tous les évènements liés à ma fiche (onClick sur boutons, onEnter, onExit, etc..) et ceci dynamiquement. C'est a dire sans devoir affecter à chaque évènement un bout de code me permettant de créer une trace.

Je suis parti dans l'optique de récupérer tous les composants de ma fiche (maForme.Component[i]) puis de récupérer les méthodes associées à ce composant via l'unité TypInfo et sa méthode GetPropList.

La ou je pêche c'est comment affecter une méthode unique (qui fera les traces) à tous ses évènements.

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
 
type
  TUneProcedure = procedure (obj : TObject);
 
 
TForm1 = class(TForm)
  ....
  private
    procedure GestionComposants;
    procedure maMethodeDeTrace(Sender : TObject);
  public
 
  end;
 
...
 
procedure TForm1.GestionComposants;
var
  pt : PPropList;
  i, j, z : Integer;
  PFonc : TUneProcedure;
begin
  New (Pt);
  PFonc := maMethodeDeTrace; // Je bloque ici
  for i := 0 to self.ComponentCount - 1 do
  begin
    j := GetPropList(PTypeInfo(Self.Components[i].ClassInfo), [tkMethod], pt);
    for z := 0 to j - 1 do
    begin
      PPropInfo(pt[i]).SetProc := PFonc(Self.Components[i]); // et ici.
    end;
  end;
end;

J'obtiens les erreurs suivantes :
[DCC Erreur] Unit1.pas(378): E2009 Types incompatibles : 'procédure normale et pointeur de méthode'
[DCC Erreur] Unit1.pas(384): E2010 Types incompatibles : 'Pointer' et 'procedure, untyped pointer or untyped parameter'


Si vous avez des conseils (autres techniques bienvenues) ou des remarques je suis preneur

Merci d'avance

[Andnotor]

Pour la première erreur:

Code :

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

1
2
type
  TUneProcedure = procedure (obj : TObject) of object;

Pour la deuxième:

Code :

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

PPropInfo(pt[i]).SetProc := @maMethodeDeTrace;

Mais ça ne fonctionnera pas ! Le prototype des différents événements n'est pas forcément le même !

La seule façon possible (me semble-t-il) est d'intercepter les messages Windows.

[Creenshaw]

Merci pour ta réponse.

Ta première remarque corrige bien la première erreur, par contre la deuxieme m'en génère une nouvelle : E2036 Variable requise

J'ai testé de récupérer tous les messages windows, avec un applicationEvent, cela marche bien mais ne correspond pas à ce que je cherche. En effet les évènement : WM_PAINT, WM_MOUSEMOVE, ... sont a un niveau bien trop bas.

Je suis en train d'essayer d'utiliser l'objet TMethod et SetMethodProp mais l'appel à la méthode MethodAddress me renvoie nil systématiquement.

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
procedure TForm1.GestionComposants;
var
  pt : PPropList;
  i, j, z : Integer;
  LeHandler : TMethod;
begin
  New (Pt);  
  LeHandler.Data := Self;
  LeHandler.Code := Self.MethodAddress('GenererTrace'); // renvoie nil :(
 
  for i := 0 to self.ComponentCount - 1 do
  begin
    j := GetPropList(PTypeInfo(Self.Components[i].ClassInfo), [tkMethod], pt);
    for z := 0 to j - 1 do
    begin
      SetMethodProp(Self.Components[i], PPropInfo(pt[z]), LeHandler);
    end;
  end;
end;
 
procedure TForm1.GenererTrace (Sender : TObject);
begin
  ShowMessage (Sender.ClassName);
end;

Du coup ça écrase tous mes évènements mais ça ne fait rien derrière

[Kaféine]

Salut,

la méthode GenereTrace doit être published

[Creenshaw]

Exact ! J'avais trouvé, mais merci quand même.

Je passe bien dans ma méthode.. quelquefois puis j'ai une méchante violation d'accès qui apparait en dehors de ma méthode de traces.

Peut être est ce lié à la remarque d'Andnottor : Mais ça ne fonctionnera pas ! Le prototype des différents événements n'est pas forcément le même !

Je creuse

[edam]

1 regard du coté winproc
2 pourquoi pas crée un evenement, applé depuis windowsproc de tout tes composant, ou envoyé un postmessage à ta forma avec un message personalisé que tu traite dans le winproc de taform ou dans une procedure spécifique genre

Code :

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

procedure WMPaint(var Message: TWMPaint); message WM_PAINT;

par example