DGL • Thema anzeigen - einfach nur dumm

einfach nur dumm

Moderator: DGL-Team

Seite 1 von 3

[ 41 Beiträge ]

Gehe zu Seite 1, 2, 3 Nächste

Vorheriges Thema | Nächstes Thema

Autor

Nachricht

SamStone

Betreff des Beitrags: einfach nur dumm

Verfasst: So Okt 12, 2003 15:00

DGL Member

Registriert: So Okt 12, 2003 14:53
Beiträge: 74

Hi

Ich hab jetzt neu mit OpenGL angefangen. Ich hab zwar vorher schon ein Tutorial über DirectX gelesen, OpenGL gefällt mir aber besser. Deswegen hab ich mir die ersten drei Tuts von dieser Seite reingezogen und eigentlich auch verstanden.
Dann hab ich mich hingesetzt und wollte zum test einfach mal unter der VCL OpenGL richtig starten. Das hier ist der Code:

Code:

var
  Form1: TForm1;
  GLContext: HGLRC; //Das Rendering Context
 
implementation
 
{$R *.dfm}
 
procedure Init_OpenGL;
var
   pfd: PixelFormatdescriptor;
   PixelFormat: TGLUint;
begin
//PixelFormat
 
    with pfd do
      begin
        nSize:= SizeOf( PIXELFORMATDESCRIPTOR );
        nVersion:= 1;
        dwFlags:= PFD_DRAW_TO_WINDOW
          or PFD_SUPPORT_OPENGL
          or PFD_DOUBLEBUFFER;
        iPixelType:= PFD_TYPE_RGBA;
        cColorBits:= 16;             //Farbtiefe
        cRedBits:= 0;
        cRedShift:= 0;
        cGreenBits:= 0;
        cBlueBits:= 0;
        cBlueShift:= 0;
        cAlphaBits:= 0;
        cAlphaShift:= 0;
        cAccumBits:= 0;              //Accumulation Buffer
        cAccumRedBits:= 0;
        cAccumGreenBits:= 0;
        cAccumBlueBits:= 0;
        cAccumAlphaBits:= 0;
        cDepthBits:= 16;             //Z-Buffer Tiefe
        cStencilBits:= 0;            //Stencil Buffer
        cAuxBuffers:= 0;
        iLayerType:= PFD_MAIN_PLANE;
        bReserved:= 0;
        dwLayerMask:= 0;
        dwVisibleMask:= 0;
        dwDamageMask:= 0
      end;
    //Pixel Format setzten
    PixelFormat := ChoosePixelFormat(Form1.Canvas.Handle, @pfd);
    if (PixelFormat=0) then
      MessageDlg('Es konnte kein passendes PixelFormat gefunden werden.', mtError, [mbOk], 0);
    if (not Windows.SetPixelFormat(Form1.Canvas.Handle,PixelFormat,@pfd)) then
      MessageDlg('PixelFormat konnte nicht gesetzt werden.', mtError, [mbOk], 0);
 
 
//DeviceContext erstellen:
GLContext := 0;
 
//Rendering Context initialisieren
    GLContext := wglCreateContext(Form1.Canvas.Handle);
    if (GLContext=0) then
    begin
      MessageDlg('Rendering Context kann nicht erstellt werden.', mtError, [mbOk], 0);
      Halt(100)
    end;
 
    if (not wglMakeCurrent(Form1.Canvas.Handle, GLContext)) then
    begin
      MessageDlg('Rendering Context kann nicht aktiviert werden.', mtError, [mbOk], 0);
      Halt(100)
    end;
 
 
 
end;
 
procedure TForm1.FormCreate(Sender: TObject);
begin
Init_OpenGL;
    glClearColor(0.0, 0.0, 0.0, 0.0); //Hintergrundfarbe
    glEnable(GL_DEPTH_TEST); //Tiefenpuffer aktivieren
    glEnable(GL_CULL_FACE); //Backface Culling aktivieren
 
    glShadeModel(GL_SMOOTH)
