DGL • Thema anzeigen - Einbinden einer PixelGraphic bzw. Tbitmap

Einbinden einer PixelGraphic bzw. Tbitmap

Moderator: DGL-Team

Seite 1 von 1

[ 5 Beiträge ]

Vorheriges Thema | Nächstes Thema

Autor

Nachricht

heavenssake007

Betreff des Beitrags: Einbinden einer PixelGraphic bzw. Tbitmap

Verfasst: Do Sep 03, 2009 09:06

DGL Member

Registriert: Fr Jan 16, 2009 13:36
Beiträge: 75

Hallo alle zusammen,

Ich habe folgendes Problem. Ich möchte eine Pixelgraphic als Textur verwenden, bzw mehrere Texturen in einem TGLUint Array speichern.
Ich habe hier im Forum schon viel von der Verwendung von TBitmap als Textur gelesen und deshalb dieses hier verfasst als eine Art Abwandlung.

Code:

 
 setlength(FMyTexture,length(textures));
   for i:=0 to length(textures)-1 do
   begin
      LoadTextureFromPG(Textures[i],FMyTexture[i]);
   end;
 

Die Load Texture Routine sieht so aus:

Code:

 
 
procedure TOpenGLFigures.LoadTextureFromPG(const aPG : TPixelgraphic; var Texture: Cardinal);
var 
    x,y,w,h  : integer;
    data : PByte;
    PB : PByte;
begin
   //bmp.PixelFormat := pf24bit;
   w := aPG.Width;
   h := aPG.Height;
 
   getmem(data,W*H*3);
 
   PB := data;
   
   for y:=0 to H-1 do
   begin
      for x := 0 to W-1 do 
      begin
         PB^:= GetRValue(aPG.Pixels[x,y]); inc(PB);
         PB^:= GetGValue(aPG.Pixels[x,y]); inc(PB);
         PB^:= GetBValue(aPG.Pixels[x,y]); inc(PB);
      end;
   end;
    glBindTexture(GL_Texture_2d,texture);
    glTexImage2d(GL_TEXTURE_2D,0,gl_RGBA8,W,H,0,GL_BGRA,GL_UNSIGNED_BYTE,data);
 
   {gltexparameteri(GL_TEXTURE_2D,GL_Texture_min_filter,GL_LINEAR_MIPMAP_LINEAR);
   gltexparameteri(GL_TEXTURE_2D,GL_Texture_mag_filter,GL_LINEAR);
   gluBuild2DMipmaps(GL_TEXTURE_2D,gl_RGBA,w,h,GL_BGRA,gl_unsigned_byte,data); } 
   FreeMem(data);
 
end;
 

wenn ich dies nun auf einer Kugel darstellen möchte sehe ich Nichts!!!
In der Texture scheint auch nicht wirklich etwas enthalten zu sein, da der Parameter der Variablen immer 0 ist.

Mein Aufruf der Kugeln (weil mehrere Viewports) sieht wie folgt aus:

Code:

 
for i := 0 to FNumberViews-1 do
     begin
    
        glViewport(vport[i,1], vport[i,2], FWidth div FCols, FHeight div FRows);
     //  glLightfv(GL_Light0,GL_Position,@light_position); 
       glLightModelfv(GL_Light_Model_Ambient,@model_ambient);
       glEnable(GL_Lighting);
       glEnable(GL_Light0);       
 
       gObj := gluNewQuadric;
       gluQuadricDrawStyle(gObj ,GLU_FILL);
       gluQuadricTexture(gObj,true); 
       glBindTexture(GL_Texture_2d,FMyTexture[i]); 
       glEnable(GL_TEXTURE_2D); 
       gluSphere(gObj,1,64,64); 
  
end; 
 

Ich bin für jede erdenkliche Hilfe sehr dankbar.

Gruss

heavenssake007

Nach oben

Aya

Betreff des Beitrags:

Verfasst: Do Sep 03, 2009 09:17

DGL Member

Registriert: Di Dez 03, 2002 22:12
Beiträge: 2105
Wohnort: Vancouver, Canada
Programmiersprache: C++, Python

du hast den aufruf von glGenTextures vergessen

Nach oben

heavenssake007

Betreff des Beitrags:

Verfasst: Do Sep 03, 2009 10:12

DGL Member

Registriert: Fr Jan 16, 2009 13:36
Beiträge: 75

Ich hab das mal so gemacht:

Code:

 
glGenTextures( 1, @texture );
    glBindTexture(GL_Texture_2d,texture);
    glTexImage2d(GL_TEXTURE_2D,0,gl_RGBA,W,H,0,GL_BGRA,GL_UNSIGNED_BYTE,data);
 

sehe jedoch immer noch nichts. Wenn ich die Graphik per glBitmap Loader aus einer Datei lade, funktioniert es, jedoch ist es ja nicht das was ich haben möchte.

Nach oben

Lossy eX

Betreff des Beitrags:

Verfasst: Do Sep 03, 2009 12:04

DGL Member

Registriert: Do Dez 05, 2002 10:35
Beiträge: 4234
Wohnort: Dortmund

Du musst auch die TexturFilter setzen. Per Default müssten die vielleicht sogar auf MipMaps stehen. Und wenn du die Texturen ohne MipMaps uploadest und dann benutzt, dann werden sie nicht darstellt. gluBuild2DMipMaps ist da das Letzte zu was ich raten würde.

Nach dem erzeugen (Gen) deiner Texturen. Also irgendwann zwischen Gen und dem Benutzen. Nach Gen empfielt sich aber.

Code:

glTexParameteri(GL_TEXTURE_2D, GL_TEXTURE_MAG_FILTER, GL_LINEAR);
glTexParameteri(GL_TEXTURE_2D, GL_TEXTURE_MIN_FILTER, GL_LINEAR);

Nach oben

heavenssake007

Betreff des Beitrags:

Verfasst: Do Sep 03, 2009 13:46

DGL Member

Registriert: Fr Jan 16, 2009 13:36
Beiträge: 75

Vielen Dank für Euer beider Hilfe,

Ich hab das jetzt doch über den BitmapLoader von Dir (Lossey) gelöst:

Die Laderoutine sieht dann wie folgt aus:

Code:

 
    procedure TOpenGLFigures.LoadTextureFromPG(const aPG : TPixelgraphic; var Texture: Cardinal;Counter:integer);
    var glBitmap: TglBitmap2D;
          abmp : TBitmap; 
    begin
        Texture := 0;
        abmp := TBitmap.Create;
    
        glBitmap := TGLBitmap2d.Create;
        aPG.SaveToBitmap(abmp);
        glBitmap.AssignFromBitmap(abmp);
 
        try
       glBitmap.DeleteTextureOnFree := False;
       glBitmap.FreeDataAfterGenTexture := False;
       glBitmap.GenTexture(True);
       if (glBitmap.ID > 0) then begin
         Texture := glBitmap.ID;
       end;
     finally
      glBitmap.Free;
    end; 
end;
 

Nach oben

Seite 1 von 1

[ 5 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.