Discussion :

[EpiTouille]

Bonjour,

Je cherche à passer en tant que callback un pointeur sur fonction membre à OpenGL.

C'est à dire que je voudrais que les fonction callback : glutDisplayFunc(pFunc);, glutReshapeFunc(pFunc);, glutKeyboardFunc(pFunc);, accepte en paramètre des fonctions membre d'un objet.

L'erreur de compilation obtenue pour l'instant est :

Error: Incompatible types: got "<procedure variable type of procedure(Byte,LongInt,LongInt) of object;CDecl>" expected "<procedure variable type of procedure(Byte,LongInt,LongInt);CDecl>"

Merci

[yamer]

Je pense que c'est impossible directement. Il faut passer par une fonction ou procédure classique.

Exemple rapide :

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
 
 
type
  TMyClass = class
 
    procedure ClassCallback;
 
  end;
 
var
  Obj : TMyClass;
 
procedure Callback; cdecl;
begin
  Obj.ClassCallback;
end;
 
 
begin
   Obj := TClass.Create;
 
   glutDisplayFunc(Callback);
end.

[e-ric]

Salut

Si le contexte d'objet (self) n'est pas indispensable, transforme ta méthode d'objet en méthode de classe en ajoutant class devant :

Code :

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

1
2
3
4
5
6
7
8
9
 
  type
    TMaClasse = class
    public
      class procedure MonCallBack(v1: Byte; v2: LongInt; v3: LongInt);CDecl;
    end;
//....
   glutDisplayFunc(MaClasse.MonCallBack);
//...

Je pense que cela devrait suffire. Mais il ne faut pas avoir besoin d'utiliser des caractéristiques (méthodes, propriétés, variables membres) des objets TMaClasse.

Cdlt

[EpiTouille]

Bonjour,

La méthode que j'ai utilisé au final c'est la variable globale. C'est pas génial, mais ça marche bien.
Le problème avec la méthode statique (variable de classe) c'est que j'ai besoin du Self.
Après j'ai vu des tricks avec de l'assembleur pour faire ça, mais forcément, c'est pas portable (ça fonctionne juste pour i386).
Le truc pas cool, c'est que je suis obligé de faire des propriétés pour tous mes membres privées car la callback a besoin d'accès à ces membres, ce qui aurait aurait été évité grâce au coup du trick avec l'assembleur.

Merci de vos réponses

Edit: J'ai utilisé la méthode de yamer avant de la lire