Einzelnen Beitrag anzeigen

Benutzerbild von Mr_T
Mr_T

Registriert seit: 7. Jun 2002
Ort: Eilsum
136 Beiträge
 
Delphi 2005 Personal
 
#2

Re: OpenGL - Exception bei Ausführen...

  Alt 1. Okt 2003, 20:18
Jup, kann ich
Das Problem liegt darin, dass in meinen Tuts die Opengl.pas verwendet wird
(die Bei Delphi selber mit bei ist), du aber in deinem Source die Opengl15.pas
von www.delphigl.com verwendest ... der Unterschied ist nun, dass du an dieser
Stelle
Delphi-Quellcode:
procedure TForm1.FormCreate(Sender: TObject);
begin
    <-- Hier!
form1.myDC := GetDC(Handle);
SetupPixelFormat;
myRC := wglCreateContext(myDC);
wglMakeCurrent(myDC, myRC);
glEnable(GL_DEPTH_TEST);
glLoadIdentity;
end;
einmal die Prozedur "LoadOpenGL;" aufrufen musst, damit die OpenGl-Unit die ganzen
Prozeduradressen aus der Opengl32.dll lädt ... denn sollte es gehen...

(dementsprechend am Ende des Progies einmal "UnloadOpenGL;" aufrufen)

Ich hoffe, das hilft weiter....
Mein neuer, 13 Teiliger Open GL - Kurs (Samples in Delphi):
www.dcw-group.net
Neu! Ein großer Teil der Demos nach Kylix übersetzt!
Neu! Teil 2b: Initialisierung von OpenGL unter Kylix ist fertig!
  Mit Zitat antworten Zitat