Shader OpenGL dans Delphi XE5

Version imprimable

19/03/2018, 08h41
AlfredKr

Shader OpenGL dans Delphi XE5

Bonjour,

Je me suis lancé à travailler avec OpenGL dans Delphi XE5.
Ca marche pas mal mais comme quelquefois j'ai un très grand nombre d'objets et que je voudrais utiliser le shader et sachant après vérification que la version installée de opengl était 3.0.1, j'ai écrit des lignes de fonctions GLSL. Aucune n'a été acceptée.
Est-ce que c'est normal ? faut-il ajouter une ou des dll ?
Voilà mon problème .

Merci d'avance pour réponse
Cordialement,

Fred
19/03/2018, 09h56
Bousk

Tu as une ligne d'erreur ou quelque chose ? :weird:
Sinon, non accessible : vérifie les répertoires, y compris celui d'exécution.
A défaut, je dirais que tu auras plus de chance sur le forum Delphi.
19/03/2018, 11h50
dragonjoker59

Tu les as écrites où, ces lignes de GLSL ?
OpenGL 3.0.1 n'existe pas...
23/03/2018, 13h37
AlfredKr

Excuse-moi c'était Version 3.1.0.
Je viens de lire que GLSL était un langage très spécial et très performant.
J'ai essayé dans mon programme n'utilisant que des fonctions GL et GLU et qui, du reste, fonctionne bien, d'ajouter des fonctions qui étaient propres à GLSL que j'ai trouvé dans des tutos et le bouquin approprié de base de GLSL.
Voilà. Comme j'ai vu que Delphi ne reconnaissait pas du tout ces instructions ou fonction, je me suis dit qu'il fallait peut-être ajouter de drivers ou dll...

Cordialement,

Fred
23/03/2018, 14h00
dragonjoker59

Les shaders ne sont pas du code que tu compiles comme un programme C, C++ ou Delphi.
Il faut les stocker dans un string, et le donner à un shader, via la fonction glShaderSource.
23/03/2018, 15h22
AlfredKr

Bon, je vais donc potasser le bouquin que j'ai.
Existe t'il des exemples, tutos de programmation sous delphi ou C++ (même pour un cube) de ce shader ?

Merci encore,
Fred
23/03/2018, 18h44
dragonjoker59

Dans ma signature, tu as un tutoriel OpenGL "moderne", qui utilise les shaders.
24/03/2018, 08h07
AlfredKr

Bonjour DJ59,
Bon, j'avais déjà parcouru ce lien pour le shader.
J'ai compris que l'idée était d'écrire un fichier texte incluant le programme en langage GLSL. Ensuite, une compilation fournira un executable.
Le problème est que je travaille en Delphi et je dois y rester parce que je travaille avec plusieurs programmes que j'ai créé dans cet EDI et je suis confortable avec celui-ci.
Par exemple, est-ce que l'instruction ou l'action de compilation sera aisée à utiliser dans mon programme delphi sans y ajouter des utilitaires ?
Dans l'opengl 3.1.0 qui est utilisé dans le delphi que j'ai y a-t'il cette instruction de compilation du fichier texte créé ?

Cordialement,

Fred
25/03/2018, 10h19
AlfredKr

Shader Opengl dans delphi XE5

Bonjour,

J'ai OpenGL (version 3.1.0) installé d'origine sous delphi XE5.
Je travaille avec un écran de pc portable thinkpad.
Je voudrais utiliser le langage Shader.
Puis-je avoir un exemple simple d'utilisation de GLSL dans delphi.
Y a t'il des ouvrages ou tutos ?

Merci d'avance,

