Discussion :

[seb_131]

Bonjour tout le monde,

J'ai un petit soucis avec cette fonction : GlutMouseFunc... J'ai vu quelques sites qui m'ont aide, mais quand je compile, il me met : "Exception EAccessViolation in Glut32.dll..." je ne connais pas cette erreur! si quelqu'un a une solution, je suis preneur! Je suis sous delphi, et j'utilise OpenGL.

[Paul TOTH]

Bonjour tout le monde,

J'ai un petit soucis avec cette fonction : GlutMouseFunc... J'ai vu quelques sites qui m'ont aide, mais quand je compile, il me met : "Exception EAccessViolation in Glut32.dll..." je ne connais pas cette erreur! si quelqu'un a une solution, je suis preneur! Je suis sous delphi, et j'utilise OpenGL.

il nous faudrait le code que tu utilises pour localiser l'erreur.

si je me souviens bien cette fonction attend l'adresse d'une fonction callback, tu as sans doute une erreur de déclaration sur GlutMouseFunc ou sa callback...voir une erreur dans l'appel.

[seb_131]

mon code de ma fonction :

procedure souris (button, etat, x, y : integer) ; cdecl ;
begin
if (button = GLUT_LEFT_BUTTON) and (etat = GLUT_DOWN) then
begin
presse := true ;
px := x ;
py := y ;
end;
if (button = GLUT_LEFT_BUTTON) and (etat = GLUT_UP) then
begin
presse := false ;
end;
end;

ensuite, je l'appelle avec :

glutmousefunc(souris) ;

[Paul TOTH]

il me semble que GLUT sous Windows est en stdcall, et non en cdecl.

[seb_131]

vi, je croyais aussi ! mais si je mets stdcall, il me met que les types sont incompatibles...

[DenDemble]

salut, essaie avec :

Code :

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

glutmousefunc(@souris) ;

[seb_131]

arg, j'ai cru que ca allait marcher... mais ca me met la meme erreur ! merci quand meme

[Paul TOTH]

vi, je croyais aussi ! mais si je mets stdcall, il me met que les types sont incompatibles...

dans ce cas la déclaration de la fonction est elle même erronée

[seb_131]

malheureusment, ça ne change rien... je remplace cdecl par stdcall lors de la déclaration de la fonction, mais il me met toujours la même erreur... mais, ça ne viendrait pas de glut32.dll ?? y a-t-il plusieurs versions ? je suis vraiment paumé, là...

[DenDemble]

je viens de vérifier de mon coté,
perso je n'ai jamais utilisé glutmousefunc dans mes projets,
mais lorsque j'utilise un callback, je met bien un @ devant la référence de la fonction.

exemple (extrait de code qui qui fonctionne) :

Code :

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

1
2
 
gluTessCallBack(tess,GLU_TESS_VERTEX_DATA, TCallBack( @gtVertexData) )

il faudrait vérifier quelques points dans ton glut.pas :

glutmousefunc doit etre déclaré en stdcall (si tu est bien sur windows...)

Code :

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

1
2
 
glutMouseFunc: procedure(f: TGlut4IntCallback); stdcall;

par contre le callback est bien en cdecl :

Code :

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

1
2
 
 TGlut4IntCallback = procedure(v1, v2, v3, v4: Integer); cdecl;

à tout hasard, il faudrait essayer comme je fait dans mes sources, ca donnerait :

Code :

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

1
2
 
glutmousefunc(TGlut4IntCallback (@souris)) ;

pour voir si ca change quelque chose...

[seb_131]

grrr, ca m'énerve ! ça ne marche pas non plus... toujours la meme erreur ! je ne comprend vraiment pas... merci de t'etre donné autant de mal, DenDemble !

[seb_131]

au fait, y a-t-il un endroit particulier où on doit appeler cette fonction ?? il faut créer une nouvelle procedure, ou bien le mettre dans une procedure comme glDraw, ou glInit ?? parce que pour l'instant, cette fonction est appelée dans la procedure glDraw...

[seb_131]

j'ai réussis à régler l'erreur, mais apparament, je n'arrive pas trop à utiliser cette fonction... quelqu'un pourrait me donner un exemple ?? genre, comment faire apparaitre un cube en cliquant avec la souris ?? ça ne marche pas... besoin d'aide, encore... lol

[Paul TOTH]

j'ai réussis à régler l'erreur, mais apparament, je n'arrive pas trop à utiliser cette fonction... quelqu'un pourrait me donner un exemple ?? genre, comment faire apparaitre un cube en cliquant avec la souris ?? ça ne marche pas... besoin d'aide, encore... lol

bon après vérification, glutMouseFunc est stdcall sous Windows MAIS la fonction en paramètre est bien cdecl.

l'appel à glutMouseFunc doit se faire lors de l'initialisation de ton application, elle reviendrait sous Delphi à définir TForm1.OnMouseDown dans le constructor :

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
 
var
  i : integer;
  s : string;
  p : pchar;
begin
  for i:=0 to ParamCount do s:=s+ParamStr(i)+' ';
  i:=ParamCount+1; p:=pchar(s);
  glutInit(i,p); 
 
  glutInitWindowPosition(0, 0);
  glutInitWindowSize(600, 450); 
 
  glutInitDisplayMode(GLUT_RGB or GLUT_DOUBLE);
 
  glutCreateWindow('Test'); // Application.CreateForm(Test, TTest)
 
  glutDisplayFunc(@draw); // OnPaint
  glutReshapeFunc(@reshape); // OnResize
  glutKeyboardFunc(@key); // OnKeyDown
  glutMouseFunc(@mouse); // OnMouseDown
 
  glutMainLoop; // Application.Run
end.

il ne reste plus qu'à définir les fontions callback

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
34
35
36
 
procedure reshape(width,height:longint); cdecl;
var
  aspect : glFloat;
begin
  aspect := width/height;
  glViewport(0, 0, width, height);
  glMatrixMode(GL_PROJECTION);
  glLoadIdentity();
  glOrtho(-6.0 * aspect, 6.0 * aspect, -6.0, 6.0, -6.0, 6.0);
  glMatrixMode(GL_MODELVIEW);
end;
 
 
procedure key(k:char;x,y:longint); cdecl;
begin
  case k of
    #27 :
      halt(0);
  end;
end;
 
procedure mouse(button, state, x, y: integer); cdecl;
begin
  halt(0);
end;
 
procedure draw; cdecl;
var
  i : GLint;
begin
  glClear(GL_COLOR_BUFFER_BIT);
// ...
  glFlush();
  glutSwapBuffers();
end;