DGL • Thema anzeigen - Problem mit texturen (GLAux)

Problem mit texturen (GLAux)

Moderator: DGL-Team

Seite 1 von 2

[ 20 Beiträge ]

Gehe zu Seite 1, 2 Nächste

Vorheriges Thema | Nächstes Thema

Autor

Nachricht

Bountyhunter

Betreff des Beitrags: Problem mit texturen (GLAux)

Verfasst: Mi Sep 25, 2002 16:06

DGL Member

Registriert: Do Sep 12, 2002 00:54
Beiträge: 11

hallo!
ich hab jetzt mal angefangen das texturen tut zu lesen und verstehe bisher alles, nur ein problem habe ich noch:

Code:

glGenTextures(1, tex);

wenn ich das programm nun starte kommt genau an dieser stelle:
Undeclared Identifier 'tex'
was is da los?
wenn ich tex als PGLuint declariere heisst es dann an dieser stelle:

Code:

glBindTexture(GL_TEXTURE_2D, tex);

Incompatible Types 'Cardinal' and 'PGLuint'
was muss ich machen, damit tex "erkannt" wird?
mfg
Bountyhunter

Nach oben

SchodMC

Betreff des Beitrags:

Verfasst: Mi Sep 25, 2002 16:20

DGL Member

Registriert: Fr Jul 12, 2002 07:15
Beiträge: 916
Wohnort: Dietzhölztal / Hessen
Programmiersprache: C/C++, Obj-C

Also:

1. Musst Du "tex" als Variable deklarieren, und
2. PGLuint ist ein Pointer (Zeiger) auf TGLuint. Versuch mal folgendes:

Code:

 
var
 
 &nbsp;tex : TGLuint;
 
begin
 
 &nbsp;glGenTextures(1, @tex);
 
 &nbsp;glBindTexture(GL_TEXTURE_2D, tex);
 
end;

glGenTextures ermöglicht es auch, mehrere Texturen auf einmal anzulegen. Dann müsstest Du ein Array von TGLuint machen und den Zeiger auf das erste Objekt übergeben. Hier willst Du aber nur eine Textur, also reicht ein TGLuint. Allerdings benötigt glGenTextures eben den Zeiger, also die Adresse von tex. Deswegen ist das auch ein PGLuint Typ, der in der Funktion als 2. Parameter verlangt wird. In der OpenGL.pas oder OpenGL12.pas ist das ganze definiert als

PGLuint = ^TGLuint;

Somit ist, wie bereits erwähnt, PGLuint ein Zeiger auf TGLuint. Die glBindTexture benötigt aber die TGLuint, also den Wert der Variable, NICHT die Adresse (den Zeiger). Da Adressen aber als Cardinal übergeben werden, und Du tex als PGLUInt deklariert hast, klappt das ganze nicht.

Übrigens: wenn Du eine Variable als Zeiger definierst, hat sie noch keinen gültigen Wert. DU müsstest erstmal Speicher für die Variable erstellen. Ist in deisem Falle völlig unnötig. Ließ Dir einfach mal den Abschnit über Zeiger und Zeigertypen in der Delphi-Hilfe durch. Aber so müsste es eigentlich klappen.

Falls Du immer noch Probleme hast, schau die die Turorials über Texture-Mapping von DGL an. Dannach dürften alle Unklarheiten beseitigt sein!

_________________
Und was würdest Du tun, wenn Du wüsstest, dass morgen Dein letzter Tag auf dieser Erde ist?

Nach oben

lithander

Betreff des Beitrags:

Verfasst: Mi Sep 25, 2002 21:55

DGL Member

Registriert: Mo Mai 06, 2002 20:27
Beiträge: 479
Wohnort: Bremen

wenn du opengl 1.0 benutzt - der delphistandard - dann deklariere tex als GluInt und nicht als TGluInt. Letzteres wurde erst mit 1.2 eingeführt. (glaub ich)

_________________
Selber Denken macht klug!

Nach oben

Bountyhunter

Betreff des Beitrags: hmmm....

Verfasst: Do Sep 26, 2002 17:47

DGL Member

Registriert: Do Sep 12, 2002 00:54
Beiträge: 11

hallo!
danke für die antwort, jetzt gibts keine fehler mehr. jedoch wird nix angezeigt vonwegen textur. ich hab keine ahnung warum.

Zitat:

Wir müssen OpenGL nur noch mitteilen, welche Textur auf einem Objekt gerendert werden soll. Dies geschieht mit der folgenden Zeile:

glBindTexture(GL_TEXTURE_2D, tex);

wo muss ich das noch hinschreiben? das steht doch schon wo anders.
mfg
Bountyhunter

Nach oben

rswm

Betreff des Beitrags:

Verfasst: Do Sep 26, 2002 18:11

DGL Member

Registriert: Mi Aug 28, 2002 19:27
Beiträge: 568
Wohnort: Chemnitz / Sachsen

also ich denke du wirst folgenden fehler machen:

dein code ist ungefähr so :

