DGL • Thema anzeigen - Textur laden funzt nicht

Textur laden funzt nicht

Moderator: DGL-Team

Seite 1 von 1

[ 7 Beiträge ]

Vorheriges Thema | Nächstes Thema

Autor

Nachricht

Jailbird

Betreff des Beitrags: Textur laden funzt nicht

Verfasst: Mo Okt 06, 2003 08:46

DGL Member

Registriert: Sa Aug 30, 2003 11:56
Beiträge: 37
Wohnort: Wil, Switzerland

Moin

Ich habe anfänglich mit glBmp gearbeitet. Allerdings brauch ich für meinen Zweck sowas wie ein Textur-Splitting...Naja...Ich hab dann angefangen, mir so eine Textur-Lade-Unit zu coden. Allerdings will das Teil nicht...

vielleicht guckt einer von euch mal kurz rein. hab unwichtige sachen rausgekürzt (mit kommentarzeile)

Code:

type
  PGLRGBQUAD = ^TGLRGBQUAD;
  TGLRGBQUAD = record
    red: Byte;
    green: Byte;
    blue: Byte;
    alpha: Byte;
  end;
 
  TGLJpg = record
    TexID: GLuint;
    Width: integer;
    Height: integer;
    ImageData: PGLRGBQUAD;
  end;
 
var
  Background: Array[0..7, 0..5] of TGLJpg;
 
procedure LoadBackground(RoomID: integer);
const
  GL_BGRA   = $80E1;
var
  Bmp: TBitmap;
  Jpg: TJPEGImage;
  Header: PBitmapInfo;
  minFilter: TGLInt;      // Texture minification filter
  magFilter: TGLInt;      // Texture magnification filter
  texWrapS: TGLInt;       // Texture wrapping in s direction
  texWrapT: TGLInt;       // Texture wrapping in t direction
begin
  if FileExists(ExtractFilePath(Application.ExeName) + 'room_' + IntToStr(RoomID) + '.jpg') then
  begin
// cut / Prepare filters (the one's with TGLInt)
 
// cut / Load picture from file (tested and 100% working) and Draw on Bmp Canvas
 
// Split (not yet done. Store everything in first pic)
 
    Background[0, 0].Width := Bmp.Width;
    Background[0, 0].Height := Bmp.Height;
 
    // Prepare GetDIBits
    GetMem(Header, SizeOf(TBitmapInfoHeader));
    with Header^.bmiHeader do
    begin
      biSize := SizeOf(TBitmapInfoHeader);
      biWidth := Background[0, 0].Width;
      biHeight := Background[0, 0].Height;
      biPlanes := 1;
      biBitCount := 32;
      biCompression := BI_RGB;
      biSizeImage := Background[0, 0].Width * Background[0, 0].Height * 4;
    end;
    GetDIBits(Bmp.Canvas.Handle, Bmp.Handle, 0, Background[0, 0].Height, Background[0, 0].ImageData, TBitmapInfo(Header^), DIB_RGB_COLORS);
 
// GetDIBits returns 512, what is correct. But Background[0, 0].ImageData still contains no data...why?
 
    SetAlpha(255);  // sets alpha channel and gives an exception (that's why Background[0, 0].ImageData is nil
 
    // Free up memory
    FreeMem(Header);
    Jpg.Free;
    Bmp.Free;
 
    // Generate the texture
    if Background[0, 0].TexID > 0 then glDeleteTextures(1, Background[0, 0].TexID);
    glGenTextures(1, Background[0, 0].TexID);
    glBindTexture(GL_TEXTURE_2D, Background[0, 0].TexID);
 
    // 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);
 
// won't work with no image data...
    glTexImage2D(GL_TEXTURE_2D, 0, GL_RGBA, Background[0, 0].Width, Background[0, 0].Height, 0, GL_BGRA, GL_UNSIGNED_BYTE, Background[0, 0].ImageData);
//    gluBuild2DMipmaps(GL_TEXTURE_2D, GL_RGBA, Background[0, 0].Width, Background[0, 0].Height, GL_BGRA, GL_UNSIGNED_BYTE, PByte(Background[0, 0].ImageData));
  end;
end;

_________________
Jailbird

Nach oben

Sascha Willems

Betreff des Beitrags:

Verfasst: Mo Okt 06, 2003 10:07

DGL Member

Registriert: Mo Sep 23, 2002 19:27
Beiträge: 5812
Programmiersprache: C++

Wenn ich in deinem Quelltext nichts übersehen hab,dann hast du einfach den Fehler gemacht keinen Speicher für TglJPG.ImageData zu reservieren.Und da dieses PGLRGBQUAD dann ins Nirvana (sprich auf NIL) zeigt,wird GetDibBits da auch nichts reinkopieren können. (hat ja dann auch quasi eine Größe von 0 Bytes),
Du musst also erstmal Speicher für deine Bilddaten anfordern :

