DGL • Thema anzeigen - Anfänger Problem

Anfänger Problem

Moderator: DGL-Team

Seite 1 von 1

[ 7 Beiträge ]

Vorheriges Thema | Nächstes Thema

Autor

Nachricht

HaschHase

Betreff des Beitrags: Anfänger Problem

Verfasst: Fr Jul 08, 2005 13:43

DGL Member

Registriert: Do Apr 29, 2004 11:53
Beiträge: 29

Hi, so bin neu in Delphi und hab schon das erste Problem

er stürzt immer ab(fenster schliesst sich) sobald ich diese funktion aufrufe

Code:

function TEngine.init3D():Boolean;
  begin
      // shading mode
      glShadeModel(GL_FLAT);
      // background color
      glClearColor( 0.0, 0.5, 0.3, 0.0);
      glClearDepth( 1.0 );
 
      // depth testing
      glEnable(GL_DEPTH_TEST);
      glDepthFunc(GL_LEQUAL);
      
      // perspective calculator
      glHint( GL_PERSPECTIVE_CORRECTION_HINT, GL_NICEST);
 
      glViewport(0, 0, pSurface.w, pSurface.h);
 
      glMatrixMode(GL_PROJECTION);
      glLoadIdentity;
 
      // best perspective calculation
      gluPerspective(45, pSurface.w / pSurface.h, 0.1, 1000);
 
      glMatrixMode(GL_MODELVIEW);
      glLoadIdentity;
 
 
 
  end;

den einzigsten fehler wo ich mir vorstellen könnte wäre dass pSurface nicht mit daten gefüllt wurde beim initialisieren
pSurface:= SDL_SetVideoMode...

wäre super wenn jemand helfen könnte

edit:

hier der ganze code, vielleicht hilfts weiter

Code:

unit DVEngine;
 
interface
 
// use sdl(jedi-sdl) and the dglOpenGl header from DelphiGl.com
uses
  SysUtils, SDL, dglOpenGL;
 
 
  // the engine class
  type
    TEngine = class
    private
      pSurface : PSDL_Surface;
    public
    // create a window
    function setupWindow( width : integer; height : integer; bpp : integer;  title : PAnsiChar) : Boolean;
    function init3D():Boolean;
  end;
 
implementation
 
// function to create a window
  function TEngine.setupWindow( width : integer; height : integer; bpp : integer; title : PAnsiChar) : Boolean;
  begin                   
          if( SDL_Init( SDL_INIT_VIDEO) <> -1) then
            pSurface := SDL_SetVideoMode(width,height,0, SDL_OPENGL or SDL_DOUBLEBUF or SDL_HWPALETTE);
            SDL_WM_SetCaption(title,nil);
 
            if(pSurface = nil) then
            begin
              SDL_Quit();
            end;
 
            // set bits per pixel(bpp)
            SDL_GL_SetAttribute(SDL_GL_RED_SIZE, bpp div 3);
            SDL_GL_SetAttribute(SDL_GL_GREEN_SIZE,bpp div 3);
            SDL_GL_SetAttribute(SDL_GL_BLUE_SIZE,bpp div 3);
            SDL_GL_SetAttribute(SDL_GL_DEPTH_SIZE, bpp);
            // activate doublebuffering
            SDL_GL_SetAttribute(SDL_GL_DOUBLEBUFFER, 1);
 
          result := true;
  end;
  // setup opengl for 3d mode
  function TEngine.init3D():Boolean;
  begin
      // shading mode
      glShadeModel(GL_FLAT);
      // background color
      glClearColor( 0.0, 0.5, 0.3, 0.0);
      glClearDepth( 1.0 );
 
      // depth testing
      glEnable(GL_DEPTH_TEST);
      glDepthFunc(GL_LEQUAL);
      
      // perspective calculator
      glHint( GL_PERSPECTIVE_CORRECTION_HINT, GL_NICEST);
 
      glViewport(0, 0, pSurface.w, pSurface.h);
 
      glMatrixMode(GL_PROJECTION);
      glLoadIdentity;
 
      // best perspective calculation
      gluPerspective(45, pSurface.w / pSurface.h, 0.1, 1000);
 
      glMatrixMode(GL_MODELVIEW);
      glLoadIdentity;
 
       result := true;
  end;
 
end.
 