Code:

glBegin(GL_QUADS);
 
 &nbsp;glVertex3f(0,0,0);
 
.....
 
glEnd;

Da liegt nämlich schon der fehler. Du must noch die Texturkoordinaten angeben. richtiger code wäre :

Code:

glBegin(GL_QUADS);
 
 &nbsp; glTexCoord2f(0,0); &nbsp; glVertex3f(0,0,0);
 
 &nbsp; glTexCoord2f(1,0); &nbsp; glVertex3f(1,0,0);
 
 &nbsp; glTexCoord2f(1,1); &nbsp; glVertex3f(1,1,0);
 
 &nbsp; &nbsp;glTexCoord2f(0,1); &nbsp; glVertex3f(0,1,0);
 
glEnd;

ich denke damit wäre das problem dann auch gelöst.

bitte .

_________________
Aktuelles Projekt :
www.PicPlace.de

Nach oben

Bountyhunter

Betreff des Beitrags:

Verfasst: Do Sep 26, 2002 18:36

DGL Member

Registriert: Do Sep 12, 2002 00:54
Beiträge: 11

ne, hab ich nicht vergessen. ich hab alles wie im tutorial gemacht auch das mit den texturkoordinaten.(tutorial 4)
aber es geht net.

Nach oben

rswm

Betreff des Beitrags:

Verfasst: Do Sep 26, 2002 18:42

DGL Member

Registriert: Mi Aug 28, 2002 19:27
Beiträge: 568
Wohnort: Chemnitz / Sachsen

das einzige, woran es noch liegen kann wäre ja dann nur, das du vergessen hast texturmodus zu aktivieren.

schau bitte im source mal, ob du vor dem ersten zeichnen irgendwo glEnable(GL_TEXTURE_2D); stehen hast.
falls ne dann einfach neischreiben.

sonst gibt es nur noch die möglichkeit, dass die datei nicht geladen wird und eine leere textur angezeigt wird.

_________________
Aktuelles Projekt :
www.PicPlace.de

Nach oben

Bountyhunter

Betreff des Beitrags: ha

Verfasst: Do Sep 26, 2002 18:43

DGL Member

Registriert: Do Sep 12, 2002 00:54
Beiträge: 11

ja, du hast recht das hat gefehlt....
danke schön ich probiers mal
mfg
Bountyhunter

Nach oben

rswm

Betreff des Beitrags:

Verfasst: Do Sep 26, 2002 18:45

DGL Member

Registriert: Mi Aug 28, 2002 19:27
Beiträge: 568
Wohnort: Chemnitz / Sachsen

naja das stimmt soweit ich das sehe alles also kanns ja nur am glenable(GL_TEXTURE_2D); liegen. füge das einfach genau vor das glBegin ein.

wenns dann ne läuft dann mmm???

RSWM

_________________
Aktuelles Projekt :
www.PicPlace.de

Nach oben

Bountyhunter

Betreff des Beitrags:

Verfasst: Do Sep 26, 2002 19:04

DGL Member

Registriert: Do Sep 12, 2002 00:54
Beiträge: 11

also, glEnable(GL_T....) hat gefehlt danke für den tipp. jedoch funzt es immer noch nicht. ich poste nochmal den GANZEN code

Code:

 
unit template_main;
 
{
 
********************[ Delphi OpenGL Template für eine VCL-Szene ]***************
 
visit http://dgl.quellcodes.de/
 
Made by DelphiC (redsoftware@gmx.de) and Modified by
 
Bountyhunter (bountyhunter4ever@hotmail.com).
 
Happy Coding!!!
 
}
 
interface
 
uses
 
 &nbsp;Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
 
 &nbsp;OpenGL12, Geometry, StdCtrls, ExtCtrls, template_Fullscreen, GlAux;
 
const
 
 &nbsp;//Entfernung der Clipping planes
 
 &nbsp;FarClipping &nbsp; = 1000.0;
 
 &nbsp;NearClipping &nbsp;= 1.0;
 
type
 
 &nbsp;TForm1 = class(TForm)
 
 &nbsp; &nbsp;procedure FormCreate(Sender: TObject);
 
 &nbsp; &nbsp;procedure FormShow(Sender: TObject);
 
 &nbsp; &nbsp;procedure FormDestroy(Sender: TObject);
 
 &nbsp; &nbsp;procedure FormResize(Sender: TObject);
 
 &nbsp; &nbsp;procedure ApplicationEventsIdle(Sender: TObject; var Done: Boolean);
 
 &nbsp;private
 
 &nbsp; &nbsp;{ Private-Deklarationen }
 
 &nbsp; &nbsp;OpenGLInitialized : Boolean; //Ist true, wenn OpenGL bereit zum zeichnen ist
 
 &nbsp; &nbsp;RC : HGLRC; &nbsp; &nbsp; &nbsp; &nbsp; //OpenGL Rendering Context
 
 &nbsp;public
 
 &nbsp; &nbsp;{ Public-Deklarationen }
 
 &nbsp;end;
 