end;
 

Ich benutze die OpenGL15 Unit dafür, aber wenn ich das Programm starten will kommt immer ein "Format %p ungültig oder nicht kompatibel mit Argument".
Ich hab keine Ahnung woran das liegen kann. Das VCL Beispiel vom ersten Tutorial klappt auch ohne Probleme, wenn ich ein bischen daran änere (Unit anpassen und zwei zeilen die nicht funzen rausnehmen).

Wahrscheinlich hab ich hier einfach nur nen sau dummen Fehler gemacht. Naja ich hoffe ihr könnt mir helfen.

Nach oben

Sascha Willems

Betreff des Beitrags:

Verfasst: So Okt 12, 2003 15:08

DGL Member

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

Probiers mal mit

Code:

PixelFormat := ChoosePixelFormat(Form1.Handle, @pfd);

statt mit

Code:

PixelFormat := ChoosePixelFormat(Form1.Canvas.Handle, @pfd);

Das Handle eines Canvas ist im Normalfall nicht gleich dem Handle des Controls und hat schon oft Probleme gemacht.

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

Nach oben

SamStone

Betreff des Beitrags:

Verfasst: So Okt 12, 2003 16:57

DGL Member

Registriert: So Okt 12, 2003 14:53
Beiträge: 74

Wenn ich das so mache kommt direkt die Meldung:

Code:

Es konnte kein passendes PixelFormat gefunden werden.

Nach oben

Sascha Willems

Betreff des Beitrags:

Verfasst: So Okt 12, 2003 17:09

DGL Member

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

Dann musst du halt ein Pixelformat anfordern das von deiner Grafikkarte in deiner aktuellen Konfiguration unterstützt wird.Du forderst ein Format mit 16-Bit Frambuffer und 16-Bit Depthbuffer an,was dir deine Grafikkarte nicht anbietet.

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

Nach oben

SamStone

Betreff des Beitrags:

Verfasst: So Okt 12, 2003 17:23

DGL Member

Registriert: So Okt 12, 2003 14:53
Beiträge: 74

Zitat:

Du forderst ein Format mit 16-Bit Frambuffer und 16-Bit Depthbuffer an,was dir deine Grafikkarte nicht anbietet.

Ähm ich hab ne Geforce 2. Da wird das ja wohl noch möglich sein :roll:

.
Außerdem sind die PixelFormat einstellungen in dem Beispiel zu Tutorial 1 genauso und da klappt es auch.

Nach oben

Sascha Willems

Betreff des Beitrags:

Verfasst: So Okt 12, 2003 17:25

DGL Member

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

Dann lass dir mal nen DC von der Form geben :

Code:

DC := GetDC(Form1.Handle);

Und übergib den mal anstatt Form1.Handle.

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

Nach oben

SamStone

Betreff des Beitrags:

Verfasst: So Okt 12, 2003 18:22

DGL Member

Registriert: So Okt 12, 2003 14:53
Beiträge: 74

Klappt leider immenoch nicht.

Ich sollte vielleicht erwähnen das der Fehler nicht auftritt wenn ich die Zeilen

Code:

    glClearColor(0.0, 0.0, 0.0, 0.0); //Hintergrundfarbe
    glEnable(GL_DEPTH_TEST); //Tiefenpuffer aktivieren
    glEnable(GL_CULL_FACE); //Backface Culling aktivieren
 
    glShadeModel(GL_SMOOTH)

weglasse. Nur dann ist das hal ein ganze normales leeres Fenster.

Nach oben

Delphic

Betreff des Beitrags:

Verfasst: So Okt 12, 2003 18:32

DGL Member

Registriert: Do Mai 30, 2002 18:48
Beiträge: 1617

Erstell mal dein OpenGl zeugs nicht im OnCreate sondern im OnShow Ereignis...

Nach oben

SamStone

