DGL • Thema anzeigen - Texturen laden funktioniert nicht richtig

Texturen laden funktioniert nicht richtig

Moderator: DGL-Team

Seite 1 von 1

[ 6 Beiträge ]

Vorheriges Thema | Nächstes Thema

Autor

Nachricht

Lurnon

Betreff des Beitrags: Texturen laden funktioniert nicht richtig

Verfasst: Sa Okt 28, 2006 17:29

DGL Member

Registriert: Mi Okt 04, 2006 16:03
Beiträge: 5

Hallo,
mein Problem ist folgendes, ich versuche eine Textur zu laden und bei mehreren Quads zu nutzen (Schleife), jedoch bekomme ich keine Textur zu gesicht, sondern nur die Quads.
Wo liegt der Fehler?
Danke im Vorraus Lurnon.

Quelltext:

Code:

unit Grafik;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, dglOpengl, StdCtrls, SDL, SDL_image;
 
type
  TForm1 = class(TForm)
    ListBox1: TListBox;
    procedure FormCreate(Sender: TObject);
    procedure IdleHandler(Sender: TObject; var Done: Boolean);
    procedure FormDestroy(Sender: TObject);
    procedure FormResize(Sender: TObject);
    procedure Render;
    procedure LoadTexture;
  private
    { Private-Deklarationen }
  public
    { Public-Deklarationen }
  end;
 
var
  Form1: TForm1;
  DC                                : HDC;  //Handle auf Zeichenfläche
  RC                                : HGLRC;//Rendering Context
  texture : gluInt;
  
implementation
 
{$R *.dfm}
 
procedure TForm1.FormCreate(Sender: TObject);
  begin
    DC:=GetDC(Handle);
    RC:=CreateRenderingContext(DC,                   //Device Context
                               [opDoubleBuffered],   //Optionen
                               32,                   //ColorBits
                               24,                   //ZBits
                                0,                   //StencilBits
                                0,                   //AccumBits
                                0,                   //AuxBuffers
                                0);                  //Layer
    ActivateRenderingContext(DC, RC);
    glViewport(10, 50, 960, 640); //Renderbildfläche=Formgröße
    Application.OnIdle:= IdleHandler;
    glClearColor(0,0,0,255);  //Legt die Renderfarbe fest
    glMatrixMode(GL_PROJECTION);
    glLoadIdentity;
    gluPerspective(178.2, 960/640, 0.1, 500); //letzte Zahl bestimmt Sehweite
    glMatrixMode(GL_MODELVIEW);
    glTranslatef(0, 0,-5);
    LoadTexture;
  end;
 
procedure TForm1.IdleHandler(Sender: TObject; var Done: Boolean);
   begin
      render;
      //done:=false; //endlos Schleife
   end;
 
procedure TForm1.FormDestroy(Sender: TObject);
  begin
    DeactivateRenderingContext;
    DestroyRenderingContext(RC);
    ReleaseDC(Handle, DC);
  end;
 
procedure TForm1.FormResize(Sender: TObject);
  begin
    glClearColor(0,0,0,255);  //Legt die Renderfarbe fest
    glClear(GL_COLOR_BUFFER_BIT or GL_DEPTH_BUFFER_BIT); //Farbbuffer und Tiefenpuffer entleeren
    glMatrixMode(GL_PROJECTION);
    glLoadIdentity;
    gluPerspective(1, ClientWidth/ClientHeight, 0.1, 500); //letzte Zahl bestimmt Sehweite
    glMatrixMode(GL_MODELVIEW);
  end;
 
procedure TForm1.LoadTexture;
var
  tex : PSDL_Surface;
begin
  tex := IMG_Load('C:\Dokumente und Einstellungen\Stefan\Desktop\3d\Gras.jpg');
  if assigned(tex) then
  begin
    glGenTextures(1, @texture);
    glBindTexture(GL_TEXTURE_2D, texture);
 
    glTexParameteri(GL_TEXTURE_2D, GL_TEXTURE_MIN_FILTER, GL_LINEAR);
    glTexParameteri(GL_TEXTURE_2D, GL_TEXTURE_MAG_FILTER, GL_LINEAR);
    
    glTexImage2D(GL_TEXTURE_2D, 0, 3, tex^.w, tex^.h,0, GL_RGB, GL_UNSIGNED_BYTE, tex^.pixels);
 
    SDL_FreeSurface(tex);
  end;