var
 
 &nbsp;Form1: TForm1;
 
 &nbsp;texture1: PTAUX_RGBImageRec;
 
 &nbsp;tex: TGLUint;
 
implementation
 
{$R *.DFM}
 
procedure TForm1.FormCreate(Sender: TObject);
 
begin
 
 &nbsp;//OpenGL ist noch nicht bereit
 
 &nbsp;OpenGLInitialized := False;
 
 &nbsp;//Nur starten, wenn die Bibliotheken auch geladen sind
 
 &nbsp;if not LoadOpenGL then
 
 &nbsp; &nbsp;Halt(100);
 
end; (*FormCreate*)
 
procedure TForm1.FormShow(Sender: TObject);
 
 &nbsp;procedure SetPixelFormat;
 
 &nbsp;var
 
 &nbsp; &nbsp;PixelFormat &nbsp; &nbsp; &nbsp;: TGLuint;
 
 &nbsp; &nbsp;PFD &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp;: pixelformatdescriptor;
 
 &nbsp;begin
 
 &nbsp; &nbsp;with pfd do
 
 &nbsp; &nbsp; &nbsp;begin
 
 &nbsp; &nbsp; &nbsp; &nbsp;nSize:= SizeOf( PIXELFORMATDESCRIPTOR );
 
 &nbsp; &nbsp; &nbsp; &nbsp;nVersion:= 1;
 
 &nbsp; &nbsp; &nbsp; &nbsp;dwFlags:= PFD_DRAW_TO_WINDOW
 
 &nbsp; &nbsp; &nbsp; &nbsp; &nbsp;or PFD_SUPPORT_OPENGL
 
 &nbsp; &nbsp; &nbsp; &nbsp; &nbsp;or PFD_DOUBLEBUFFER;
 
 &nbsp; &nbsp; &nbsp; &nbsp;iPixelType:= PFD_TYPE_RGBA;
 
 &nbsp; &nbsp; &nbsp; &nbsp;cColorBits:= 16; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; //Farbtiefe
 
 &nbsp; &nbsp; &nbsp; &nbsp;cRedBits:= 0;
 
 &nbsp; &nbsp; &nbsp; &nbsp;cRedShift:= 0;
 
 &nbsp; &nbsp; &nbsp; &nbsp;cGreenBits:= 0;
 
 &nbsp; &nbsp; &nbsp; &nbsp;cBlueBits:= 0;
 
 &nbsp; &nbsp; &nbsp; &nbsp;cBlueShift:= 0;
 
 &nbsp; &nbsp; &nbsp; &nbsp;cAlphaBits:= 0;
 
 &nbsp; &nbsp; &nbsp; &nbsp;cAlphaShift:= 0;
 
 &nbsp; &nbsp; &nbsp; &nbsp;cAccumBits:= 0; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp;//Accumulation Buffer
 
 &nbsp; &nbsp; &nbsp; &nbsp;cAccumRedBits:= 0;
 
 &nbsp; &nbsp; &nbsp; &nbsp;cAccumGreenBits:= 0;
 
 &nbsp; &nbsp; &nbsp; &nbsp;cAccumBlueBits:= 0;
 
 &nbsp; &nbsp; &nbsp; &nbsp;cAccumAlphaBits:= 0;
 
 &nbsp; &nbsp; &nbsp; &nbsp;cDepthBits:= 16; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; //Z-Buffer Tiefe
 
 &nbsp; &nbsp; &nbsp; &nbsp;cStencilBits:= 0; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp;//Stencil Buffer
 
 &nbsp; &nbsp; &nbsp; &nbsp;cAuxBuffers:= 0;
 
 &nbsp; &nbsp; &nbsp; &nbsp;iLayerType:= PFD_MAIN_PLANE;
 
 &nbsp; &nbsp; &nbsp; &nbsp;bReserved:= 0;
 
 &nbsp; &nbsp; &nbsp; &nbsp;dwLayerMask:= 0;
 
 &nbsp; &nbsp; &nbsp; &nbsp;dwVisibleMask:= 0;
 
 &nbsp; &nbsp; &nbsp; &nbsp;dwDamageMask:= 0
 
 &nbsp; &nbsp; &nbsp;end;
 
 &nbsp; &nbsp;//Pixel Format setzten
 
 &nbsp; &nbsp;PixelFormat := ChoosePixelFormat(Canvas.Handle, @pfd);
 
 &nbsp; &nbsp;if (PixelFormat=0) then
 
 &nbsp; &nbsp; &nbsp;MessageDlg('Es konnte kein passendes PixelFormat gefunden werden.', mtError, [mbOk], 0);
 
 &nbsp; &nbsp;if (not Windows.SetPixelFormat(Canvas.Handle,PixelFormat,@pfd)) then
 
 &nbsp; &nbsp; &nbsp;MessageDlg('PixelFormat konnte nicht gesetzt werden.', mtError, [mbOk], 0);
 
 &nbsp;end; (*SetPixelFormat*)
 
 &nbsp;procedure StartGL;
 
 &nbsp;begin
 
 &nbsp; &nbsp;//Rendering Context initialisieren
 
 &nbsp; &nbsp;RC := wglCreateContext(Canvas.Handle);
 
 &nbsp; &nbsp;if (RC=0) then
 
 &nbsp; &nbsp;begin
 
 &nbsp; &nbsp; &nbsp;MessageDlg('Rendering Context kann nicht erstellt werden.', mtError, [mbOk], 0);
 
 &nbsp; &nbsp; &nbsp;Halt(100);
 
 &nbsp; &nbsp;end;
 
 &nbsp; &nbsp;if (not wglMakeCurrent(Canvas.Handle, RC)) then
 
 &nbsp; &nbsp;begin
 
 &nbsp; &nbsp; &nbsp;MessageDlg('Rendering Context kann nicht aktiviert werden.', mtError, [mbOk], 0);
 
 &nbsp; &nbsp; &nbsp;Halt(100);
 
 &nbsp; &nbsp;end
 
 &nbsp;end; (*StartGl*)
 
 &nbsp;procedure SetupGL;
 
 &nbsp;begin
 
 &nbsp; &nbsp;//OpenGL Voreinstellungen
 
 &nbsp; &nbsp;glClearColor(0.0, 0.0, 0.0, 0.0); //Hintergrundfarbe
 
 &nbsp; &nbsp;glEnable(GL_DEPTH_TEST); //Tiefenpuffer aktivieren
 
 &nbsp; &nbsp;glShadeModel(GL_SMOOTH);
 
 &nbsp; &nbsp;glEnable(GL_TEXTURE_2D);
 
 &nbsp;end; (*SetupGL*)
 
