OpenGL - Textur wird nicht angezeigt

[overmoon]

Ich arbeite mich gerade durch das Tutorial von Mr_T und bin jetzt beim 5.Teil. Bisher hat auch alles wunderbar geklappt, aber jetzt weigert sich Delphi meine Textur anzuzeigen. *grummel*

Ich habe eine Variable "tex" vom Typ gluInt global in der Unit deklariert.

So sieht der Beginn des Konstruktors der Form aus:

Delphi-Quellcode:

procedure TFormMain.FormCreate(Sender: TObject);
begin
     myDC               := GetDC(Handle);
     SetupPixelFormat;
     myRC               := wglCreateContext(myDC);
     wglMakeCurrent(myDC,myRC);
     glEnable(GL_DEPTH_TEST);
     glEnable(GL_TEXTURE_2D);
     InitTextures;
     glLoadIdentity;
     ...

In der Prozedur "InitTextures" lade ich die Textur. Diese Prozedur sieht bei mir folgendermaßen aus:

Delphi-Quellcode:

procedure TFormMain.InitTextures;
var NewTexture: PTAUX_RGBImageRec;
begin
     NewTexture := auxDIBImageLoadA('bild.bmp');

     if not Assigned(NewTexture) then ShowMessage('Fehler!');

     glGenTextures(1, tex);
     glBindTexture(GL_TEXTURE_2D, tex);

     glTexParameteri(GL_TEXTURE_2D, GL_TEXTURE_WRAP_S, GL_REPEAT);
     glTexParameteri(GL_TEXTURE_2D, GL_TEXTURE_WRAP_T, GL_REPEAT);
     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,NewTexture^.sizeX,NewTexture^.sizeY,0,GL_RGB,GL_UNSIGNED_BYTE,NewTexture^.data);
end;

Und schließlich das Benutzen der Textur mache ich folgendermaßen:

Delphi-Quellcode:

procedure TFormMain.Render;
begin
     glClear(GL_COLOR_BUFFER_BIT or GL_DEPTH_BUFFER_BIT);
     glLoadIdentity;

     glColor3f(0,0,1); 

     glBindTexture(GL_TEXTURE_2D,tex);
     glBegin(GL_QUADS);
       glTexCoord2f(0,0);
       glVertex3f(-0.5,-0.5,-3);
       glTexCoord2f(0,1);
       glVertex3f(-0.5, 0.5,-3);
       glTexCoord2f(1,1);
       glVertex3f( 0.5, 0.5,-3);
       glTexCoord2f(1,0);
       glVertex3f( 0.5,-0.5,-3);
     glEnd;

     SwapBuffers(myDC);
end;

Und was sehe ich... Leider nur ein blaues Quadrat anstatt meines Bildes.

Nun stellt sich mir natürlich die Frage: Was habe ich falsch gemacht ? Ich habe versucht den Fehler zu finden, aber ... naja, hat nicht geklappt.

Ich vermute, dass das Problem entweder bei der Methode "auxDIBImageLoadA" oder bei der Methode "glTexImage2D" liegt.

Wenn ich nämlich die Unit glBMP, die die Klasse TglBMP enthält, für das Handling von Texturen benutze, dann wird meine Textur "bild.bmp" problemlos geladen und auch auf dem Quadrat angezeigt. Abre ich möchte gerne die andere Variante benutzen. Ich finde nämlich die Unit glBMP (von Jason Allen) nimmt mir zuviel arbeit ab.

overmoon

[Mr_T]

Stimmt, die glbmp nimmt einem wirklich ne Menge Arbeit ab... aber sie bietet auch 10x mehr Feats! Wenn sie geht, würde ich bei ihr bleiben...

Zu deinem Problem kann ich so nichts sagen, da die Codeschnipsel soweit ich sehe korrekt sind... kannste das ganze Programm (mit der BMP&Source) mal hier hochladen? Dann könnte ich mir das ganze Progie mal ansehen.....

[overmoon]

Ich habe mein Projekt mal hochgeladen.
Vielleicht findest Du ja den Fehler. *hoff* :bounce1:

overmoon

ps: Ansonsten klappt es zur Zeit ganz gut.. Ich mache Würfeln, Kugeln, Kegel und packe mit glbmp Texturen darauf. Aber mich interessiert natürlich trotzdem, warum das Projekt mit der Methode "glTexImage2D" nicht will... Mich wurmt nicht zu wissen, was ich da falsch gemacht habe. :oops: :roll:

[Aya]

Hi,

ersetzt mal bei dir diese Zeile:

Delphi-Quellcode:

glTexImage2D(GL_TEXTURE_2D,0,3,NewTexture^.sizeX,NewTexture^.sizeY,0,GL_RGB,GL_UNSIGNED_BYTE,NewTexture^.data);

mit dieser:

Delphi-Quellcode:

gluBuild2DMipmaps(GL_TEXTURE_2D,GL_RGB,NewTexture^.sizeX,NewTexture^.sizeY,GL_RGB,GL_UNSIGNED_BYTE,PByte(NewTexture^.data));

dann sollte es problemlos gehen.

Au'revoir,
Aya~

[overmoon]

Stimmt. Mit "gluBuild2DMipmaps" geht es tatsächlich. :hello:

Dies schein ja wieder mal eine Prozedur zu sein, die man oben noch aus einer OpenGl-Dll einbinden muss...

Delphi-Quellcode:

function gluBuild2DMipmaps(Target: GLenum; Components, Width, Height: GLint; Format, atype: GLenum; Data: Pointer): GLint; stdcall; external glu32;

... aber, wenn ich das gemacht habe, dann geht das auch: Das Bild wird angezeigt. Und ich habe übrigens mal nachgesehen: glBMP benutzt auch diese Funktion.

Aber trotzdem interessiert es mich:
Warum funktioniert die Methode "glTexImage2D" nicht ??

[Mr_T]

Das ist recht einfach zu erlären ;-)
Es liegt nicht daran, dass der Source Fehlerhaft ist, sondern, dass dein Bild das falsche Format hat (Es müssen für normale Texturen Werte 2^x sein ... 192 gehört da nicht zu...)
Sollteste deine Textur auf 256x256 oder 256x128 scalieren geht ;-)
gluBuild2DMipmaps hingegen scaliert die selber auf ein passendes Format.....


Ps: nette Textuer ;-)

[overmoon]

Danke, tatsächlich: Wenn ich das Bild auf 256*256 skaliere, dann wird es auch angezeigt. :idea:

Wieder was gelernt. :coder:

Nochmals danke,
overmoon