DGL • Thema anzeigen - Jedi SDL + dglOpenGL.pas

Jedi SDL + dglOpenGL.pas

Moderator: DGL-Team

Seite 1 von 1

[ 6 Beiträge ]

Druckansicht

Vorheriges Thema | Nächstes Thema

Autor

Nachricht

Gast

Betreff des Beitrags: Jedi SDL + dglOpenGL.pas

Verfasst: Mo Feb 07, 2005 13:09

I tried using dglOpenGL.pas with the SDL demos.
Replacing the unit OpenGL12.pas with dglOpenGL.pas and making the required changes so it compiles.
When running the application, as soon as any OpenGL call is made I get a access violation.
Anyone have a idea of what is the cause of this and how it can be fixed?

Nach oben

sniper

Betreff des Beitrags:

Verfasst: Mo Feb 07, 2005 13:28

DGL Member

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

Code:

 
unit Unit1;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, dglopengl;
 
type
  TForm1 = class(TForm)
    procedure FormCreate(Sender: TObject);
    procedure FormDestroy(Sender: TObject);
    procedure FormResize(Sender: TObject);
    procedure FormPaint(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
    procedure glInit();
  end;
 
var
  Form1: TForm1;
  mydc,myrc:cardinal;
 
implementation
 
{$R *.dfm}
 
procedure Tform1.glInit();
begin
  glClearColor(0.3, 0.3, 0.3, 0.0);        // Black Background
  glShadeModel(GL_SMOOTH);                 // Enables Smooth Color Shading
  glClearDepth(1.5);                       // Depth Buffer Setup
  glEnable(GL_DEPTH_TEST);
  glDepthFunc (GL_LEQUAL);
//  glEnable( GL_CULL_FACE );
//  glCullFace( GL_FRONT );
  glHint(GL_PERSPECTIVE_CORRECTION_HINT, GL_NICEST);   //Realy Nice perspective calculations
  glEnable(GL_TEXTURE_2D);                     // Enable Texture Mapping
  wglSwapIntervalEXT(0);
end;
 
procedure TForm1.FormCreate(Sender: TObject);
begin
 mydc := getdc(handle);
 InitOpenGL();
 myrc := CreateRenderingContext(mydc,[opDoublebuffered],32,24,0,0,0,0);
 ActivateRenderingContext(mydc, myrc);
 glInit();
end;
 
procedure TForm1.FormDestroy(Sender: TObject);
begin
 DeactivateRenderingContext;
 DestroyRenderingContext(myrc);
 releasedc(handle,mydc);
end;
 
procedure TForm1.FormResize(Sender: TObject);
begin
 if Height=0 then Height:=1;
 
  glViewport(0, 0, Width, Height);    // Set the viewport for the OpenGL window
  glMatrixMode(GL_PROJECTION);        // Change Matrix Mode to Projection
   glLoadIdentity();                   // Reset View
    gluPerspective(45.0, Width/Height, 1.0, 1000.0);  // Do the perspective calculations. Last value = max clipping depth
 
  glMatrixMode(GL_MODELVIEW);         // Return to the modelview matrix
   glLoadIdentity();                   // Reset View
 
   //if needed a faster feedback
   OnPaint(self);
end;
 
procedure TForm1.FormPaint(Sender: TObject);
begin // this is only an alternative....OnIdle for intensiv drawing
 glClear(GL_COLOR_BUFFER_BIT or GL_DEPTH_BUFFER_BIT);
   glLoadIdentity();
   //--draw the scene
 
   //--draw then scene
 SwapBuffers(mydc);
end;
 
end.
 

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

Nach oben

Gast

Betreff des Beitrags:

Verfasst: Mo Feb 07, 2005 13:40

Thank you, but I create the window using SDL calls.
What I did notice is this call
ActivateRenderingContext(mydc, myrc);

I don't have this in my code.
So does anyone know how I can extract the DC and HDC from SDL for use in this call?

Nach oben

sniper

Betreff des Beitrags:

Verfasst: Mo Feb 07, 2005 15:32

DGL Member

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

Zitat:

ActivateRenderingContext(mydc, myrc);

Without this line you can´t go on, because that is the place where all the functions pointer of OpenGL library are loaded. That is the reason why you get "Access violation" message, all pointers are = NIL. So any call to glXXX is a Access violation itself.
And sorry i can´t help you, have no knowlege on SDL.

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

Nach oben

Lossy eX

Betreff des Beitrags:

Verfasst: Mo Feb 07, 2005 15:38

DGL Member

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

Phobeus made this Tutorial about SDL and OpenGL. There are some sources. May it can helps.

Nach oben

Gast

Betreff des Beitrags:

Verfasst: Mo Feb 07, 2005 15:52

Your answer is good enough, thanks a bundel.

Nach oben

Seite 1 von 1

[ 6 Beiträge ]

Foren-Übersicht » English » English Programming Forum

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.