begin
 
 &nbsp;RC := 0;
 
 &nbsp;SetPixelFormat;
 
 &nbsp;StartGL;
 
 &nbsp;//GL Extensions neu auslesen
 
 &nbsp;ClearExtensions;
 
 &nbsp;ReadExtensions;
 
 &nbsp;SetupGL;
 
 &nbsp;//OnIdle setzen
 
 &nbsp;Application.OnIdle := ApplicationEventsIdle;
 
 &nbsp;//OpenGL ist nun bereit
 
 &nbsp;OpenGLInitialized := True
 
end; (*FormShow*)
 
procedure TForm1.FormDestroy(Sender: TObject);
 
begin
 
 &nbsp;OpenGLInitialized := False;
 
 &nbsp;if RC<>0 then
 
 &nbsp; &nbsp;begin
 
 &nbsp; &nbsp; &nbsp;if (not wglMakeCurrent(Canvas.Handle,0)) then
 
 &nbsp; &nbsp; &nbsp; &nbsp;MessageDlg('Rendering Context konnte nicht abgewählt werden.', mtError, [mbOk], 0);
 
 &nbsp; &nbsp; &nbsp;if (not wglDeleteContext(RC)) then
 
 &nbsp; &nbsp; &nbsp; &nbsp;MessageDlg('Rendering Context konnte nicht freigegeben werden.', mtError, [mbOk], 0);
 
 &nbsp; &nbsp;end;
 
 &nbsp;RC:=0
 
end; (*Form Destroy*)
 
procedure TForm1.FormResize(Sender: TObject);
 
begin
 
 &nbsp;glViewport(0, 0, ClientWidth, ClientHeight);
 
 &nbsp;//Projektionsmatrix resetten
 
 &nbsp;glMatrixMode(GL_PROJECTION);
 
 &nbsp;glLoadIdentity();
 
 &nbsp;//Perspektivische Darstellung
 
 &nbsp;gluPerspective(60.0,ClientWidth/ClientHeight,NearClipping,FarClipping);// Calculate The Aspect Ratio Of The Window
 
 &nbsp;glMatrixMode(GL_MODELVIEW);
 
 &nbsp;glLoadIdentity;
 
end; (*FormResize*)
 
procedure LoadTexture;
 
begin
 
texture1 := auxDIBImageLoadA('D:/bumpmapping/background2.bmp');
 
glGenTextures(1, @tex);
 
glBindTexture(GL_TEXTURE_2D, tex);
 
glTexParameteri(GL_TEXTURE_2D,GL_TEXTURE_MAG_FILTER,GL_LINEAR);
 
glTexParameteri(GL_TEXTURE_2D,GL_TEXTURE_MIN_FILTER,GL_LINEAR);
 
glTexImage2D(GL_TEXTURE_2D, 0, 3, texture1^.sizeX, texture1^.sizeY, 0, GL_RGB, GL_UNSIGNED_BYTE, texture1^.data);
 
end;
 
procedure TForm1.ApplicationEventsIdle(Sender: TObject;
 
 &nbsp;var Done: Boolean);
 
var
 
 &nbsp;Error : LongInt; //Fehler?
 