end;
 
procedure TForm1.Render;
 var x,y:integer;
  begin
    glClear(GL_COLOR_BUFFER_BIT or GL_DEPTH_BUFFER_BIT); //Farbbuffer und Tiefenpuffer entleeren  hier damit die Graphik wenn sie kleiner wird net hinter der größeren verschwindet;
    x:=0;
    y:=0;
    repeat
      inc(x);
      repeat
        inc(y);
        glBindTexture(GL_TEXTURE_2D,texture);
        glBegin(GL_quads);
          glTexCoord2f(0,1);glVertex3f(-480-32+x*32,320+32-y*32,0);//ol
          glTexCoord2f(0,0);glVertex3f(-480-32+x*32,320-y*32,0);   //ul
          glTexCoord2f(1,0);glVertex3f(-480+x*32,320-y*32,0);          //ur
          glTexCoord2f(1,1);glVertex3f(-480+x*32,320+32-y*32,0);    //or
          glEnd;
      until y=20;
      y:=0;
    until x=30;
    SwapBuffers(DC);
  end;
 
end.

// edit Lossy: Pascaltags hinzugefügt

Nach oben

uweq

Betreff des Beitrags:

Verfasst: Sa Okt 28, 2006 19:06

DGL Member

Registriert: Fr Jul 14, 2006 13:08
Beiträge: 117
Wohnort: Berlin

hi

in deiner LoadTexture lädst du die Textur "tex", und gibst sie auch gleich wieder frei. Also was soll da dann angezeigt werden ?
Iss doch alles weg !

Gruß Uwe

_________________
Die 3 Totfeinde eines Programmierers ?
a) Tageslicht
b) frische Luft
c) ..und das ständige Gebrüll der Vögel

Nach oben

aNTichRisT

Betreff des Beitrags:

Verfasst: Sa Okt 28, 2006 23:13

DGL Member

Registriert: Do Nov 17, 2005 14:40
Beiträge: 63
Wohnort: Dötlingen

n abend

@ uweq : das mit dem freigeben hat schon seine richtigkeit, das sind nur die daten im arbeitsspeicher, die texturdaten sind zu dem zeitpunkt schon im grafikkartenspeicher.

@ Lurnon: ich kann in deinem code kein

Code:

glEnable(GL_TEXTURE_2D);

entdecken

.
benutz bitte auch (zumindest in zukunft) pascal-tags für deinen code, den kann man sonst so schlecht lesen....

Joshua

Nach oben

uweq

Betreff des Beitrags:

Verfasst: Sa Okt 28, 2006 23:41

DGL Member

Registriert: Fr Jul 14, 2006 13:08
Beiträge: 117
Wohnort: Berlin

@aNTichRisT,

Ja , jetzt seh ich das auch, wo Du es sagst. :roll:

Macht doch einen enormen Unterschied, mit und ohne Pascal-Tags zu schreiben.

Gruß Uwe

_________________
Die 3 Totfeinde eines Programmierers ?
a) Tageslicht
b) frische Luft
c) ..und das ständige Gebrüll der Vögel

Nach oben

Lurnon

Betreff des Beitrags:

Verfasst: So Okt 29, 2006 10:02

DGL Member

Registriert: Mi Okt 04, 2006 16:03
Beiträge: 5

Danke erstmal.
Ja die Zeile muss verschollen gegangen sein. Jetzt funktionierts.
Und etnschuldigung wegen den Pascal-Tag hab den irgendwie übersehen, bzw. nicht festgestellt das es sowas gibt.

Nach oben

Flash

Betreff des Beitrags:

Verfasst: Mo Okt 30, 2006 19:10

Guitar Hero

Registriert: Do Sep 25, 2003 15:56
Beiträge: 7810
Wohnort: Sachsen - ERZ / C
Programmiersprache: Java (, Pascal)

Ich hab dazu im Wiki mal was angelegt: Die "Checklisten"

_________________
Blog: kevin-fleischer.de und fbaingermany.com

Nach oben

Seite 1 von 1

[ 6 Beiträge ]

Foren-Übersicht » Programmierung » Einsteiger-Fragen

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.