Discussion :

[Lung]

J'ai découvert le nouveau tutoriel (http://alexandre-laurent.developpez....L/OpenGL-GLSL/) sur les shaders, et j'ai voulu le tester.
Mais, j'obtiens une violation d'accès sur glShaderSource.

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
var
   szSourceTmp: String;
   SourceVertex, SourceFragment, Log: PGLchar;
   nTailleVertex, nTailleFragment, nEtatProgramme, nTailleLog: GL.GLint;
begin
   szSourceTmp := LectureFichierShader('VERTEX_SHADER', nTailleVertex);
   GetMem(SourceVertex, nTailleVertex);
   try
      StrPCopy(PChar(SourceVertex), szSourceTmp);
 
      // Création de l'ID du vertex shader.
      _nIDVertex := glCreateShader(GL_VERTEX_SHADER);
 
      // Test des erreurs OpenGL.
      if TestErreur('Initialisations OpenGL', True) then
      begin
         _bErreurInit := True;
         Exit;
      end;
 
      // Chargement des sources dans OpenGL.
      glShaderSource(_nIDVertex, 1, SourceVertex, @nTailleVertex);   // <-- VIOLATION D'ACCES ICI !
   finally
      FreeMem(SourceVertex);
   end;

En pas-à-pas, tout se passe bien jusqu'à glShaderSource. SourceVertex contient bien le source du shader.

Je précise que la fonction existe bien. Au début, j'avais oublié de charger les fonctions étendues, mais cette fois c'est fait :

Code :

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

1
2
glShaderSource := wglGetProcAddress('glShaderSource');
    if not Assigned(glShaderSource) then Exit;

Une idée ?
Je suis en OpenGL 2.1 : ca ne doit pas poser de problème, non ?

[Paul TOTH]

l'erreur est sans doute dans SourceVertex qui doit être un pointer vers un tableau de PChar...de taille 1 dans ton cas

or tu passes un simple PChar il faudrait @PChar

Code :

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

1
2
3
4
5
6
7
8
9
10
 
var 
   szSourceTmp: String;
   pTmp: PChar;
   SourceVertex, SourceFragment, Log: PGLchar;  
begin
  pTmp := PChar(szSourceTmp);
  SourceVertex := @pTmp;
  ...
end;

[Lung]

Ca marche !

un pointer vers un tableau de PChar...de taille 1 dans ton cas

Par contre, ca ne me serait jamais venu à l'esprit.

Code :

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

1
2
  GLchar = Char;
  PGLchar = ^GLchar;

Moi, en lisant ça, je me suis dit que PGLchar était un pointeur de Char; donc un PChar.

[Paul TOTH]

oui mais la fonction le précise bien :

Code C :

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

1
2
3
4
5
 
void glShaderSource(	GLuint  	shader,
 	GLsizei  	count,
 	const GLchar ** 	string,
 	const GLint * 	length);

c'est en lisant le tuto que j'ai vu que la fonction acceptait des tableaux.

Je me suis crée une unité DelphiGL qui supprime tous ces types GL et les remplace par les types de base de Delphi (Integer, Cardinal, Single, Double), ça évite de se poser des questions Par contre mon unité n'utilise pas les Shaders, faudra que je regarde ça un jour

exemple

Code :

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

1
2
 
function glShaderSource(Shader: Cardinal; Count: Integer; Str: PPChar; Len: PInteger);

[Lung]

oui mais la fonction le précise bien :

Code C :

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

1
2
3
4
5
 
void glShaderSource(	GLuint  	shader,
 	GLsizei  	count,
 	const GLchar ** 	string,
 	const GLint * 	length);

c'est en lisant le tuto que j'ai vu que la fonction acceptait des tableaux.

Arg ! J'avais pas fait attention à ça.

Je me suis crée une unité DelphiGL qui supprime tous ces types GL et les remplace par les types de base de Delphi (Integer, Cardinal, Single, Double), ça évite de se poser des questions

J'ai pas le courage de me lancer là-dedans pour l'instant. Mais, ça doit bien rendre service, effectivement.

Par contre mon unité n'utilise pas les Shaders, faudra que je regarde ça un jour

Moi, je commence seulement de tester les shaders, grace au nouveau tutoriel.