begin
 
 &nbsp;//Abbrechen, wenn OpenGL noch nicht initialisiert ist
 
 &nbsp;if not OpenGLInitialized then Exit;
 
 &nbsp;//Immer schön neu zeichnen
 
 &nbsp;Done := False;
 
 &nbsp;//Puffer killen
 
 &nbsp;glClear(GL_DEPTH_BUFFER_BIT or GL_COLOR_BUFFER_BIT);
 
 &nbsp;glLoadIdentity;
 
 &nbsp;//Mini Kamerabewegung
 
 &nbsp;glTranslatef(0.0, 0.0, -4);
 
 &nbsp;//Hier muss alles rein was gerendert wird
 
glBindTexture(GL_TEXTURE_2D, tex);
 
glBegin(GL_QUADS);
 
 &nbsp; &nbsp; &nbsp; &nbsp;glTexCoord2f(0,0); glVertex3f(-1,-1,0);
 
 &nbsp; &nbsp; &nbsp; &nbsp;glTexCoord2f(0,1); glVertex3f(-1,1,0);
 
 &nbsp; &nbsp; &nbsp; &nbsp;glTexCoord2f(1,1); glVertex3f(1,1,0);
 
 &nbsp; &nbsp; &nbsp; &nbsp;glTexCoord2f(1,0); glVertex3f(1,-1,0);
 
glEnd;
 
 &nbsp;
 
 &nbsp;//Error Handler
 
 &nbsp;Error := glgetError;
 
 &nbsp;if Error <> GL_NO_ERROR then
 
 &nbsp;begin
 
 &nbsp; &nbsp;Caption := gluErrorString(Error);
 
 &nbsp; &nbsp;//Rendering kurz anhalten
 
 &nbsp; &nbsp;Done := True;
 
 &nbsp; &nbsp;FlashWindow(Handle, True);
 
 &nbsp;end;
 
 &nbsp;//Und anzeigen
 
 &nbsp;SwapBuffers(Canvas.Handle);
 
end; (*ApplicationEventsIdle*)
 
end.

ich benutze die vcl template von delphiC. das glEnable(....) hab ich an mehreren stellen getestet, also daran kanns nicht lIegen. und das bild existiert auch, ich habs 3 mal geprüft. jedoch sehe ich nur ein weisses 4-eck ohne textur. was is da los?
mfg
Bountyhunter

Nach oben

SchodMC

Betreff des Beitrags:

Verfasst: Fr Sep 27, 2002 07:37

DGL Member

Registriert: Fr Jul 12, 2002 07:15
Beiträge: 916
Wohnort: Dietzhölztal / Hessen
Programmiersprache: C/C++, Obj-C

Ich weiß ja nicht, ob's darn liegt. Aber ich hab' schon diverse komische Probleme (bis hin zu Systemabstürtzen) in den Griff bekommen, indem ich die neuesten Treiber meiner Grafikkarte installiert hab'.

_________________
Und was würdest Du tun, wenn Du wüsstest, dass morgen Dein letzter Tag auf dieser Erde ist?

Nach oben

DCW_Mr_T

Betreff des Beitrags:

Verfasst: Fr Sep 27, 2002 07:50

DGL Member

Registriert: Sa Sep 21, 2002 21:32
Beiträge: 346
Wohnort: Eilsum (Nahe Emden)

Ich weiß nbicht recht, ob es daran liegen kann, aber muss
"glBindTexture(GL_TEXTURE_2D, tex);" Niczht nochmal in deriner Rendering - Prozedur aufgerufen werden? Es wird aus deinem Code nicht ganz ersichtilch, ob es da steht, oder nicht........

_________________
Es sind immer die guten,
welche zu früh von uns gehen müssen...
Meine bislang 13 Open Gl - Tuts findet ihr auf www.dcw-group.net
Neu! Ein großer Teil der Demos nach Kylix übersetzt!

Nach oben

SchodMC

Betreff des Beitrags:

Verfasst: Fr Sep 27, 2002 08:00

DGL Member

Registriert: Fr Jul 12, 2002 07:15
Beiträge: 916
Wohnort: Dietzhölztal / Hessen
Programmiersprache: C/C++, Obj-C

Nun, Du must glBindTexture dann aufrufen, wenn Du eine Textur als Aktiv setzen willst. Das heißt, nach glBindTexture ist diese Textur solange aktiv, bist Du eine andere anwählst oder glBindTexture(0) aufrufst.

_________________
Und was würdest Du tun, wenn Du wüsstest, dass morgen Dein letzter Tag auf dieser Erde ist?

Nach oben

DCW_Mr_T

Betreff des Beitrags:

Verfasst: Fr Sep 27, 2002 08:05

DGL Member

Registriert: Sa Sep 21, 2002 21:32
Beiträge: 346
Wohnort: Eilsum (Nahe Emden)

Das ist mir an sich auch klar.... mir kam der Source nur etwas Unvollständig vor....
Ich dachte halt, dass man dieses am anfang der Render - Prozedur nochmals ausführen muss, damit die Textur gesetzt wird (in seinem Beispiel ruft er es ja nur einmal auf.... Undzwar da, wo er die texturen lädt).....
Ich ahbe auch mal ein einfaches Progie geschriben (VCL), welches auch eine Textur lädt.... es funzt an sich ganz gut:

Code:

 
unit Unit1;
 
interface
 
uses
 
 &nbsp;Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,opengl,
 
 &nbsp;ExtCtrls, DXClass, glaux;
 
type
 
 &nbsp;TForm1 = class(TForm)
 
 &nbsp; &nbsp;Timer2: TTimer;
 
 &nbsp; &nbsp;DXTimer1: TDXTimer;
 
 &nbsp; &nbsp;procedure FormCreate(Sender: TObject);
 
 &nbsp; &nbsp;procedure FormDestroy(Sender: TObject);
 
 &nbsp; &nbsp;procedure FormKeyDown(Sender: TObject; var Key: Word;
 
 &nbsp; &nbsp; &nbsp;Shift: TShiftState);
 
 &nbsp; &nbsp;procedure Timer2Timer(Sender: TObject);
 
 &nbsp; &nbsp;procedure DXTimer1Timer(Sender: TObject; LagCount: Integer);
 
 &nbsp; &nbsp;procedure DXTimer2Timer(Sender: TObject; LagCount: Integer);
 
 &nbsp;private
 
 &nbsp; &nbsp;{ Private-Deklarationen }
 
 &nbsp; &nbsp;myDC : HDC;
 
 &nbsp; myRC : HGLRC;
 
 &nbsp; myPalette : HPALETTE;
 
 &nbsp; procedure SetupPixelFormat;
 
 &nbsp;public
 
 &nbsp; &nbsp;{ Public-Deklarationen }
 
 &nbsp;end;
 
var
 
 &nbsp;Form1: TForm1;
 
 &nbsp;rotx : integer;
 
 &nbsp;roty : integer;
 
 &nbsp;rotz : integer;
 
 &nbsp;count : integer;
 
 &nbsp;tex : gluInt;
 
implementation
 
{$R *.DFM}
 
PROCEDURE glGenTextures(n: GLsizei; VAR textures: GLuint); STDCALL; EXTERNAL opengl32;
 
PROCEDURE glBindTexture(target: GLenum; texture: GLuint); &nbsp;STDCALL; EXTERNAL opengl32;
 
procedure TForm1.SetupPixelFormat;
 
var &nbsp; &nbsp;hHeap: THandle;
 
 &nbsp;nColors, i: Integer;
 
 &nbsp;lpPalette : PLogPalette;
 
 &nbsp;byRedMask, byGreenMask, byBlueMask: Byte;
 
 &nbsp;nPixelFormat: Integer;
 
 &nbsp;pfd: TPixelFormatDescriptor;
 
begin
 
 &nbsp;FillChar(pfd, SizeOf(pfd), 0);
 
 &nbsp;with pfd do begin
 
 &nbsp; &nbsp;nSize &nbsp; &nbsp; := sizeof(pfd); &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp;
 
 &nbsp; &nbsp;nVersion &nbsp;:= 1; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; 
 
 &nbsp; &nbsp;dwFlags &nbsp; := PFD_DRAW_TO_WINDOW or PFD_SUPPORT_OPENGL or
 
 &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; PFD_DOUBLEBUFFER; &nbsp; &nbsp; &nbsp; &nbsp; 
 
 &nbsp; &nbsp;iPixelType:= PFD_TYPE_RGBA; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp;
 
 &nbsp; &nbsp;cColorBits:= 24; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp;
 
 &nbsp; &nbsp;cDepthBits:= 32; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp;
 
 &nbsp; &nbsp;iLayerType:= PFD_MAIN_PLANE; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp;
 
 &nbsp;end;
 
 &nbsp;nPixelFormat:= ChoosePixelFormat(myDC, @pfd);
 
 &nbsp;SetPixelFormat(myDC, nPixelFormat, @pfd);
 
