DGL • Thema anzeigen - AccessViolation bei Vollbild

AccessViolation bei Vollbild

Moderator: DGL-Team

Seite 1 von 1

[ 3 Beiträge ]

Vorheriges Thema | Nächstes Thema

Autor

Nachricht

Tiger_Leo

Betreff des Beitrags: AccessViolation bei Vollbild

Verfasst: Fr Feb 25, 2005 14:05

DGL Member

Registriert: Mo Feb 21, 2005 21:59
Beiträge: 33

hi Leute hab ein großes Problem.

Hab nen template für opengl12_api mit nem template für opengl15_vcl "gemischt" (Frankstein lässt grüßen :wink:

)
wenn ich mein prog im fenstermodus laufen lasse funktioniert alles wunderbar nur wenn ich das im Vollbild haben will gibts ne Access Violation.
Ich glaube der Fehler wird bei CreateWndEx erzeugt, weil kein wert an h_wnd übergeben wird.
Nur ich hab keinen Plan wieso...
hier mal der Code von glCreateWnd:

Code:

function glCreateWnd(Width, Height : Integer; Fullscreen : Boolean; PixelDepth : Integer) : Boolean;
var
  wndClass : TWndClass;         // Fenster Klasse
  dwStyle : DWORD;              // Fenster Stil
  dwExStyle : DWORD;            // Erweiterter Fenster Stil
  dmScreenSettings : DEVMODE;   // Bildschirm Einstellungen (fullscreen, etc...)
  PixelFormat : GLuint;         // OpenGL Einstellungen (Pixelformat)
  h_Instance : HINST;           // aktuelle Instanz
  pfd : TPIXELFORMATDESCRIPTOR;  // Einstellungen für das OpenGL Fenster
begin
  h_Instance := GetModuleHandle(nil);       // Instanz für's Fenster holen
  ZeroMemory(@wndClass, SizeOf(wndClass));  // Daten in wndClass löschen
 
  with wndClass do                    // Setup der Fenster Klasse
  begin
    style         := CS_HREDRAW or    // Neuzeichenen wenn Fenster-Breite geändert
                     CS_VREDRAW or    // Neuzeichenen wenn Fenster-Höhe geändert
                     CS_OWNDC;        // Device Context exlusiv
    lpfnWndProc   := @WndProc;        // WndProc wird als Window Procedure gesetzt
    hInstance     := h_Instance;
    hCursor       := LoadCursor(0, IDC_ARROW);
    lpszClassName := 'OpenGL';
  end;
 
  if (RegisterClass(wndClass) = 0) then  // Fenster Klasse registrieren
  begin
    MessageBox(0, 'Failed to register the window class!', 'Error', MB_OK or MB_ICONERROR);
    Result := False;
    Exit
  end;
 
  // Vollbild wenn Parameter Fullscreen = true
  if Fullscreen then
  begin
    ZeroMemory(@dmScreenSettings, SizeOf(dmScreenSettings));
    with dmScreenSettings do begin              // Bildschirm Einstellungen werden festgelegt
      dmSize       := SizeOf(dmScreenSettings);
      dmPelsWidth  := Width;                    // Fenster Breite
      dmPelsHeight := Height;                   // Fenster Höhe
      dmBitsPerPel := PixelDepth;               // Farbtiefe (32bit etc)
      dmFields     := DM_PELSWIDTH or DM_PELSHEIGHT or DM_BITSPERPEL;
    end;
 
    // Bilschirm Modus auf Vollbild setzen
    if (ChangeDisplaySettings(dmScreenSettings, CDS_FULLSCREEN) = DISP_CHANGE_FAILED) then
    begin
      MessageBox(0, 'Unable to switch to fullscreen!', 'Error', MB_OK or MB_ICONERROR);
      Fullscreen := False;
    end;
  end;
 
  // Wenn wir immer noch im Vollbildmodus sind....
  if (Fullscreen) then
  begin
    dwStyle := WS_POPUP or                // Popup Fenster Stil
               WS_CLIPCHILDREN            // Kein Zeichnen in Child Fenstern
               or WS_CLIPSIBLINGS;        // Kein Zeichnen in Sibling Fenstern
    dwExStyle := WS_EX_APPWINDOW;         // Fenster im Vordergrund
    ShowCursor(False);                    // Mauszeiger verstecken
  end
  else // Für Normale Fenster
  begin
    dwStyle := WS_OVERLAPPEDWINDOW or     // Überschneidung zulassen
               WS_CLIPCHILDREN or         // Kein Zeichnen in Child Fenstern
               WS_CLIPSIBLINGS;           // Kein Zeichnen in Sibling Fenstern
    dwExStyle := WS_EX_APPWINDOW or       // Fenster im Fordergrund
                 WS_EX_WINDOWEDGE;        // Erhobener Rand
  end;
 
  // Das oben definierte Fenster wird erstellt
  h_Wnd := CreateWindowEx(dwExStyle,      // Erweiterter Fenster Stil
                          'OpenGL',       // Name der Klasse
                          WND_TITLE,      // Fenster Titel (caption)
                          dwStyle,        // Fenster Stil
                          0, 0,           // Fenster Position
                          Width, Height,  // Größe des Fensters
                          0,              // Keine Paren-Windows
                          0,              // Kein Menü
                          h_Instance,     // die Instanz
                          nil);           // Kein Parameter für WM_CREATE
  if h_Wnd = 0 then
  begin
    glKillWnd(Fullscreen);
    MessageBox(0, 'Unable to create window!', 'Error', MB_OK or MB_ICONERROR);
    Result := False;
    Exit;
  end;
 
  // Den Device Kontext unseres Fensters besorgen
  h_DC := GetDC(h_Wnd);
  if (h_DC = 0) then
  begin
    glKillWnd(Fullscreen);
    MessageBox(0, 'Unable to get a device context!', 'Error', MB_OK or MB_ICONERROR);
    Result := False;
    Exit;
  end;
 
