Texture problem in OpenGL

[Daikrys]

hi there,

my problem is not a joke, i use the DGLOpenGL.pas for a short time
and when i try to load an texture with GLBMP i dont saw something :shock:

heres the simple code:

my texture
[pascal]
var texture: TGLBMP;
[/pascal]

this is in the Form1.create procedure
[pascal]
procedure Setup;
begin
t.texture:=TGLBMP.Create;
t.texture.LoadImage('tex.bmp');
t.texture.GenTexture(false,false);
end;
[/pascal]

and this is in the render procedure
[pascal]
t.texture.Bind;
glbegin(gl_quads);
glTexCoord2f(0.0, 0.0);
glvertex3f(-1,1,-2);
glTexCoord2f(1.0, 0.0);
glvertex3f(-1,0,-2);
glTexCoord2f(1.0, -1.0);
glvertex3f(0,0,-2);
glTexCoord2f(0.0, -1.0);
glvertex3f(0,1,-2);
glend;
[/pascal]

hm it can be a simple blackout but i dont find the problem?

Thanks

[Paulius]

So what do you get: quad without texture or no quad at all? If the quad is missing then the problem is elsewhere, if the texture is missing then you probably forgot to enable texturing

[Daikrys]

thanks for reply

the quad is missing :cry:
ill try since 12pm without success

here my initial code

[pascal]
procedure TForm1.FormCreate(Sender: TObject);
var i: integer;
begin
InitOpenGL;
DC := GetDC(Handle);
RC := CreateRenderingContext(DC, [opDoubleBuffered], 32, 24, 0, 0, 0, 0);
ActivateRenderingContext(DC, RC);
SetupPixelFormat;
Setup;
end;

procedure TForm1.FormDestroy(Sender: TObject);
begin
DeactivateRenderingContext;
wglDeleteContext(RC);
ReleaseDC(Handle, DC);
end;

procedure TForm1.FormResize(Sender: TObject);
begin
if HandleAllocated then
begin
glViewport(0, 0, ClientWidth, ClientHeight);
glMatrixMode(GL_PROJECTION);
glLoadIdentity;
gluPerspective(45, ClientWidth/ClientHeight, 0.1, 1000);
end;
end;

procedure TForm1.SetupPixelFormat;
begin
glEnable(GL_TEXTURE_2D);
glEnable(GL_DEPTH_TEST);
end;
[/pascal]

[Paulius]

You?¢_~re problem has nothing to do with texturing then. In FormResize matrix mode is set to projection and never returned to model view, it?¢_Ts likely translate/rotate/scale are corrupting you?¢_Tre projection matrix

[JSoftware]

are you sure that the texture is power-of-two dimensions?

[Paulius]

If texture was invalid then OpenGL would act like no texturing was used, if he cant see his quad and no culling is used then theres a problem with it's transformation.

[JSoftware]

Daikrys, then try to post everything in your render procedure

And do as Paulius suggested: glmatrixmode(gl_modelview);
after gluperspective

[Daikrys]

i localisated the problem but cant figure it

when i create a opengl texture with Gentexture then i cant see everything

[pascal]
procedure TGLBMP.GenTexture();
begin
if Assigned(rgbBits) then begin
// If a texture object has already been created, delete it
if TextureID > 0 then
glDeleteTextures(1, TextureID);

// Create a new OpenGL texture object
glGenTextures(1, TextureID);
glBindTexture(GL_TEXTURE_2D, TextureID);

// Set up parameters
glTexParameteri(GL_TEXTURE_2D, GL_TEXTURE_WRAP_S, texWrapS);
glTexParameteri(GL_TEXTURE_2D, GL_TEXTURE_WRAP_T, texWrapT);
glTexParameteri(GL_TEXTURE_2D, GL_TEXTURE_MAG_FILTER, magFilter);
glTexParameteri(GL_TEXTURE_2D, GL_TEXTURE_MIN_FILTER, minFilter);

if (iFormat = RGB) then
gluBuild2DMipmaps(GL_TEXTURE_2D, GL_RGBA, Width, Height, GL_RGBA, GL_UNSIGNED_BYTE, PByte(rgbBits))
else
gluBuild2DMipmaps(GL_TEXTURE_2D, GL_RGBA, Width, Height, GL_BGRA, GL_UNSIGNED_BYTE, PByte(rgbBits))
end;
end;
[/pascal]

[pascal]
procedure Render;
begin
glMatrixMode(GL_MODELVIEW);
glClear(GL_COLOR_BUFFER_BIT or GL_DEPTH_BUFFER_BIT);
glLoadidentity;

gltranslatef(0,0,-6);

//textur.Bind;
glbegin(gl_quads);
glTexCoord2f(0.0, 0.0);
glvertex3f(-1,1,-2);
glTexCoord2f(1.0, 0.0);
glvertex3f(-1,0,-2);
glTexCoord2f(1.0, -1.0);
glvertex3f(0,0,-2);
glTexCoord2f(0.0, -1.0);
glvertex3f(0,1,-2);
glend;

SwapBuffers( DC);
end;
[/pascal]

[JSoftware]

Do you remember to initialize ID in your texture record? before the if loop?

[Daikrys]

i not sure what you mean?
textureid is a TGLUInt

i have upload my files
http://<br /> http://daikrys.funpic...le=texture.zip(~85kb)

please have a look

Thanks