// Farbpalettenoptimierung wenn erforderlich
 
 &nbsp;DescribePixelFormat(myDC, nPixelFormat,
 
 &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp;sizeof(TPixelFormatDescriptor),pfd);
 
 &nbsp;if ((pfd.dwFlags and PFD_NEED_PALETTE) <> 0) then begin
 
 &nbsp; &nbsp;nColors &nbsp;:= 1 shl pfd.cColorBits;
 
 &nbsp; &nbsp;hHeap &nbsp; &nbsp;:= GetProcessHeap;
 
 &nbsp; &nbsp;lpPalette:= HeapAlloc
 
 &nbsp; &nbsp; &nbsp; (hHeap,0,sizeof(TLogPalette)+(nColors*sizeof(TPaletteEntry)));
 
 &nbsp; &nbsp;lpPalette^.palVersion := $300;
 
 &nbsp; &nbsp;lpPalette^.palNumEntries := nColors;
 
 &nbsp; &nbsp;byRedMask &nbsp;:= (1 shl pfd.cRedBits) - 1;
 
 &nbsp; &nbsp;byGreenMask:= (1 shl pfd.cGreenBits) - 1;
 
 &nbsp; &nbsp;byBlueMask := (1 shl pfd.cBlueBits) - 1;
 
 &nbsp; &nbsp;for i := 0 to nColors - 1 do begin
 
 &nbsp; &nbsp; &nbsp;lpPalette^.palPalEntry[i].peRed &nbsp;:=
 
 &nbsp; &nbsp; &nbsp; &nbsp;(((i shr pfd.cRedShift) &nbsp;and byRedMask) &nbsp;*255)DIV byRedMask;
 
 &nbsp; &nbsp; &nbsp;lpPalette^.palPalEntry[i].peGreen:=
 
 &nbsp; &nbsp; &nbsp; &nbsp;(((i shr pfd.cGreenShift)and byGreenMask)*255)DIV byGreenMask;
 
 &nbsp; &nbsp; &nbsp;lpPalette^.palPalEntry[i].peBlue :=
 
 &nbsp; &nbsp; &nbsp; &nbsp;(((i shr pfd.cBlueShift) and byBlueMask) *255)DIV byBlueMask;
 
 &nbsp; &nbsp; &nbsp;lpPalette^.palPalEntry[i].peFlags:= 0;
 
 &nbsp; &nbsp;end;
 
 &nbsp; &nbsp;myPalette:= CreatePalette(lpPalette^);
 
 &nbsp; &nbsp;HeapFree(hHeap, 0, lpPalette);
 
 &nbsp; &nbsp;if (myPalette <> 0) then begin
 
 &nbsp; &nbsp; &nbsp;SelectPalette(myDC, myPalette, False);
 
 &nbsp; &nbsp; &nbsp;RealizePalette(myDC);
 
 &nbsp; &nbsp;end;
 
 &nbsp;end;
 
 &nbsp;glMatrixMode(GL_PROJECTION); 
 
glLoadIdentity;
 
glPolygonMode(GL_FRONT_AND_BACK, Gl_fill); 
 
glMatrixMode(GL_MODELVIEW); 
 
end;
 
procedure Render;
 
begin
 
inc(count);
 
glClearColor(0, 0, 0.0, 1); 
 
glClear(GL_COLOR_BUFFER_BIT or GL_DEPTH_BUFFER_BIT);
 
glLoadIdentity; 
 
glrotate(rotx,1,0,0);
 
glrotate(roty,0,1,0);
 
glrotate(rotz,0,0,1);
 
glBindTexture(GL_Texture_2d, tex);
 
 glBegin(GL_QUADS); &nbsp; 
 
 &nbsp;gltexcoord2f(0,0);
 
 &nbsp;glVertex3d(0.5, -0.5, 0.5); &nbsp; &nbsp; //Linke Seite
 
 &nbsp;gltexcoord2f(0,1);
 
 &nbsp;glVertex3d(-0.5, -0.5, 0.5);
 
 &nbsp;gltexcoord2f(1,1);
 
 &nbsp;glVertex3d(-0.5, -0.5, -0.5);
 
 &nbsp;gltexcoord2f(1,0);
 
 &nbsp;glVertex3d(0.5, -0.5, -0.5);
 
 &nbsp;gltexcoord(0,0);
 
 &nbsp;glVertex3d(-0.5, -0.5, -0.5); //Rückseite
 
 &nbsp;gltexcoord(0,1);
 
 &nbsp;glVertex3d(-0.5, 0.5, -0.5);
 
 &nbsp;gltexcoord(1,1);
 
 &nbsp;glVertex3d(0.5, 0.5, -0.5);
 
 &nbsp;gltexcoord(1,0);
 
 &nbsp;glVertex3d(0.5, -0.5, -0.5);
 
 &nbsp;gltexcoord(0,0);
 
 &nbsp;glVertex3d(0.5, -0.5, -0.5); &nbsp; //Oberseite
 
 &nbsp;gltexcoord(0,1);
 
 &nbsp;glVertex3d(0.5, 0.5, -0.5);
 
 &nbsp;gltexcoord(1,1);
 
 &nbsp;glVertex3d(0.5, 0.5, 0.5);
 
 &nbsp;gltexcoord(1,0);
 
 &nbsp;glVertex3d(0.5, -0.5, 0.5);
 
 &nbsp;gltexcoord(0,0);
 
 &nbsp;glVertex3d(-0.5, -0.5, 0.5); &nbsp; //Vorderseite
 
 &nbsp;gltexcoord(0,1);
 
 &nbsp;glVertex3d(-0.5, 0.5, 0.5);
 
 &nbsp;gltexcoord(1,1);
 
 &nbsp;glVertex3d(0.5, 0.5, 0.5);
 
 &nbsp;gltexcoord(1,0);
 
 &nbsp;glVertex3d(0.5, -0.5, 0.5);
 
 &nbsp;gltexcoord(0,0);
 
 &nbsp;glVertex3d(-0.5, -0.5, 0.5); &nbsp; &nbsp; //Boden / Unterseite
 
 &nbsp;gltexcoord(0,1);
 
 &nbsp;glVertex3d(-0.5, 0.5, 0.5);
 
 &nbsp;gltexcoord(1,1);
 
 &nbsp;glVertex3d(-0.5, 0.5, -0.5);
 
 &nbsp;gltexcoord(1,0);
 
 &nbsp;glVertex3d(-0.5, -0.5, -0.5);
 
 &nbsp;gltexcoord(0,0);
 
 &nbsp;glVertex3d(-0.5, 0.5, 0.5); &nbsp; //Rechte Seite
 
 &nbsp;gltexcoord(0,1);
 
 &nbsp;glVertex3d(0.5, 0.5, 0.5);
 
 &nbsp;gltexcoord(1,1);
 
 &nbsp;glVertex3d(0.5, 0.5, -0.5);
 
 &nbsp;gltexcoord(1,0);
 
 &nbsp;glVertex3d(-0.5, 0.5, -0.5);
 
 &nbsp;glEnd();
 
