glDeleteTextures gibt Speicher nicht frei

Muss das nochmal aufgreifen

Delphi-Quellcode:

			    if Assigned(QuadTexture) then

    begin

      glDeleteTextures(Length(QuadTexture), @QuadTexture[Low(QuadTexture)]);

      SetLength(QuadTexture, 0);

    end;

Das hatten wir schon.
Warum wird der Speicher nicht freigegeben wenn die Texturen geöscht werden ?

Solange wie ich Cover aktiviere die innerhalb des Albumkreis schon vorhanden sind gibt es keine probleme
Lade ich neue addiert der speicher jedesmal um 10 MB ??
Das kann es irgendwo nicht sein.

gruss Emil

**littleDave**

Ich glaube ja [immer noch], dass es nicht an glDeleteTextures liegt, sondern dass du beim Laden irgendwas nicht wieder freigibst. Mach mal folgendes: du hast doch sicherlich eine Funktion in der Art LoadCoverFromFile(...) (oder so). Jetzt schreibst du folgende Methode hinein:

zusammenfalten · markieren

Delphi-Quellcode:

			procedure CreateTempTexture(var Target: cardinal);

var pTexData: Pointer;

begin

  GetMem(pTexData, 512*512*3);

  // Textur generieren und drauf zeigen

  glGenTextures(1, @Target);

  glBindTexture(GL_TEXTURE_2D, Target);

  // Daten in den Speicher, Lineares Filtering aktivieren

  glTexImage2D(GL_TEXTURE_2D, 0, 3, 512, 512, 0, GL_RGB, GL_UNSIGNED_BYTE, pTexData);

  glTexParameteri(GL_TEXTURE_2D, GL_TEXTURE_MAG_FILTER, GL_LINEAR);

  glTexParameteri(GL_TEXTURE_2D, GL_TEXTURE_MIN_FILTER, GL_LINEAR);

  // Freigeben

  FreeMem(pTexData);

end;

Jetzt rufst du anstatt deiner LoadCoverFromFile diese Funktion auf (vielleicht noch etwas anpassen!). Wenn dann der Speicher immernoch nicht wieder freigeräumt wird mit der glDeleteTextures - Methode, kann ich von hier auch nicht mehr groß helfen - ich hab dann überhaupt keine Ahnung woran es dann liegt.

Danke das werd ich mal versuchen..
Ich gehe so vor

in acover befinden sich die Pfade zu den texturen
welche dann quadTexture : GLUint; zugewiesen werden abhängig vom CoverCount
also wieviele Cover zur laufzeit geladen werden sollen von 5 > Max 25.

Damit die Cover nicht immer wieder neu geladen werden wenn sie vorhanden sind
habe ich eine TStringList erstellt LstQuadTexture

Diese beinhaltet dann die quadTexture als Text
Damit vergleiche ich dann wenn ein neuer Titel abgespielt wird.
Ist die Texture vorhanden wird sich lediglich aktiviert nicht neu geladen.
LoadCover wird dann übersprungen.

Bei jeden aufruf von LoadCover werden (sollten) alle Cover gelöscht werden.
Aber anstelle zu löschen werden wie schon gesagt immer wieder so etwa 10 MB addiert.

Die LadeRoutine für die JPG, BMP ist die von Sulaco.
Da wird aber alles direkt wieder freigegeben.

EDIT:
Habe das jetzt mal versucht..
Anstelle von
LoadTexture(aCovers[i], quadTexture[i], False);
deine function zum testen genommen .. hoffe das ist richtig so

So wie du sagst erstellt diese eine Temporäre Texture also alle Quader werden jetzt einfach
mit dieser gefüllt (alles schwartz)

Speicher wird einwandfrei freigegeben.

markieren

Delphi-Quellcode:

			              if  (aFileName = 'COVER') then

              begin

                CreateTempTexture(quadTexture[i]);

                //LoadTexture(aCovers[i], quadTexture[i], False);

                LstQuadTexture.Add(IntToStr(quadTexture[i]));

                LstCoverPath.Add(aCovers[i]);

                LastAddCover := Trunc(quadTexture[i]);

              end;

EDIT2:
Das ist der part des Textureloaders für JPG ohne von resource laden...
Da wird alles freigegeben.

zusammenfalten · markieren

Delphi-Quellcode:

			  end

  else

  begin

    try

      JPG.LoadFromFile(Filename);

    except

      MessageBox(0, PChar('Couldn''t load JPG - "'+ Filename +'"'), PChar('BMP Unit'), MB_OK);

      Exit;

    end;

  end;

  // Create Bitmap

  BMP:=TBitmap.Create;

  try

  BMP.pixelformat:=pf32bit;

  BMP.width:=JPG.width;

  BMP.height:=JPG.height;

  BMP.canvas.draw(0,0,JPG);        // Copy the JPEG onto the Bitmap

  MStream := TMemoryStream.Create;

    try

      BMP.TransparentMode := tmAuto;

      BMP.PixelFormat :=  pf24bit;  // just because this format works!

      BMP.Dormant;                  // make it so!

      BMP.SaveToStream(MStream);

      MStream.Seek(0,soFromBeginning);

      LoadBMPTextureFromStream(MStream, Texture);

    finally

      MStream.free;

    end;

  finally

    BMP.Free;

  end;

  result :=TRUE;

