DGL • Thema anzeigen - OpenGL unter Lazarus

OpenGL unter Lazarus

Moderator: DGL-Team

Seite 1 von 1

[ 3 Beiträge ]

Vorheriges Thema | Nächstes Thema

Autor

Nachricht

thebubble

Betreff des Beitrags: OpenGL unter Lazarus

Verfasst: Di Sep 01, 2009 00:48

DGL Member

Registriert: So Jan 07, 2007 21:26
Beiträge: 130
Wohnort: mal hier mal da mal irgendwo

Hi Leute,
ich hab folgendes Problem, ich arbeite jetzt mit Lazarus und bekomm einfach OpenGL nicht zum laufen, ich find auch den Fehler nicht, sodass ich euch fragen wollte. Als Fehlermeldung kommen immer nen Haufen Speicheradressen

Hier der Quelltext für Initialisierung bzw für die Finalisirung

Code:

{--------------------------------------------------------------------------}
{  OpenGL                                                                  
{--------------------------------------------------------------------------}
 
procedure InitOGL;
begin
  DC:=GetDC(Handle);
  if not InitOpenGL() then
    Halt;
  RC:=CreateRenderingContext(DC,
                             [opDoubleBuffered],
                             32,
                             24,
                             0,
                             0,
                             0,
                             0);
  ActivateRenderingContext(DC,RC);
  glClearColor(1, 0, 1, 0.0);
  glEnable(GL_DEPTH_TEST);
  glDepthFunc(GL_LESS);
end;
 
procedure DrawScene;
begin
  glViewport(0,0,Width,Height);
  glMatrixMode(GL_PROJECTION);
  glLoadIdentity;
  glOrtho(0,Width,0,Height,0,128);
end;
 
procedure FinalOGL;
begin
  DeactivateRenderingContext;
  DestroyRenderingContext(RC);
  ReleaseDC(Handle, DC);
end;
 
{--------------------------------------------------------------------------}
{  Event-Handler                                                     
{--------------------------------------------------------------------------}
 
function WndProc(h_wnd:HWND; umsg:UINT; wp:WPARAM; lp:LPARAM):LRESULT;stdcall;
begin
   case umsg of
     WM_CREATE:  begin
                   InitOGL;
                 end;
     WM_DESTROY: begin
                   FinalOGL;
                   PostQuitMessage(0);
                   Result:=0;
                 end;
     else
     begin
       DrawScene();
       Result:=DefWindowProc(h_Wnd, umsg, wP, lP);
     end;
   end;
end;

Der Fehler tritt immer in der DrawScene auf, wenn ich einen OpenGL-Befehl ausführen lassen will...

eigentlich dürfte ja dann vom logischen her OGL nicht initialisiert sein. Ist es aber

cuz bubble

_________________
Wenn Worte nichts als Worte sind,
dann müssen's Steine sein!
Solange - bis sie pleite sind - schmeißt Fensterscheiben ein!
- Fidl Kunterbunt -

Nach oben

i0n0s

Betreff des Beitrags:

Verfasst: Di Sep 01, 2009 01:45

Ernährungsberater

Registriert: Sa Jan 01, 2005 17:11
Beiträge: 2068
Programmiersprache: C++

Nach InitOpenGL() musst du noch ReadExtensions() aufrufen.
Erst danach sind die OpenGL Funktionen initialisiert.

_________________
Steppity,✲steppity,✴step,❆step,✳step! :twisted:

❆ ❄ ❄ ❄ ❅ ❄ ❆ ❄ ❅ ❄ ❅ ❄ ❅ ❄ ❄
❅ ☃ ❄ ❄ ❄ ❅ ❄ ❄ ❄ ❅ ❄ ☃ ❄ ❆ ❄ ❄

Nach oben

Traude

Betreff des Beitrags:

Verfasst: Di Sep 01, 2009 11:28

DGL Member

Registriert: Di Okt 03, 2006 14:07
Beiträge: 1277
Wohnort: Wien

Eigentlich wird das ReadExtensions vom ActivateRenderingContext aufgerufen. Aber ich weiß nicht, ob ich die aktuelle Header-Version habe - bin immer ein bissel hinten nach :wink:

@bubble: Du gibst mir zuwenig Input. Die Initialisierung von OpenGL sieht richtig aus, aber ich würde gerne wissen, wo genau Du die WndProc eingebaut hast. Verwendest Du die LCL? Wenn nicht, wo genau und wie wird das Fenster erzeugt? Wie ist sichergestellt, dass diese WndProc auch aufgerufen wird? Und so weiter.

Nach oben

Seite 1 von 1

[ 3 Beiträge ]

Foren-Übersicht » Programmierung » OpenGL

Wer ist online?

Mitglieder in diesem Forum: 0 Mitglieder und 3 Gäste

Du darfst keine neuen Themen in diesem Forum erstellen.
Du darfst keine Antworten zu Themen in diesem Forum erstellen.
Du darfst deine Beiträge in diesem Forum nicht ändern.
Du darfst deine Beiträge in diesem Forum nicht löschen.
Du darfst keine Dateianhänge in diesem Forum erstellen.