_________________
wtf?!

Nach oben

Phobeus

Betreff des Beitrags:

Verfasst: Fr Jul 08, 2005 18:32

Fels i.d. Brandung

Registriert: Sa Mai 04, 2002 19:48
Beiträge: 3830
Wohnort: Tespe (nahe Hamburg)

Auch wenn dies nicht deiner Beschreibung entspricht. Du verwendest die DGLHeader, wird bei Dir im Programm InitOpenGL; aufgerufen, so dass die Funktionen von OpenGL überhaupt zur Verfügung stehen? Sollte wenn nicht nämlich eigentlich eine Exception geben, sobald die OpenGL-Funktionen ins Spiel kommen.

_________________
"Light travels faster than sound. This is why some people appear bright, before you can hear them speak..."

Nach oben

LarsMiddendorf

Betreff des Beitrags:

Verfasst: Fr Jul 08, 2005 18:46

DGL Member

Registriert: Sa Dez 28, 2002 11:13
Beiträge: 2244

Wenn man OpenGL über CreateRenderingContext initialisiert braucht man kein InitOpenGL mehr. Das wurde ja extra geändert, weil es viele immer vergessen haben.

Nach oben

i0n0s

Betreff des Beitrags:

Verfasst: Fr Jul 08, 2005 20:24

Ernährungsberater

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

Hat er aber nicht.
Er müsste im int3d() [C-Programmierer?

] noch InitOpenGL und zumindest bei der alten Version noch ReadExtension ausführen, damit OpenGL richtig initialisiert ist.
Zumindest das ReadExtension hatte bei mir zu Abstürzen ohne Exception geführt.

Nach oben

sniper

Betreff des Beitrags:

Verfasst: Fr Jul 08, 2005 20:52

DGL Member

Registriert: Mi Dez 15, 2004 20:36
Beiträge: 454
Wohnort: Wien, Österreich

Bei dieser Version:

Code:

{       OpenGL1.5 - Headertranslation (includes GL1.1-1.5)                     }
{       Version 1.5                                                            }
{       Date : 21.10.2004                                                      }
{                                                                              }
{       Works with :                                                           }
{        - Delphi 3 and up                                                     }
{        - FreePascal (1.9.3 and up)                                           }

braucht man ungefähr so etwas:

Code:

 InitOpenGL();
 myDc := GetDC(MyHWND);
 myRc := CreateRenderingContext(myDc,[opDoubleBuffered],BitsPerPixel,8,8,0,0,0);
 ActivateRenderingContext(myDc,myRc);

damit OpenGL auch läuft. Erst danach darf man beliebige gl-glu Funktion aufrufen.

Nachtrag:
@HaschHase: Für pascal Code bitte pascal Tags benutzen. Sieht viel schöner aus.

_________________
"Meine Mutter sagt : 'Dumm ist der, der Dummes tut'." - Forrest Gump

Nach oben

HaschHase

Betreff des Beitrags:

Verfasst: Sa Jul 09, 2005 09:33

DGL Member

Registriert: Do Apr 29, 2004 11:53
Beiträge: 29

Zitat:

[C-Programmierer? Smile ]

100 punkte

ich brauch doch kein rendercontex, für sowas hab ich sdl :lol:

Code:

pEngine.setupWindow(800,600,32,'SDL-OpenGL');
InitOpenGL;
pEngine.init3D;

und schon funktionierts wunderbar, muss nur noch die buffers leeren damit ich meine hintergrundfarbe bekomm

danke an alle

_________________
wtf?!

Nach oben

Phobeus

Betreff des Beitrags:

Verfasst: Sa Jul 09, 2005 11:53

Fels i.d. Brandung

Registriert: Sa Mai 04, 2002 19:48
Beiträge: 3830
Wohnort: Tespe (nahe Hamburg)

Eben. Der Rendercontex hilft einen leider nicht viel weiter. Ggf. erlebst Du auch noch bei den Extension eine böse Überraschung. Dann packst nach dem Init noch ein ReadExtensions hinter her und alles sollte problemfrei laufen.

_________________
"Light travels faster than sound. This is why some people appear bright, before you can hear them speak..."

Nach oben

Seite 1 von 1

[ 7 Beiträge ]

Foren-Übersicht » Programmierung » Einsteiger-Fragen

Wer ist online?

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