Gruss Emil

Zitat von EWeiss:

Danke das werd ich mal versuchen..
Ich gehe so vor

in acover befinden sich die Pfade zu den texturen
welche dann quadTexture : GLUint; zugewiesen werden abhängig vom CoverCount
also wieviele Cover zur laufzeit geladen werden sollen von 5 > Max 25.

Damit die Cover nicht immer wieder neu geladen werden wenn sie vorhanden sind
habe ich eine TStringList erstellt LstQuadTexture

Diese beinhaltet dann die quadTexture als Text
Damit vergleiche ich dann wenn ein neuer Titel abgespielt wird.
Ist die Texture vorhanden wird sich lediglich aktiviert nicht neu geladen.
LoadCover wird dann übersprungen.

Bei jeden aufruf von LoadCover werden (sollten) alle Cover gelöscht werden.
Aber anstelle zu löschen werden wie schon gesagt immer wieder so etwa 10 MB addiert.

Die LadeRoutine für die JPG, BMP ist die von Sulaco.
Da wird aber alles direkt wieder freigegeben.

EDIT:
Habe das jetzt mal versucht..
Anstelle von
LoadTexture(aCovers[i], quadTexture[i], False);
deine function zum testen genommen .. hoffe das ist richtig so

So wie du sagst erstellt diese eine Temporäre Texture also alle Quader werden jetzt einfach
mit dieser gefüllt (alles schwartz)

Speicher wird einwandfrei freigegeben.

markieren

Delphi-Quellcode:

			              if  (aFileName = 'COVER') then

              begin

                CreateTempTexture(quadTexture[i]);

                //LoadTexture(aCovers[i], quadTexture[i], False);

                LstQuadTexture.Add(IntToStr(quadTexture[i]));

                LstCoverPath.Add(aCovers[i]);

                LastAddCover := Trunc(quadTexture[i]);

              end;

EDIT2:
Das ist der part des Textureloaders für JPG ohne von resource laden...
Da wird alles freigegeben.

zusammenfalten · markieren

Delphi-Quellcode:

			  end

  else

  begin

    try

      JPG.LoadFromFile(Filename);

    except

      MessageBox(0, PChar('Couldn''t load JPG - "'+ Filename +'"'), PChar('BMP Unit'), MB_OK);

      Exit;

    end;

  end;

  // Create Bitmap

  BMP:=TBitmap.Create;

  try

  BMP.pixelformat:=pf32bit;

  BMP.width:=JPG.width;

  BMP.height:=JPG.height;

  BMP.canvas.draw(0,0,JPG);        // Copy the JPEG onto the Bitmap

  MStream := TMemoryStream.Create;

    try

      BMP.TransparentMode := tmAuto;

      BMP.PixelFormat :=  pf24bit;  // just because this format works!

      BMP.Dormant;                  // make it so!

      BMP.SaveToStream(MStream);

      MStream.Seek(0,soFromBeginning);

      LoadBMPTextureFromStream(MStream, Texture);

    finally

      MStream.free;

    end;

  finally

    BMP.Free;

  end;

  result :=TRUE;

Gruss Emil

**littleDave**

Hab gerade mal auf meiner Platte gewühlt und die alte Textures.pas gefunden. Der Abschnitt schaut bei mir etwas anders aus:

zusammenfalten · markieren

Delphi-Quellcode:

			// ... rest abgeschnitten

  begin

    try

      JPG.LoadFromFile(Filename);

    except

      MessageBox(0, PChar('Couldn''t load JPG - "'+ Filename +'"'), PChar('BMP Unit'), MB_OK);

      Exit;

    end;

  end;

  // Create Bitmap

  BMP:=TBitmap.Create;

  BMP.pixelformat:=pf32bit;

  BMP.width:=JPG.width;

  BMP.height:=JPG.height;

  BMP.canvas.draw(0,0,JPG);        // Copy the JPEG onto the Bitmap

  //  BMP.SaveToFile('D:\test.bmp');

  Width :=BMP.Width;

  Height :=BMP.Height;

  SetLength(Data, Width*Height);

  For H:=0 to Height-1 do

  Begin

    Line :=BMP.scanline[Height-H-1];   // flip JPEG

    For W:=0 to Width-1 do

    Begin

      c:=Line^ and $FFFFFF; // Need to do a color swap

      Data[W+(H*Width)] :=(((c and $FF) shl 16)+(c shr 16)+(c and $FF00)) or $FF000000;  // 4 channel.

      inc(Line);

    End;

  End;

  BMP.free;

  JPG.free;

  Texture :=CreateTexture(Width, Height, GL_RGBA, addr(Data[0]));

  result :=TRUE;

end;

