DGL • Thema anzeigen - Compilierungsprobleme

Compilierungsprobleme

Moderator: DGL-Team

Seite 1 von 1

[ 4 Beiträge ]

Vorheriges Thema | Nächstes Thema

Autor

Nachricht

Morpheus

Betreff des Beitrags: Compilierungsprobleme

Verfasst: Sa Dez 14, 2002 16:21

DGL Member

Registriert: Sa Dez 14, 2002 16:05
Beiträge: 2
Wohnort: Budenheim

Servus

ich hoffe das mir einer helfen kann, und zwar bin ich noch ein totaler Anfänger was OpenGL angeht.
Ich habe ganz einfach mal ein Dreieck programiert und mir anzeigen lassen. Und das geht auch. Aber wenn ich Delphi dann schließe und neu öffne, zeigt er mir beim Compelieren immer nur ein graues Bild.
Komisch! Bitte um Hilfe!!

Thx

Quelltext:

Code:

nit main;
 
interface
 
uses
 
 &nbsp;Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
 
 &nbsp;Dialogs,GL,GLU;
 
...
 
implementation
 
{$R *.dfm}
 
procedure TForm1.SetDCPixelFormat(Handle:HDC);
 
 var
 
 &nbsp;pfd:TPixelFormatDescriptor;
 
 &nbsp;nPixelFormat:Integer;
 
 begin
 
 &nbsp;FillChar(pfd, SizeOf(pfd), 0);
 
 &nbsp;with pfd do
 
 &nbsp;begin
 
 &nbsp; nSize := sizeof(pfd);
 
 &nbsp; nVersion :=1;
 
 &nbsp; dwFlags := PFD_DRAW_TO_WINDOW or PFD_SUPPORT_OPENGL;
 
 &nbsp; iPixelType := PFD_TYPE_RGBA;
 
 &nbsp; cColorBits := 24;
 
 &nbsp; cDepthBits := 32;
 
 &nbsp; iLayerType := PFD_MAIN_PLANE;
 
 &nbsp;end;
 
 &nbsp;nPixelFormat := ChoosePixelFormat(Handle, @pfd);
 
 &nbsp;SetPixelFormat(Handle, nPixelFormat, @pfd);
 
 end;
 
procedure TForm1.Zeichnung;
 
 begin
 
 &nbsp;glClear(GL_COLOR_BUFFER_BIT or GL_DEPTH_BUFFER_BIT);
 
 &nbsp;glbegin(GL_TRIANGLES);
 
 &nbsp; glVertex2f(-0.9,0.0);
 
 &nbsp; glVertex2f(-0.7,0.9);
 
 &nbsp; glVertex2f(-0.5,0.0);
 
 &nbsp;glEnd;
 
 end;
 
procedure TForm1.FormCreate(Sender: TObject);
 
 begin
 
 &nbsp;SetDCPixelFormat(Canvas.Handle);
 
 &nbsp;hrc:= wglCreateContext(Canvas.Handle);
 
 end;
 
procedure TForm1.FormDestroy(Sender: TObject);
 
begin
 
wglDeleteContext(hrc);
 
end;
 
procedure TForm1.FormPaint(Sender: TObject);
 
begin
 
wglMakeCurrent(Canvas.Handle, hrc);
 
Zeichnung;
 
wglMakeCurrent(0,0);
 
end;
 
end.

<span style='color:red'>Bitte, wenn ihr Quellcodes postet, lasst ersichtlich unwichtiges weg und benutzt bitte wenn möglich die uploadfunktion auf der Seite - Delphic</span>

Nach oben

Delphic

Betreff des Beitrags:

Verfasst: Sa Dez 14, 2002 18:12

DGL Member

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

an deinem Code fällt mir auf die schnelle nichts ungewöhnliches auf, welches Betriebssystem benutzt du, welche Graka und Treiberversion? Und zeigt das Prog die gleiche Macke auf anderen Rechnern?

Nach oben

Morpheus

Betreff des Beitrags:

Verfasst: Sa Dez 14, 2002 18:20

DGL Member

Registriert: Sa Dez 14, 2002 16:05
Beiträge: 2
Wohnort: Budenheim

Ich benutze WinXP und Graka hab ich GeForce II Ultra treiberversion:
Anbieter: ASUS Tek
Version: 2.1.8.1

Ob es auf anderen PC's läuft kann ich nicht sagen, da ich das für die schule mache, und ich keinen anderen rechener zuhause habe, auf dem delphi ist

Nach oben

Sascha Willems

Betreff des Beitrags: re

Verfasst: Sa Dez 14, 2002 20:11

DGL Member

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

Wenn das dein ganzer Quellcode ist, dann fallen mir spotan einige Dinge auf die falsch gemacht wurden :

Nummer 1:
Benutze auf keinen Fall den OnPaint-Event des Fensters zum Zeichnen deiner OpenGLSzene.Dieser wird nicht regelmäßig aufgerugen, sondern z.B. nur dann, wenn sich die Fenstergröße ändert.
Besser wäre es, den Idle-Event des Programms zum Zeichnen deiner Szene zu nutzen!

Nummer 2:
Du musst deinem OpenGL-Renderkontext irgendwo eine Größe zuordnen...z.B. die Clientgröße deines Fensters...das fehlt bei dir gänzlich und sollte in etwa so aussehen (DC=DeviceContext,RC=RenderContext):

Code:

 
procedure TForm1.FormResize(Sender: TObject);
 
begin
 
if (HandleAllocated) and (DC > 0) and (RC > 0) then
 
 begin
 
 ActivateRenderingContext(DC, RC);
 
 glViewport(0, 0, ClientWidth, ClientHeight);
 
 glMatrixMode(GL_PROJECTION);
 
 glLoadIdentity;
 
 gluPerspective(45, ClientWidth/ClientHeight, 1, 100);
 
 DeactivateRenderingContext;
 
 end;
 
end;

Damit wird ausserdem auch deine Clippingplane festgelegt, eine sehr wichtige Sache um OpenGL mitzuteilen wie "weit" auf der Z-Achse gezeichnet werden soll.

Nummer 3:
Setz mal glClearColor(0,0,0,0)...wenn dann dein Hintergrund auf einmal schwarz wird, dann musst du deinen Viewport noch transformieren.
Anhand deiner Koordinaten für dein Dreieck kann ich erkennen, das es hinter dem Betrachter liegt, und deshalb also auf keinen Fall sichtbar ist!
Setz vor deine Zeichenbefehle mal noch eine Transformation :

Code:

 
glTranslatef(0,0,-5)

BTW : Kleiner Tipp für alle OGL-Anfänger : Zieht euch das RedBook (gibts ja hier auf DGL als DL)...das beantwortet viele Frage und ist für alle die die OGL coden wollen unerlässlich!

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

Nach oben

Seite 1 von 1

[ 4 Beiträge ]

Foren-Übersicht » Programmierung » Einsteiger-Fragen

Wer ist online?

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