Code:

New(Background[x,y].ImageData);
GetDibBits(...);
//Textur erstellen
Dispose(Background[x,y].ImageData);

_________________
www.SaschaWillems.de | GitHub | Twitter | GPU Datenbanken (Vulkan, GL, GLES)

Nach oben

Jailbird

Betreff des Beitrags:

Verfasst: Mo Okt 06, 2003 12:29

DGL Member

Registriert: Sa Aug 30, 2003 11:56
Beiträge: 37
Wohnort: Wil, Switzerland

ich hab jetzt mal

Code:

GetMem(Background[0, 0].ImageData, Background[0, 0].Width * Background[0, 0].Height * 4);

eingebaut. nun ist die exception weg, allerdings wird immer noch keine textur angezeigt...

ich hab's mal mit dem gluBuild2DMipmaps probiert, da krieg ich allerdings eine exception (von der glu32.dll).

des weiteren geb ich mit FreeMem(Background[0, 0].ImageData); beim beenden (form destroy) den speicher wieder frei und krieg einen "invalid pointer operation"-fehler...an was könnt's noch liegen? ich hab doch extra bei glbmp geguckt, wie's funktioniert...

_________________
Jailbird

Nach oben

Jailbird

Betreff des Beitrags:

Verfasst: Mo Okt 06, 2003 12:40

DGL Member

Registriert: Sa Aug 30, 2003 11:56
Beiträge: 37
Wohnort: Wil, Switzerland

kleiner edit...die letzte exception beim beenden ist weg...war zu dumm

allerdings seh ich immer noch keine tex

_________________
Jailbird

Nach oben

Sascha Willems

Betreff des Beitrags:

Verfasst: Mo Okt 06, 2003 12:42

DGL Member

Registriert: Mo Sep 23, 2002 19:27
Beiträge: 5812
Programmiersprache: C++

Ich zitiere mal einfach die Delphi-Hilfe zu GetMem, was evtl. hilfreich sein könnte :

Zitat:

Verwenden Sie statt GetMem und FreeMem die die Prozeduren New und Dispose.

Und wenn du bei glTexImage2D keine Textur angezeigt bekommst,und dir jedoch sicher bist das diese korrekt erstellt wurde,dann liegts wahrscheinlich daran das dein Vergrößerungs- und Verkleinerungsfaktor MipMapping wollen,dort also z.B. statt GL_LINEAR GL_LINEAR_MIPMAP_LINEAR steht.Und da du über glTexImage2D nur eine MipMap für Stufe 0 angegeben hast,siehst du auch im Normalfall nichts.

Ausserdem seh ich grade das du als Texturenformat GL_BGRA verwendest,und ich bin mir fast sicher das es diverse Grafikkarten gibt die das nicht unterstützten.Warum brauchst du eigentlich dieses Format?Deine Pixeldaten müssten doch eigentlich im RGBA-Format vorliegen.

Edit : Hab grad noch was schwerwiegendes entdeckt : Du nutzt nur einfache Records, aber du musst packed records verwenden,da deine Records sonst im Speicher nicht korrekt ausgerichtet werden.Hier könnte dein Problem auch liegen.

_________________
www.SaschaWillems.de | GitHub | Twitter | GPU Datenbanken (Vulkan, GL, GLES)

Nach oben

Jailbird

Betreff des Beitrags:

Verfasst: Mi Okt 08, 2003 12:02

DGL Member

Registriert: Sa Aug 30, 2003 11:56
Beiträge: 37
Wohnort: Wil, Switzerland

ich hab das mal auf packed record umgestellt...allerdings ohne erfolg...ich weiss nicht, an was es noch liegen könnte...ich hab drum das zeug mal geuppt...

jimmy.zip

hoffe, hab alles nötig drin. wäre nett, wenn sich's mal einer angucken könnte. zur kleinen erklärung...um das laden der textur auszulösen einfach die linke maustaste drücken...an room_1.txt liegt's übrigens nicht. diese datei ist nur zuständig für die polygone, welche gezeichnet werden. das funzt ja...aber eigentlich sollte dann das teilchen oben links eine textur bekommen...sollte...

bin für jede hilfe dankbar

_________________
Jailbird

Nach oben

Jailbird

Betreff des Beitrags:

Verfasst: Do Okt 09, 2003 18:23

DGL Member

Registriert: Sa Aug 30, 2003 11:56
Beiträge: 37
Wohnort: Wil, Switzerland

hat sich erledigt...hatte die falsche glColor und zusätzlich einen "falschen" pointer...fühl mich mal wieder wie ein s-dau

_________________
Jailbird

Nach oben

Seite 1 von 1

[ 7 Beiträge ]

Foren-Übersicht » Programmierung » Einsteiger-Fragen

Wer ist online?

Mitglieder in diesem Forum: 0 Mitglieder und 21 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.