// Ab hier kommt alles aus dem VCL Template: //
 
  InitOpenGL;
  // Renderkontext erstellen (32 Bit Farbtiefe, 24 Bit Tiefenpuffer, Doublebuffering)
  h_RC := CreateRenderingContext(h_DC, [opDoubleBuffered], 32, 24, 0, 0, 0, 0);
  // Erstellten Renderkontext aktivieren
  ActivateRenderingContext(h_DC, h_RC);
  // Tiefenpuffer aktivieren
  glEnable(GL_DEPTH_TEST);
  // Nur Fragmente mit niedrigerem Z-Wert (näher an Betrachter) \"durchlassen\"
  glDepthFunc(GL_LESS);
  // Löschfarbe für Farbpuffer setzen
  glClearColor(0,0,0,0);
 
  // Initialisierung des Timers zur FPS-Berechnung
  SetTimer(h_Wnd, FPS_TIMER, FPS_INTERVAL, nil);
 
  // Das Fenster wird in Vordergrund gebracht
  ShowWindow(h_Wnd, SW_SHOW);
  SetForegroundWindow(h_Wnd);
  SetFocus(h_Wnd);
 
  // Das Fenster bekommt nochmal die Größe zugewiesen um OpenGl richtig zu initialisieren
  glResizeWnd(Width, Height);
  LoadTextures;
  Result := True;
end;

Der erste Teil stammt aus dem Template für die Api und der Letze aus dem für die VCL
Wenn sich jemand fragt, wie ich auf die leichtsinnige idee komme die zu mischen:
Im Api-Template war die Initgl- funktion von der dglOpenGl unit nicht vorhanden. Im anderen template schon :roll:

Hat jemand ne Ahnung warum da ne Violation kommt?

Danke euch!

Leo

moderiert von Lossy eX: Code durch Pascaltags ersetzt.

Nach oben

Lossy eX

Betreff des Beitrags:

Verfasst: Fr Feb 25, 2005 14:53

DGL Member

Registriert: Do Dez 05, 2002 10:35
Beiträge: 4234
Wohnort: Dortmund

Hab das mit den Tags mal geändert. Aber sniper_w hat recht. Diese Frage kam in letzter Zeit ziemlich häufig.
Siehe hier.

Nach oben

Tiger_Leo

Betreff des Beitrags:

Verfasst: Fr Feb 25, 2005 15:59

DGL Member

Registriert: Mo Feb 21, 2005 21:59
Beiträge: 33

Oh, sorry! :cry:

Dachte ich wäre der Einzige der auf so verückte idee kommt...
Danke für den Link!
Das problem ist weg.

Bei nächsten mal werd ich erstmal suchen, versprochen!

Danke euch und noch sry

Leo

Nach oben

Seite 1 von 1

[ 3 Beiträge ]

Foren-Übersicht » Programmierung » Einsteiger-Fragen

Wer ist online?

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