Was aber sicherlich niemals schaden wird ist am Schluss noch ( nach Texture := CreateTexture( ...)
SetLength(Data, 0); aufzurufen

Der Loader von Sulaco ist zwar schön und gut, doch so ganz neu ist der ja nun auch nicht mehr

. Ich würd dir in der Hinsicht dringend empfehlen, einen anderen Texture-Loaded (z.B.

glBitmap) zu verwenden. Bei glBitmap hast du sogar noch den Vorteil, dass fast nichts umschreiben musst - dort gibt es auch eine Funktion namens LoadTexture, die genauso aufgebaut ist wie die von Jan Horn. Ich persönlich arbeite noch mit Version 1.8.9 dieses Headers, daher weiß ich nicht, was sich seit dem genau verändert hat.
Falls du den Header verwendest, solltest du ihn natürlich vorher einstellen (die Defines am Anfang}

Zitat:

Falls du den Header verwendest, solltest du ihn natürlich vorher einstellen (die Defines am Anfang}

ja und da habe ich ein problem mit

Habe nach dem Loader schon geschaut .. schäm. muss gestehen keine ahnung was ich da einstellen soll

EDIT:
Und zusätzlich dazu muss dann noch einige fremd DLL's mit einbauen freejpg und was weiss ich noch alles.
Die DLL soll eigentlich einzeln ausgegeben werden.

gruss Emil

**littleDave**

Das ist nicht schwer - wirklich. Falls du den DelphiGL-Header (dglOpenGl.pas) benutzt, ist es sehr einfach. Du lädst dir

hier die Version glBitmap_1.8.9.zip herunter. Dann extrahierst du die Datei in einen beliebigen Order und fügst den in den Such-Pfad von Delphi hinzu.
Jetzt öffnest du die Datei - Windows NotePad reicht dabei vollkommen. Ganz oben im Interface-Abschnitt findest du dann die Zeile
{.$define NO_NATIVE_GL} Dort löscht du einfach den Punkt vor $define, speicherst und fertig!

Zitat von EWeiss:

Und zusätzlich dazu muss dann noch einige fremd DLL's mit einbauen freejpg und was weiss ich noch alles.
Die DLL soll eigentlich einzeln ausgegeben werden.

Bei Version 1.8.9 brauchst du keine weiteren DLLs. Ab Version 2.0 (glaub ich) hat Lossy auf libJpeg umgestellt, aber die Versionen davor brauchen keine weiteren DLLs

Zitat von littleDave:

Das ist nicht schwer - wirklich. Falls du den DelphiGL-Header (dglOpenGl.pas) benutzt, ist es sehr einfach. Du lädst dir

hier die Version glBitmap_1.8.9.zip herunter. Dann extrahierst du die Datei in einen beliebigen Order und fügst den in den Such-Pfad von Delphi hinzu.
Jetzt öffnest du die Datei - Windows NotePad reicht dabei vollkommen. Ganz oben im Interface-Abschnitt findest du dann die Zeile
{.$define NO_NATIVE_GL} Dort löscht du einfach den Punkt vor $define, speicherst und fertig!

Zitat von EWeiss:

Und zusätzlich dazu muss dann noch einige fremd DLL's mit einbauen freejpg und was weiss ich noch alles.
Die DLL soll eigentlich einzeln ausgegeben werden.

Bei Version 1.8.9 brauchst du keine weiteren DLLs. Ab Version 2.0 (glaub ich) hat Lossy auf libJpeg umgestellt, aber die Versionen davor brauchen keine weiteren DLLs

Ahhh dann ist alles ok werde dann umstellen

Fehler lag nicht an glDeleteTextures

Schau mal hier ..

deine..

markieren

Delphi-Quellcode:

			  End; 

  BMP.free; 

  JPG.free; 

  Texture :=CreateTexture(Width, Height, GL_RGBA, addr(Data[0])); 

  result :=TRUE; 

end;

meine..

markieren

Delphi-Quellcode:

			    end; 

  finally 

    BMP.Free; 

  end; 

  result :=TRUE;

definitiv fehlt da was

Kein wunder das nach 10 25x JPG Cover laden der speicher bei 80MB und drüber liegt.
Die größte leistung waren 1023 MB Speicher nur wegen der Vis

Danke für den Tip werd es mal umändern.

gruss Emil

**littleDave**

Hihi, stimmt - hätt ich jetzt nicht sofort gesehen - naja, bei der Uhrzeit auch verständlich

Falls es jetzt dann gehen sollte - bedenke: Never change a running system

Grüße und gute Nacht
Dave

Zitat von littleDave:

Hihi, stimmt - hätt ich jetzt nicht sofort gesehen - naja, bei der Uhrzeit auch verständlich

Falls es jetzt dann gehen sollte - bedenke: Never change a running system

Grüße und gute Nacht
Dave

ja stimmt schon.
Aber die glBitmap wird wohl einige optimierungen haben werd es mir mal anschauen.
Vielleicht bringt es mir geschwindigkeits vorteile

danke nochmal

gruss Emil