SwapBuffers(form1.myDC); //scene darstellen
 
end;
 
procedure InitTextures;
 
var
 
 &nbsp;texture1: PTAUX_RGBImageRec;
 
begin
 
 &nbsp;texture1 := auxDIBImageLoadA('holz.bmp');
 
 &nbsp;if not Assigned( texture1 ) then begin
 
 &nbsp; &nbsp;MessageBox(0,'Texturenpfad oder Dateiname falsch!'+#13+' Bitte den Pfad überprüfen!','Fehler beim Laden der Textur!',MB_OK or MB_ICONERROR);
 
 &nbsp;end;
 
 &nbsp;glGenTextures(1, tex);
 
 &nbsp;glBindTexture(GL_TEXTURE_2D, tex);
 
 &nbsp;glTexParameteri(GL_TEXTURE_2D,GL_TEXTURE_MAG_FILTER,GL_LINEAR);
 
 &nbsp;glTexParameteri(GL_TEXTURE_2D,GL_TEXTURE_MIN_FILTER,GL_LINEAR);
 
 &nbsp;glTexImage2D(GL_TEXTURE_2D, 0, 3, texture1^.sizeX, texture1^.sizeY, 0, GL_RGB, GL_UNSIGNED_BYTE, texture1^.data);
 
end;
 
procedure TForm1.FormCreate(Sender: TObject);
 
begin
 
form1.myDC:= GetDC(Handle);
 
SetupPixelFormat;
 
myRC:= wglCreateContext(myDC);
 
wglMakeCurrent(myDC, myRC);
 
glEnable(GL_DEPTH_TEST);
 
glEnable(GL_TEXTURE_2D);
 
glLoadIdentity;
 
InitTextures;
 
end;
 
procedure TForm1.FormDestroy(Sender: TObject);
 
begin
 
wglmakecurrent(0,0);
 
wgldeletecontext(mydc);
 
releasedc(handle,mydc);
 
end;
 
procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word;
 
 &nbsp;Shift: TShiftState);
 
begin
 
 if key = vk_down then
 
 begin
 
 rotx := rotx+1;
 
 end;
 
 if key = vk_up then
 
 begin
 
 rotx := rotx-1;
 
 end;
 
 if key = vk_right then
 
 begin
 
 roty := roty+1;
 
 end;
 
 if key = vk_left then
 
 begin
 
 roty := roty-1;
 
 end;
 
end;
 
procedure TForm1.Timer2Timer(Sender: TObject);
 
begin
 
form1.caption := inttostr(count) + ' Bilder pro Secunde';
 
count := 0;
 
end;
 
procedure TForm1.DXTimer1Timer(Sender: TObject; LagCount: Integer);
 
begin
 
render; &nbsp; {
 
rotx:=rotx+2;
 
roty:=roty+1;
 
rotz:=rotz+2;}
 
end;
 
procedure TForm1.DXTimer2Timer(Sender: TObject; LagCount: Integer);
 
begin
 
rotx:=rotx+1;
 
roty:=roty+1;
 
end;
 
end.

Nach oben

SchodMC

Betreff des Beitrags:

Verfasst: Fr Sep 27, 2002 08:21

DGL Member

Registriert: Fr Jul 12, 2002 07:15
Beiträge: 916
Wohnort: Dietzhölztal / Hessen
Programmiersprache: C/C++, Obj-C

Das Programm funktioniert?!? Und das andere nicht? Dass ist seltsam... Nur um nochmal sicher zu gehen: die Textur wird auch korrekt geladen?!? Stimmen die Seitenverhätnisse der Textur (manche ältere Karten können nicht mit allen Textur-Formaten umgehen).

_________________
Und was würdest Du tun, wenn Du wüsstest, dass morgen Dein letzter Tag auf dieser Erde ist?

Nach oben

Seite 1 von 2

[ 20 Beiträge ]

Gehe zu Seite 1, 2 Nächste

Foren-Übersicht » Programmierung » OpenGL

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.