DGL • Thema anzeigen - OpenGL in Delphi .NET

OpenGL in Delphi .NET

Moderator: DGL-Team

Seite 1 von 1

[ 2 Beiträge ]

Vorheriges Thema | Nächstes Thema

Autor

Nachricht

UKW

Betreff des Beitrags: OpenGL in Delphi .NET

Verfasst: Mi Dez 01, 2004 21:49

DGL Member

Registriert: Mi Dez 01, 2004 21:44
Beiträge: 4

Hallo allerseits,

kann mir jemand sagen wie ich in Delphi .NET (8 bzw. 2005) OpenGL initialisieren kann. Ich habe Probleme mit dem Pixelformat, habe zwar schon alle möglichen Kombinationen ausprobiert bekomme aber bei wglCreateContext 0 zurück und GetLastError ist 2000. Hat jemand eine Idee?
(in Delphi Win32 funktioniert alles so)

Mein Code:

Code:

 
var
  pfd : Windows.tagPIXELFORMATDESCRIPTOR;
  PixelFormat : Integer;
begin
  hDC := GetDC( Handle );
 
  pfd.nSize := SizeOf( pixelFormat );
  pfd.nVersion := 1;
  pfd.dwFlags := PFD_SUPPORT_OPENGL or PFD_DRAW_TO_WINDOW or PFD_DOUBLEBUFFER;
  pfd.iPixelType := PFD_TYPE_RGBA;
  pfd.cColorBits := 32; //24 geht auch nicht
  pfd.cDepthBits := 32;
  pfd.iLayerType := PFD_MAIN_PLANE;
 
 
  PixelFormat := ChoosePixelFormat( hDC, pfd );
 
  if ( PixelFormat = 0 ) then
  begin
    MessageBox( self.Handle, 'Error on getting pixel format.', 'Error', MB_OK or MB_ICONEXCLAMATION );
  end;
 
  if ( PixelFormat <> GetPixelFormat( hDC ) ) then
  if ( not SetPixelFormat( hDC, PixelFormat, pfd ) ) then
  begin
    MessageBox( self.Handle, 'Error on setting pixel format.', 'Error', MB_OK or MB_ICONEXCLAMATION );
    ReleaseDC( Handle, hDC );
    
    exit;
  end;
 
  hRC := wglCreateContext( hDC );
 
  if ( hRC = 0 ) then
  begin
      Caption := IntToStr( GetLastError );
    MessageBox( self.Handle, 'Error on creating render context.', 'Error', MB_OK or MB_ICONEXCLAMATION );
    
    ReleaseDC( Handle, hDC );
 
    exit;
  end;
 

Danke,

UKW

Nach oben

UKW

Betreff des Beitrags:

Verfasst: Mi Dez 08, 2004 14:18

DGL Member

Registriert: Mi Dez 01, 2004 21:44
Beiträge: 4

Ich habe die Lösung selber gefunden! Und es war natürlich wie fast immer ein ganz einfacher Fehler!:

Es darf natürlich nicht:

Code:

 
pfd.nSize := SizeOf( pixelFormat ); 
 

heißen,

sondern muss:

Code:

 
pfd.nSize := SizeOf( pfd ); 
 

heißen!

Trotzdem Danke an alle, die sich den Kopf zerbrochen haben!

Nach oben

Seite 1 von 1

[ 2 Beiträge ]

Foren-Übersicht » Programmierung » OpenGL

Wer ist online?

Mitglieder in diesem Forum: 0 Mitglieder und 14 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.