Betreff des Beitrags:

Verfasst: Mo Okt 13, 2003 15:39

DGL Member

Registriert: So Okt 12, 2003 14:53
Beiträge: 74

Immernoch nicht. Auch nicht wenn ich das ganze auf nen Button lege.

Verdammt es kann doch nicht sein das ich schon an so nem billigscheiß scheitere :oops:

Nach oben

Sascha Willems

Betreff des Beitrags:

Verfasst: Mo Okt 13, 2003 15:42

DGL Member

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

Wenn du unsere OpenGL-Unit nutzt (dglOpenGL.pas) musst du vor dem Erstellen des Renderkontextes erstmal die Funktion InitOpenGL aufrufen damit alle Funktionspointer von OpenGL zugewiesen werden.Wenn das nicht gemacht wird,zeigen die Funktionszeiger nämlich auf nil und sind nicht nutzbar.

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

Nach oben

SamStone

Betreff des Beitrags:

Verfasst: Mo Okt 13, 2003 16:38

DGL Member

Registriert: So Okt 12, 2003 14:53
Beiträge: 74

Ich benutz die OpenGL15.pas Unit die ich auf dieser Seite im Downloadbereich geladen habe.

Und die Function InitOpenGL kennt der auch nicht

Nach oben

Sascha Willems

Betreff des Beitrags:

Verfasst: Mo Okt 13, 2003 16:39

DGL Member

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

Das ist eine alte Version unseres Headers,die allerings auch einer Initialisierung bedarf.Bitte benutz stattdessen den neuen Header aus diesem Thread.

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

Nach oben

SamStone

Betreff des Beitrags:

Verfasst: Mo Okt 13, 2003 17:31

DGL Member

Registriert: So Okt 12, 2003 14:53
Beiträge: 74

THX. Jetzt klappt es. Allerdings gibt es eine Sache die mich wundert:

Wenn ich glClearColor(0.0, 0.0, 0.0, 0.0) schreibe, und somit den Bildschirm ja ganz schwarz färben will, wird das trotzdem so grünfarbend.

Und warum kann ein das Beispiel aus dem Tut kompilieren, obwohl das auch nicht diese Init Function aufruft?

Nach oben

Sascha Willems

Betreff des Beitrags:

Verfasst: Mo Okt 13, 2003 17:35

DGL Member

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

SamStone hat geschrieben:

Wenn ich glClearColor(0.0, 0.0, 0.0, 0.0) schreibe, und somit den Bildschirm ja ganz schwarz färben will, wird das trotzdem so grünfarbend.

glClearColor ist nicht dazu da um den Framebuffer zu löschen,sondern setzt nur die Farbe mit der das getan wird.Gelöscht wird dieser mit glClear und dem GL_COLOR_BUFFER_BIT.

SamStone hat geschrieben:

Und warum kann ein das Beispiel aus dem Tut kompilieren, obwohl das auch nicht diese Init Function aufruft?

Weil im Tut die OpenGL12.pas genutzt wird,bei der diese Initialisierungen automatisch aufgerufen werden.

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

Nach oben

SamStone

Betreff des Beitrags:

Verfasst: Mo Okt 13, 2003 17:48

DGL Member

Registriert: So Okt 12, 2003 14:53
Beiträge: 74

Zitat:

Weil im Tut die OpenGL12.pas genutzt wird,bei der diese Initialisierungen automatisch aufgerufen werden.

Ich hab aber unter uses die Unit verändert

EDIT: Mist. Doppelpost. Sorry

Zuletzt geändert von SamStone am Mo Okt 13, 2003 17:50, insgesamt 1-mal geändert.

Nach oben

Seite 1 von 3

[ 41 Beiträge ]

Gehe zu Seite 1, 2, 3 Nächste

Foren-Übersicht » Programmierung » OpenGL

Wer ist online?

Mitglieder in diesem Forum: Bing [Bot] und 7 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.