Cordialement
Fred
26/03/2018, 09h16
dragonjoker59
La compilation du shader ne se fait pas via le compilateur C, C++, Delphi ou autre, mais par OpenGL via la fonction glShaderSource que j'ai déjà citée.
Il y a plusieurs étapes à suivre, pour créer et utiliser un shader :
1. Créer un shader (glCreateShader)
2. Définir le code de ce shader (glShaderSource)
3. Compiler le shader (glCompileShader)
4. Reproduire ces 3 étapes pour les différents shaders qui composeront le programme shader (vertex, geometry, tessellation evaluation, tessellation control, fragment, compute)
5. Créer un programme shader (glCreateProgram)
6. Lui attacher les différents shaders préalablement créés et compilés (glAttachShader)
7. Linker le programme (glLinkProgram)
Des étapes subsidiaires sont pour le moins recommandées :
- Vérifier que la compilation d'un shader s'est déroulée correctement, via glGetShaderiv en utilisant le paramètre GL_COMPILE_STATUS et, si la compilation a échoué, utiliser la fonction glGetShaderInfoLog pour récupérer les erreurs de compilation.
- Vérifier que le link d'un programme s'est déroulé correctement, via glGetProgramiv en utilisant le paramètre GL_LINK_STATUS et, si le link a échoué, utiliser la fonction glGetProgramInfoLog pour récupérer les erreurs de link.
Une fois que toutes ces étapes se sont déroulées correctement, tu te retrouveras avec le programme shader (créé en étape 5) utilisable, via la fonction glUseProgram, à appeler avant l'appel d'une fonction de dessin (glDrawElements, glDrawArrays...).

Je rappelle que ce sont des fonctions OpenGL, donc à appeler dans ton code source comme du code habituel, il n'est pas question ici d'exécutable supplémentaire, ou d'étape supplémentaire avant ou après la génération de ton exécutable.

Tu trouveras une description plus précise de ce qu'est un shader ici : (en anglais, mais très complet, pour peu qu'on suive les liens ;) ) https://www.khronos.org/opengl/wiki/Shader
26/03/2018, 09h48
AlfredKr

Je vous remercie grandement pour vos explications DragonJoker59.
D'après ce que je viens d'y lire, les instructions glcreateshader et gluseprogram doivent être reconnues de mon source si opengl est dans le "uses" de l'unité.
Eh bien, si c'est le cas, malheureusement, l'EDI ne reconnait pas ces fonctions ? le source ne peutpas être compilé.
Pourtant, la version de l'opengl est 3.1.0.
Je pense, et j'ai surement tord, que c'est parce que je travaille avec un écran de portable de 12" !!! ???

Qu'en pensez-vous ?
Comment y remédier ?

Merci encore,
Cordialement,

Fred
PS tout le reste de opengl fonctionne très bien dans mon programme.
26/03/2018, 12h56
dragonjoker59

Le truc, c'est que ces fonctions ne sont pas dans OpenGL 1.0, qui est dans le header de base fourni par Microsoft (en C ou C++) donc il faut normalement charger soi-même les pointeurs de fonction (en C ou en C++), du coup, en delphi je ne sais pas comment ça marche.
En cherchant "OpenGL shaders delphi", je suis tombé là-dessus, ça pourra peut-être t'aider : https://github.com/neslib/DelphiLear...ki/1.3-Shaders
27/03/2018, 19h27
AlfredKr

Bonjour et merci DragonJoker59 pour toutes vos réponses.
J'ai le livre opengl superbible (4ème edition). Dans mon delphi il y a opengl 3.1.0.
Je ne comprends pas.
Dans le livre qui utilise opengl 2.1, il y a les fonctions "glbindbuffer", gluseprogram, glcreateshader et plein d'autres que mon EDI n'accepte et ne reconnait pas.
Je ne comprends rien.
Je ne peux même pas utiliser les tutos sur le shader de "learn Opengl"....
Est-ce que Embarcadero n'a mis qu'une version allégée d'Opengl 3.1.0 dans mon Delphi XE5 ???
C'est vrai qu'il parle de Delphi Tokyo 10.2.
Comment faire pour avoir un vrai openGL 3.1 ou + dans mon Delphi.

Sinon, pour mon travail je ne fais pas de l'animation. Je conçois des bâtiments avec des poteaux et voiles.
Je voudrais juste accélérer ma géométrie (modelview)

Peut-être que l'utilisation de vertex arrays serait intéressant. Qu'en pensez-vous ?

Merci d'avance,

Cordialement,

Fred
27/03/2018, 19h40
AlfredKr

