DGL • Thema anzeigen - OpenGl auf Win7 und Lazarus

OpenGl auf Win7 und Lazarus

Moderator: DGL-Team

Seite 1 von 1

[ 3 Beiträge ]

Vorheriges Thema | Nächstes Thema

Autor

Nachricht

Knittel

Betreff des Beitrags: OpenGl auf Win7 und Lazarus

Verfasst: Sa Aug 25, 2012 22:06

DGL Member

Registriert: Mi Nov 30, 2011 21:41
Beiträge: 136
Wohnort: Bad Vilbel
Programmiersprache: Delphi 7

Hab bisher mit Delphi auf WindowsXP gearbeitet und wollte jetzt auf Lazarus/Freepascal und auf Windows 7 umstellen. Hab dabei einfach den Quelltext kopiert. Aber dann kam eine Überraschung. Es wollte nicht kompilieren. Fehler wurde mir wie folgt angezeigt
Error: Identifier not found "CreateRenderingContext"

Huch, dachte ich mir nur. Hab in der Windows Units nach geschaut und es gibt nix ähnliches wie CreateRC oder RCCreate. Sonst bin ich auch nicht schlau geworden. Steh ich total auf dem Schlauch?

Eingebundene Units, Rendering Context Deklaration und unten der Aufruf von CreateRenderingContext:

Code:

uses
// Melee Engine Source
METypes, METexture, MECamera, // - Generic
MEStatic, // - Objects
 
// Standard Source
dglopengl, Windows, Forms, Math, Dialogs, contnrs, Classes;

Code:

GraphicDevice: HDC;
RenderingContext: HGLRC;

Code:

procedure TMeEngine.InitStatic();      
begin
  InitOpenGL(); // OpenGL initalisieren
  GraphicDevice:=GetDC(AForm.Handle); // Initalisierung von Open GL auf der Form.
  RenderingContext := CreateRenderingContext(GraphicDevice,//Device Contest
                             [opDoubleBuffered], //Optionen
                             8,          //ColorBits
                             6,          //ZBits
                             0,           //StencilBits
                             0,           //AccumBits
                             0,           //AuxBuffers
                             0);          //Layer
  ActivateRenderingContext(GraphicDevice, RenderingContext);
  Frames := 0; // Für den Framerate zähler
  glEnable(GL_TEXTURE_2D);
  FErrors := TStringList.Create;
 
  SettingPointSize := 1;
  SettingLineWidth := 1;
end;    

Nach oben

Sascha Willems

Betreff des Beitrags: Re: OpenGl auf Win7 und Lazarus

Verfasst: So Aug 26, 2012 09:53

DGL Member

Registriert: Mo Sep 23, 2002 19:27
Beiträge: 5812
Programmiersprache: C++

Sollte eigentlich problemlos funktionieren. Aber wenn CreateRenderingContext nicht gefunden wird, dann kanns im schlimmsten Fall sein dass DGL_WIN nicht definiert ist, mit dem Define wird gesteuert für welches OS kompiliert wird. Kannst du mal schaun ob Win32 und DGL_WIN definiert sind. Wenn ja dann müsste CreateRenderingContext gefunden werden. Liegt aber evtl. auch an deinen Projekteinstellungen in Lazarus. Ist das auch ein Windows-Projekt? Evlt. auch mal im Delphimodus kompilieren lassen.

_________________
www.SaschaWillems.de | GitHub | Twitter | GPU Datenbanken (Vulkan, GL, GLES)

Nach oben

Knittel

Betreff des Beitrags: Re: OpenGl auf Win7 und Lazarus

Verfasst: So Aug 26, 2012 10:13

DGL Member

Registriert: Mi Nov 30, 2011 21:41
Beiträge: 136
Wohnort: Bad Vilbel
Programmiersprache: Delphi 7

Hat gefehlt. Musste nur den dglOpenGL.pas Header neu downloaden, weil meine Version etwas veraltet war. Funktioniert jetzt. Danke.

Nach oben

Seite 1 von 1

[ 3 Beiträge ]

Foren-Übersicht » Programmierung » Einsteiger-Fragen

Wer ist online?

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