Je viens de voir que le site vers lequel vous m'avez dirigé utilise opengl 3.3 ou +.
Il crée glgenbuffers et peut-être d'autres fonctions.
27/03/2018, 20h00
dragonjoker59

glGenBuffers est disponible depuis OpenGL 2.1...
28/03/2018, 09h25
AlfredKr

Bonjour
Je reviens vers ce forum après être passé par celui de programmation jeux 2D-3D qui après m'avoir aidé grandement sur certains sujets concernant opengl m'ont redirigé vers vous.
J'ai delphi XE5 et utilise depuis peu l'opengl mis dans Delphi (je n'utilisais pas GLScene mais seulement opengl). J'ai vérifié par glgetstring(GL_VERSION) qu'elle était 3.1.0.
Le problème est que quand je veux utiliser les fonctions "glbindbuffer", "gluseprogram" et plein d'autres fonctions d'opengl déjà valables dans la version 2.1, le source de l'EDI me rejette en me signalant que la fonction n'est pas connue (il y a "opengl" dans le "uses").
Même les spécialistes de jeux 2D 3D de votre site ne comprennent pas.
Est-ce que Embarcadero a allégé les fonctions d'Opengl ?
Dans ce cas que faut-il faire pour avoir une vrai version 3.1 ou plus fonctionnant sous delphi XE5 ?

Cordialement,

Fred
28/03/2018, 12h53
Lung

Citation:

Envoyé par AlfredKr

Le problème est que quand je veux utiliser les fonctions "glbindbuffer", "gluseprogram" et plein d'autres fonctions d'opengl déjà valables dans la version 2.1, le source de l'EDI me rejette en me signalant que la fonction n'est pas connue (il y a "opengl" dans le "uses").

Pas sûr que ça suffise.
Du temps où j'en faisais, j'avais ces bibliothèques dans mes uses :
OpenGL, GL, Glut, GLAUX, GLext

S'il te manque des bibliothèques, il faut les ajouter à ton projet.
29/03/2018, 08h50
AlfredKr

Bonjour Lung,

Je veux pas utiliser glut, on me l'a déconseillé.
L'extension non plus mais je ne connais pas GL.
faut'il télécharger le dll de gl, son dcu ou autre ? où le télécharger ? et dans quel répertoire le mettre ?

Merci d'avance,

Fred
29/03/2018, 08h56
SergioMaster

Bonjour,

je crois que vous n'avez pas compris, Lung vous indique d'utiliser les unités pas d'installer d'autres composants.
Embarcadero a scindé en plusieurs unités pour des questions pratiques.
En faisant une recherche dans chacune des unités citées vous trouverez certainement où se situe les fonctions recherchées et supprimerez les autres
29/03/2018, 10h06
anapurna

salut

Delphi est déjà livré avec l'unité OpenGL, mais celle-ci est obsolète .
Par conséquent, je conseille à tout le monde de ne pas utiliser cet en-tête,
d'autant plus qu'il manque la plupart des fonctionnalités actuelles d'OpenGL.

je prefere utiliser dlgOpengl que tu trouvera ici
29/03/2018, 10h44
SergioMaster

Citation:

Envoyé par anapurna

Delphi est déjà livré avec l'unité OpenGL, mais celle-ci est obsolète .

par curiosité ? même pour les dernières versions ?
29/03/2018, 11h41
AlfredKr

Bonjour et merci le montagnard,
J'ai importé dlgopengl. Ca me pose un problème car quand je crée la forme par

Citation:

DC:=GetDC(batdisgnfrm.perspanel.Handle);
SetupPixelFormat(DC);
RC:=wglCreateContext(DC); //makes OpenGL window out of DC
wglMakeCurrent(DC, RC); //makes OpenGL window active
GLInit; //initialize vue projection ...OpenGL

Dans l'execution, il n'accepte pas la ligne "RC:=wglCreateContext(DC);"
La valeur de DC est très élevée et il bloque.
Ca ne se passait pas avec l'opengl que j'avais.

Merci d'avance,

Fred
29/03/2018, 13h39
AlfredKr

Pardon,
C'est "glmatrixmode(GL_PROJECTION) qu'il n'accepte pas.
Il s'arrète avec une exception
29/03/2018, 14h40
anapurna

salut

pour @sergio ... sur les dernieres version je ne sais pas ... ont il fait evoluer l'unité pour cela il faudrais que j'ai les sources, je n'ai pas les moyens
de m'acheter la version avec les sources ...

pour @AlfredKr il nous est difficile de repondre sans voir le debut d'une esquise d'un bout de code :D
l'openg gl est il bien initialisé quand tu fait appel à

Code:

glmatrixmode(GL_PROJECTION)

cette fonction ne devrais etre appeller quand dans la methode onpaint de ton element fenêtré
d'apres ce que j'ai vu c'est celle d'un panel
29/03/2018, 17h06
AlfredKr

Avec l’opengl initial ça fonctionnait parfaitement.
Est-ce que cette instruction réagit différemment avec les 2 «*OpenGL*» ?
Théoriquement, si après cette instruction j’écris [EDIT] «*~~glloadidentitymatrix~~ Glloadidentity il ne peut pas y avoir un débordement du stack car cette dernière instruction réinitialise la pile de projection.

Je vais essayer d’enlever ce couple d’instructions.
Je passe souvent par ces instructions car dans mon programme l’utilisateur modifie les position, direction et le Near du glulookat.
Concernant l’utilisation du panel,je me suis aperçu que le dessin 3D sur un paintbox ne fonctionne pas.
Le programme fonctionne sans faute avec l’opengl original

Merci
Cordialement
Fred
29/03/2018, 19h30
anapurna

salut

tu n'utiliserais pas glLoadIdentity entre un glBegin et un glEnd ?
ceci declenche un GL_INVALID_OPERATION

La fonction glLoadIdentity remplace la matrice actuelle par la matrice unitaire
29/03/2018, 20h39
AlfredKr

Non, non,
je l'utilise juste après chaque glmatrixmode pour l'initialiser.
L'erreur arrive sur la ligne de glloadidentity (ACCES VIOLATION)
Questions :
Faut-il rappeler le couple glmatrixmode(GL_PROJECTION)/glidentity avant un glulookat ou un glfrustum ?
Pourquoi le programme fonctionne vraiment très bien avec l'ancien opengl ?
29/03/2018, 22h11
Paul TOTH
parceque l'ancienne unité contient une section d'initialisation, il suffit de l'ajouter dans le Uses avec les autres (de préférence avant) ou d'ajouter ce code dans ton projet avec System.Math
Code:

1 2 3 begin SetExceptionMask([exInvalidOp..exPrecision]); end.
EDIT: dans les derniers Delphi il y a une unité complémentaire Winapi.OpenGLext

Bonjour Mr TOTH,
Merci pour votre réponse.
D'abord voici quelques détails:
- J'ai delphi XE5 pro.
- Je travaille avec un portable PC dont l'écran est un 12.5".
- Jusqu'à aujourd'hui, dans mon programme c'était une plateforme 64 b. En modifiant en 32 b, l'erreur fatale ne se produit pas au même endroit.
- La surface dans laquelle est dessiné l'objet en perspective (un bâtiment) en 3D est un panel. Je ne voulais pas utiliser une forme entière lui étant dévouée parce que je voulais placer un écran paintbox auxiliaire qui me permettait de modifier les position, focale et direction de la caméra. En dynamique j'avais le bâtiment qui se déplaçait automatiquement. Tout ceci fonctionne et fonctionnait à merveille avec l'opengl de base inclus dans le delphi que j'ai acheté il y a plus de 5 ans à sa sortie.
J'ai opté pour un panel car ça ne passait pas avec un paintbox. Je ne sais pas pourquoi.
Je n'ai pas encore essayé de dessiner dans une forme annexe avec le nouveau dglopengl.

Ca a l'air de bloquer à ou après l'initialisation de prise en main de l'écran.
Voici la procédure:
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 procedure GLInit; const light0_position:TGLArrayf4=( 0.0, 5.0, 5.0, 1.0); ambient: TGLArrayf4=( 0.98, 0.878, 0.478, 1.0); var stri : string; begin SetExceptionMask([exInvalidOp..exPrecision]); glMatrixMode(GL_PROJECTION); glLoadIdentity; with batdisgnfrm.perspanel do glFrustum(-xfrustum, xfrustum, -xfrustum * height / width, xfrustum * height / width, poseecran, 12000.0); // glFrustum(-1.0, 1.0, -1.0, 1.0, poseecran, 12000.0); glMatrixMode(GL_MODELVIEW); glLoadIdentity; glEnable(GL_DEPTH_TEST); glclearcolor(0.0, 0.0, 0.0, 1.0); // glclearcolor(0.149, 0.490, 0.929, 1.0); // ciel glEnable(GL_LIGHTING); glLightfv(GL_LIGHT0, GL_POSITION, @light0_position); glLightfv(GL_LIGHT0, GL_AMBIENT, @ambient); glEnable(GL_LIGHT0); gldisable(GL_LIGHTING); // stri := glgetstring(GL_VERSION); // showmessage(stri); end;
Code:

1 2 3 4 5 6 7 8 procedure Tbatdisgnfrm.FormCreate(Sender: TObject); begin DC:=GetDC(batdisgnfrm.perspanel.Handle); SetupPixelFormat(DC); RC:=wglCreateContext(DC); wglMakeCurrent(DC, RC); GLInit; end;
Glinit est appelé par formcreate et une autre fois quand je modifie glulookat.

Votre "setexception..." n'a pas résolu le problème. Je l'avais placé au début
Voilà.
N'hesitez pas à me proposer d'autres investigations si nécessaire.

Est-ce que votre openglext serait plus sûr pour mon cas ?

Merci encore
cordialement
Fred

30/03/2018, 09h50
AlfredKr

1 pièce(s) jointe(s)

Voici un dessin de la form en exe

Citation:

Pièce jointe 365845

salut

quelque petites question

dans ton setupPixelFormat tu fait bien un truc de ce genre là ?
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 var nPixelFormat: Integer; pfd: TPIXELFORMATDESCRIPTOR; Begin Result := False; FillChar(pfd, SizeOf(TPIXELFORMATDESCRIPTOR),0); pfd.nSize := sizeof(TPixelFormatDescriptor); // Size of this structure pfd.nVersion := 1; // Version number pfd.dwFlags := PFD_DRAW_TO_WINDOW | PFD_SUPPORT_OPENGL | PFD_DOUBLEBUFFER; pfd.iPixelType := PFD_TYPE_RGBA; // RGBA pixel values pfd.cColorBits := 24; pfd.cDepthBits := 24; pfd.iLayerType:= PFD_MAIN_PLANE; // Layer type SetLastError(0); // on remet les erreurs a zero nPixelFormat := ChoosePixelFormat(GlMemDC, @pfd); If nPixelFormat <> 0 then Begin if not SetPixelFormat(GlMemDC, nPixelFormat, @pfd) then raise Exception.CreateFmt('Unable to Set Pixel Format %d ', [getlasterror]); end else raise Exception.CreateFmt(''Unable to Pick Pixel Format %d ', [getlasterror]); Result := true;
Quelle type de valeur est DC ? THandle,integer,... ?

D'apres ce que tu dis

Citation:

- Jusqu'à aujourd'hui, dans mon programme c'était une plateforme 64 b. En modifiant en 32 b, l'erreur fatale ne se produit pas au même endroit.

cela ressemble fortement a un soucis d'étendu(changement de type)
tu n'utiliserais pas des Extended dans ton code ?

ceci

Code:

SetExceptionMask([exInvalidOp..exPrecision]);

n'a besoin d'etre appelé qu'une seul fois
c'est pour "trapper les erreur mathematique due aux nombres reel"

de plus si tu veut utiliser un tpanel il faut que tu accede a son canvas pour ce faire
Code:

1 2 3 4 5 TPanel = class(ExtCtrls.TPanel) public property Canvas; // TPanel contient un canvas qu'il faut publié! end;

30/03/2018, 15h57
Paul TOTH

j'ai voulu tester ton code mais il manque la moitié des choses

sinon j'aime bien utiliser un TFrame pour OpenGL

https://www.developpez.net/forums/d1...ame-plusieurs/

Bonjour,
Je vais essayer de répondre le plus clairement possible et si possible à toutes tes interrogations.
D'abord, j'avais oublié de mentionner que j'utilise des "double" pour des glfloatf, en toute rigueur je devrai utiliser des Simple.
Bon, voici mes réponses.
- ça ne me dérangerait pas de remplacer le panel par un frame. Comme ça marchait avec opengl, tu penses bien que j'ai utilisé le handle du panel et la bonne unité pour le DC.
Je te communique les codes
Voici les déclarations de DC et RC:

Code:

1
2
3
 
  DC:HDC;
  RC:HGLRC;

Voici ce qui manquait concernant la partie opengl

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
34
35
 
procedure setupPixelFormat(DC:HDC);
const
   pfd:TPIXELFORMATDESCRIPTOR = (
        nSize:sizeof(TPIXELFORMATDESCRIPTOR);	// size
        nVersion:1;			// version
        dwFlags:PFD_SUPPORT_OPENGL or PFD_DRAW_TO_WINDOW or
                PFD_DOUBLEBUFFER;	// support double-buffering
        iPixelType:PFD_TYPE_RGBA;	// color type
        cColorBits:24;			// preferred color depth
        cRedBits:0; cRedShift:0;	// color bits (ignored)
        cGreenBits:0;  cGreenShift:0;
        cBlueBits:0; cBlueShift:0;
        cAlphaBits:0;  cAlphaShift:0;   // no alpha buffer
        cAccumBits: 0;
        cAccumRedBits: 0;  		// no accumulation buffer,
        cAccumGreenBits: 0;     	// accum bits (ignored)
        cAccumBlueBits: 0;
        cAccumAlphaBits: 0;
        cDepthBits:16;			// depth buffer
        cStencilBits:0;			// no stencil buffer
        cAuxBuffers:0;			// no auxiliary buffers
        iLayerType:PFD_MAIN_PLANE;  	// main layer
   bReserved: 0;
   dwLayerMask: 0;
   dwVisibleMask: 0;
   dwDamageMask: 0;
   );
var
  pixelFormat:integer;
begin
  pixelFormat := ChoosePixelFormat(DC, @pfd);
  if (pixelFormat = 0) then exit;
  if (SetPixelFormat(DC, pixelFormat, @pfd) <> TRUE) then exit;
end;

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
 
procedure GLInit;
const
   light0_position:TGLArrayf4=( 0.0, 5.0, 5.0, 1.0);
   ambient:  TGLArrayf4=( 0.98, 0.878, 0.478, 1.0);
var
  stri : string;
begin
  SetExceptionMask([exInvalidOp..exPrecision]);
  glMatrixMode(GL_PROJECTION);
  glLoadIdentity;
  with batdisgnfrm.perspanel do
  glFrustum(-xfrustum, xfrustum, -xfrustum * height / width, xfrustum * height / width, poseecran, 12000.0);
  glMatrixMode(GL_MODELVIEW);
  glLoadIdentity;
  glEnable(GL_DEPTH_TEST);
  glclearcolor(0.0, 0.0, 0.0, 1.0);
  glEnable(GL_LIGHTING);
  glLightfv(GL_LIGHT0, GL_POSITION, @light0_position);
  glLightfv(GL_LIGHT0, GL_AMBIENT, @ambient);
  glEnable(GL_LIGHT0);
  gldisable(GL_LIGHTING);
end;

procédures

Code:

1
2
3
4
5
6
7
8
9
10
11
12
 
procedure Tbatdisgnfrm.FormDestroy(Sender: TObject);
begin
  wglmakecurrent(dc,0);
  wgldeletecontext(RC);
end;
 
procedure Tbatdisgnfrm.FormPaint(Sender: TObject);
begin
  glinit;
  draw;
end;

La procédure draw met dans le buffer du pipeline tous les éléments du bâtiment et l'envoie dans le panel.
Pour anapurna:
C'est vrai que dans pixelformatdescriptor je ne gère pas les erreurs.
Je pourrai le faire.
Je n'utilise jamais d'Extended.

Les autres feuilles de cette forme m'aident à créer et positionner les poteaux et voiles sous chaque plancher. Ensuite j'effectue une analyse temporelle du bâtiment ainsi créé durant un séisme horizontal.

Cordialement,

Fred

30/03/2018, 21h39
Paul TOTH

Citation:

Envoyé par AlfredKr

Bonjour,
Je vais essayer de répondre le plus clairement possible et si possible à toutes tes interrogations.
D'abord, j'avais oublié de mentionner que j'utilise des "double" pour des glfloatf, en toute rigueur je devrai utiliser des Simple.

euh...dans OpenGL toutes les fonctions qui se terminent pas "f" (float) attendent des Single, et celles qui se terminent pas "d" (double) des Double...et on peut avoir les deux comme glVertex3f ou glVertex3d

Citation:

Envoyé par AlfredKr

Bon, voici mes réponses.
- ça ne me dérangerait pas de remplacer le panel par un frame. Comme ça marchait avec opengl, tu penses bien que j'ai utilisé le handle du panel et la bonne unité pour le DC.

il y a tout de même un défaut dans ta logique puisque tu dessines dans le Handle du Panel sur le OnPaint de la fiche qui possède son propre Handle, ça peut fonctionner mais ce n'est pas logique. Si tu regardes mon code de TGLFrame je surcharge les méthodes adaptée aux besoins.
31/03/2018, 09h28
AlfredKr

Bonjour Paul et Anapurna,
D'abord avec mon delphi XE5 pro je n'ai pas de Tframe. Comment l'obtenir ?
Le programme bloque à la création de la form à l'instruction "RC:=wglCreateContext(DC)"

Question à Anapurna:
Est-ce que dglopengl est valable avec delphi XE5 pro ?
Dans dglopengl.pas, la fonction createrenderingcontext regroupe toutes les fonctions de l'écran 3D->2D.
Le PFD et la création du context.
Peut-être que dans le formcreate il faut seulement écrire DC:=GetDC(batdisgnfrm.perspanel.Handle) et ensuite appeler createrenderingcontext qui, aussi, remplacera cette fonction.
J'ai essayé et obtiens toujours l'erreur !!!

Cordialement,

Fred

Hourrah !!!!Hourrah !!!
J'ai trouvé la solution à mon problème.
Avec dglopengl il faut ce formcreate :
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 procedure Tbatdisgnfrm.FormCreate(Sender: TObject); var opt : TRCoptions; begin InitOpenGL; DC:=GetDC(batdisgnfrm.perspanel.Handle); opt := [opDoubleBuffered]; RC := CreateRenderingContext(DC, opt, 24, 24,0, 0, 0, 0); SetupPixelFormat(DC); ActivateRenderingContext(DC, RC); GLInit; end;
Avec ça, ca fonctionne, je l'espère comme avant ...
Bonnes fêtes de Pâques

Fred

J'ai oublié de mentionner que la réponse était dans le site ("ici") de chargement de dglopengl.pas communiqué par Anapurna.
Le code suivant qui m'a aidé se trouve dans dglopengl.html.
Soit

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
 
procedure MyGLInit;
begin
  InitOpenGL; // Don't forget, or first gl-Call will result in an access violation!
  MyDC := GetDC(...);
  MyRC := CreateRenderingContext(...);
  ActivateRenderingContext(MyDC, MyRC); // Necessary, will also read some extension
  ...
end;
 
// After doing the above initialisation, you're ready to use all OpenGL-Functions and extensions your card supports. And also don't forget to release your context properly when exiting :
 
procedure MyDeInit;
begin
  DeactivateRenderingContext; // Deactivates the current context
  wglDeleteContext(myRC);
  ReleaseDC(Handle, myDC);
end;

Merci encore à vous 2
Paul TOTH et Anapurna

Fred

03/04/2018, 10h02
AlfredKr

Bonjour,

J'ai relancé cette discussion parce qu'en l'indiquant comme résolue et comme la finalité se trouve en 2ème feuillet, le lecteur intéressé n'aurait pas vu le résultat final.

Cordialement,

Fred