DGL • Thema anzeigen - Texturen machen den RAM voll !!!!!!

Texturen machen den RAM voll !!!!!!

Moderator: DGL-Team

Seite 1 von 1

[ 8 Beiträge ]

Vorheriges Thema | Nächstes Thema

Autor

Nachricht

DK99

Betreff des Beitrags: Texturen machen den RAM voll !!!!!!

Verfasst: Sa Mai 24, 2008 21:53

DGL Member

Registriert: Mi Apr 09, 2008 16:28
Beiträge: 52
Wohnort: Münster

Hallo
Ich hab ein sehr ernsthaftes Problem mit den Texturen. Und zwar mache ich im Moment ein Program, was eine Art Map erstellen soll auf der man sich frei bewegen kann. Dafür brauche ich natürlich viela verschiedene Texturen. Und da liegt das Problem: Da ich die Texturen in der Render Schleife wechsele werden sie in regelmäßigen Abständen aufgerufen( was ja auf nötig ist da ich nach einer Bewegung sonst keine Textur mehr hätte). Dadurch scheinen die Texturen im RAM abgelegt zu werden und trotz der Zeile

Code:

 SDL_FreeSurface(tex); 

nicht gelöscht zu werden , da nach ca. einer Minute meine gesamter 2 GB Ram voll belegt ist und die Texturen in dem Program nur noch als weiße Flächen angezeigt werden.
Ich hoffe dass mir jemand mit diesem Problem helfen kann.
Vielen Dank schon für eure Antworten.
MFG

Hier einmal die Funktion zum Aufrufen der Textur:

Code:

 procedure TForm1.Textur;
var TexID :gluInt;
begin
tex := IMG_Load('./Mauer.jpg');
 
    if assigned(tex) then
  begin
    glGenTextures(1, @TexID);
    glBindTexture(GL_TEXTURE_2D, TexID);
 
    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;

Und hier das gesamte Program:

Code:

unit UnitInfo;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs,DGLOpenGL, ExtCtrls,SDL, SDL_Image;
const
 NearClipping = 1;
 FarClipping  = 1000;
type
  TForm1 = class(TForm)
    Timer1: TTimer;
    procedure FormCreate(Sender: TObject);
    procedure IdleHandler(Sender: TObject; var Done: Boolean);  //nur für die OnIdle Methode!
    procedure FormResize(Sender: TObject);
    procedure FormDestroy(Sender: TObject);
  private  { Private-Deklarationen }
    StartTime, TimeCount, FrameCount  : Cardinal; //FrameCounter
    Frames, DrawTime                  : Cardinal; //& Timebased Movement
    procedure SetupGL;
    procedure Render;
    procedure ErrorHandler;
    procedure Textur;
    procedure Textur2;
    procedure Erde;
    procedure Mauern;
  public   { Public-Deklarationen }
    DC                                : HDC;  //Handle auf Zeichenfläche
    RC                                : HGLRC;//Rendering Context
 
  end;
 
var
  Form1: TForm1;
  texture : integer;
  tex,tex2 : PSDL_Surface;
  z,x : real;
implementation
 
{$R *.dfm}
 
 
 
procedure TForm1.FormCreate(Sender: TObject);
var TexID :gluInt;
begin
  DC:= GetDC(Handle);
  if not InitOpenGL then Application.Terminate;
  RC:= CreateRenderingContext( DC,
                               [opDoubleBuffered],
                               32,
                               24,
                               0,0,0,
                               0);
  ActivateRenderingContext(DC, RC);
  SetupGL;
  glClearColor(0.0, 0.0, 0.0, 0.0); // nur evetuell verwenden siehe nächster Teil
  Application.OnIdle := IdleHandler;
 
  
  z := -2.5;
  x := -1.5;
end;
 
procedure TForm1.SetupGL;
begin
  glClearColor(0.2, 0.4, 0.7, 0.0); //Hintergrundfarbe: Hier ein leichtes Blau ode rauch nichT <!-- s:) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":)\" title=\"Smile\" /><!-- s:) -->
  glEnable(GL_DEPTH_TEST);          //Tiefentest aktivieren
  //glEnable(GL_CULL_FACE);           //Backface Culling aktivieren
end;
 
procedure TForm1.FormResize(Sender: TObject);
var tmpBool : Boolean;
begin
  glViewport(0, 0, ClientWidth, ClientHeight);
  glMatrixMode(GL_PROJECTION);
  glLoadIdentity;
  gluPerspective(45.0, ClientWidth/ClientHeight, NearClipping, FarClipping);    
 
  glMatrixMode(GL_MODELVIEW);
  glLoadIdentity;
  IdleHandler(Sender, tmpBool); //nur für OnIdle!
end;
 
procedure TForm1.FormDestroy(Sender: TObject);
begin
  DeactivateRenderingContext;
  DestroyRenderingContext(RC);
  ReleaseDC(Handle, DC);
end;
 
procedure TForm1.Textur;
var TexID :gluInt;
begin
if texture = 1 then
tex := IMG_Load('./Mauer.jpg');
 
if texture = 2 then 
tex := IMG_Load('./oben.jpg');
 
    if assigned(tex) then
  begin
    glGenTextures(1, @TexID);
    glBindTexture(GL_TEXTURE_2D, TexID);
 
    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.Erde;
var lauf,zErde :integer;
begin
glEnable(GL_TEXTURE_2D);
texture := 2;
Textur;
zErde := 6;
for lauf := 1 to 5 do
begin
  glBegin(GL_Quads);
   glVertex3f(-2, 0, zErde);glTexCoord2f(0,0);
   glVertex3f(0, 0, zErde);glTexCoord2f(0,1);
   glVertex3f(0, 0, zErde-2);glTexCoord2f(1,1);
   glVertex3f(-2, 0, zErde-2);glTexCoord2f(1,0);
 glEnd();
 zErde := zErde-2;
end;
 
zErde := 6;
for lauf := 1 to 5 do
begin
  glBegin(GL_Quads);
   glVertex3f(0, 0, zErde);glTexCoord2f(0,0);
   glVertex3f(2, 0, zErde);glTexCoord2f(0,1);
   glVertex3f(2, 0, zErde-2);glTexCoord2f(1,1);
   glVertex3f(0, 0, zErde-2);glTexCoord2f(1,0);
 glEnd();
 zErde := zErde-2;
end;
zErde := 6;
for lauf := 1 to 5 do
begin
  glBegin(GL_Quads);
   glVertex3f(2, 0, zErde);glTexCoord2f(0,0);
   glVertex3f(4, 0, zErde);glTexCoord2f(0,1);
   glVertex3f(4, 0, zErde-2);glTexCoord2f(1,1);
   glVertex3f(2, 0, zErde-2);glTexCoord2f(1,0);
 glEnd();
 zErde := zErde-2;
end;
 
zErde := 6;
for lauf := 1 to 5 do
begin
  glBegin(GL_Quads);
   glVertex3f(4, 0, zErde);glTexCoord2f(0,0);
   glVertex3f(6, 0, zErde);glTexCoord2f(0,1);
   glVertex3f(6, 0, zErde-2);glTexCoord2f(1,1);
   glVertex3f(4, 0, zErde-2);glTexCoord2f(1,0);
 glEnd();
 zErde := zErde-2;
end;
end;
 procedure TForm1.Mauern;
 begin
 texture:=1;
 Textur;
 //1. Haus
  glBegin(GL_Quads);
   glVertex3f(1, 0.5, 1);glTexCoord2f(0,0);
   glVertex3f(2, 0.5, 1);glTexCoord2f(0,1);
   glVertex3f(2, 0  , 1);glTexCoord2f(1,1);
   glVertex3f(1, 0  , 1);glTexCoord2f(1,0);
 glEnd();
 
 glBegin(GL_Quads);
   glVertex3f(1, 0.5, 2);glTexCoord2f(0,0);
   glVertex3f(2, 0.5, 2);glTexCoord2f(0,1);
   glVertex3f(2, 0  , 2);glTexCoord2f(1,1);
   glVertex3f(1, 0  , 2);glTexCoord2f(1,0);
 glEnd();
 
  glBegin(GL_Quads);
   glVertex3f(1, 0.5, 2);glTexCoord2f(0,0);
   glVertex3f(1, 0.5, 1);glTexCoord2f(0,1);
   glVertex3f(1, 0  , 1);glTexCoord2f(1,1);
   glVertex3f(1, 0  , 2);glTexCoord2f(1,0);
 glEnd();
 
  glBegin(GL_Quads);
   glVertex3f(2, 0.5, 1);glTexCoord2f(0,0);
   glVertex3f(2, 0.5, 2);glTexCoord2f(0,1);
   glVertex3f(2, 0  , 2);glTexCoord2f(1,1);
   glVertex3f(2, 0  , 1);glTexCoord2f(1,0);
 glEnd();
 
  glBegin(GL_Quads);
   glVertex3f(1, 0.5, 1);glTexCoord2f(0,0);
   glVertex3f(2, 0.5, 1);glTexCoord2f(0,1);
   glVertex3f(2, 0.5, 2);glTexCoord2f(1,1);
   glVertex3f(1, 0.5, 2);glTexCoord2f(1,0);
 glEnd();
//////////////////////////////////////////////////////////////////////////////
  //zweites Haus
  glBegin(GL_Quads);
   glVertex3f(3, 0.5, 1);glTexCoord2f(0,0);
   glVertex3f(4, 0.5, 1);glTexCoord2f(0,1);
   glVertex3f(4, 0  , 1);glTexCoord2f(1,1);
   glVertex3f(3, 0  , 1);glTexCoord2f(1,0);
 glEnd();
 
 glBegin(GL_Quads);
   glVertex3f(3, 0.5, 2);glTexCoord2f(0,0);
   glVertex3f(4, 0.5, 2);glTexCoord2f(0,1);
   glVertex3f(4, 0  , 2);glTexCoord2f(1,1);
   glVertex3f(3, 0  , 2);glTexCoord2f(1,0);
 glEnd();
 
  glBegin(GL_Quads);
   glVertex3f(3, 0.5, 2);glTexCoord2f(0,0);
   glVertex3f(3, 0.5, 1);glTexCoord2f(0,1);
   glVertex3f(3, 0  , 1);glTexCoord2f(1,1);
   glVertex3f(3, 0  , 2);glTexCoord2f(1,0);
 glEnd();
 
  glBegin(GL_Quads);
   glVertex3f(4, 0.5, 1);glTexCoord2f(0,0);
   glVertex3f(4, 0.5, 2);glTexCoord2f(0,1);
   glVertex3f(4, 0  , 2);glTexCoord2f(1,1);
   glVertex3f(4, 0  , 1);glTexCoord2f(1,0);
 glEnd();
 
  glBegin(GL_Quads);
   glVertex3f(3, 0.5, 1);glTexCoord2f(0,0);
   glVertex3f(4, 0.5, 1);glTexCoord2f(0,1);
   glVertex3f(4, 0.5, 2);glTexCoord2f(1,1);
   glVertex3f(3, 0.5, 2);glTexCoord2f(1,0);
 glEnd();
 ////////////////////////////////////////////////////////////////////////////
 //Zwischenbau
 glBegin(GL_Quads);
   glVertex3f(2, 0, 1);glTexCoord2f(0,0);
   glVertex3f(3, 0, 1);glTexCoord2f(0,1);
   glVertex3f(3, 0.2, 1);glTexCoord2f(1,1);
   glVertex3f(2, 0.2, 1);glTexCoord2f(1,0);
 glEnd();
 end;
 
 
 procedure TForm1.Render;
 begin
  glClear(GL_COLOR_BUFFER_BIT or GL_DEPTH_BUFFER_BIT);
  glMatrixMode(GL_PROJECTION);
  glLoadIdentity;
  gluPerspective(45.0, ClientWidth/ClientHeight, NearClipping, FarClipping);
 
  glMatrixMode(GL_MODELVIEW);
  glLoadIdentity;
  glEnable(GL_TEXTURE_2D);
 
  //Tastenabfrage
  if GetAsyncKeystate(VK_LEFT) < 0 then
   x := x +0.1;
  if GetAsyncKeystate(VK_RIGHT) < 0 then
   x := x -0.1;
  if GetAsyncKeystate(VK_UP) < 0 then
   z := z + 0.1;
  if GetAsyncKeystate(VK_DOWN) < 0 then
   z := z - 0.1;
 
  glTranslatef(x, -0.3, z);
  //Ende Tastenabfrage
  glPushMatrix();
 
  Erde;
 
 Mauern;
glPopMatrix();
 
 
 
 
  SwapBuffers(DC);
end;
 
 
procedure TForm1.IdleHandler(Sender: TObject; var Done: Boolean);
begin
  StartTime:= GetTickCount;
  Render;
  DrawTime:= GetTickCount - StartTime;
  Inc(TimeCount, DrawTime);
  Inc(FrameCount);
 
  if TimeCount >= 1000 then begin
    Frames:= FrameCount;
    TimeCount:= TimeCount - 1000;
    FrameCount:= 0;
    Caption:= InttoStr(Frames) + 'FPS';
    ErrorHandler;
  end;
  sleep(40);
  Done:= false;
end;
 
 
procedure TForm1.ErrorHandler;
begin
  Form1.Caption := gluErrorString(glGetError);
end;
 
 
 
 
end.
 

_________________
"Sometimes it pays to stay in bed on Monday, rather than spending the rest of
the week debugging Monday's code."
-- Dan Salomon

Zuletzt geändert von DK99 am So Mai 25, 2008 15:48, insgesamt 1-mal geändert.

Nach oben

Lord Horazont

Betreff des Beitrags:

Verfasst: Sa Mai 24, 2008 22:11

DGL Member

Registriert: Do Sep 02, 2004 19:42
Beiträge: 4158
Programmiersprache: FreePascal, C++

Lade die Texturen während dem Initialisieren! Auf keinen Fall solltest du bei jedem Rendern die Texturen neu laden. Außerdem musst du wenn dann vor dem neu laden der Texturen auch die alten mit glDeleteTextures löschen.

Gruß Lord Horazont

_________________
If you find any deadlinks, please send me a notification – Wenn du tote Links findest, sende mir eine Benachrichtigung.
current projects: ManiacLab; aioxmpp
zombofant network • my photostream
„Writing code is like writing poetry“ - source unknown

„Give a man a fish, and you feed him for a day. Teach a man to fish and you feed him for a lifetime. “ ~ A Chinese Proverb

Nach oben

Lossy eX

Betreff des Beitrags:

Verfasst: So Mai 25, 2008 00:36

DGL Member

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

Lord Horazont das würde ich so nicht pauschal unterschreiben. Denn er sagte ja er hat viele Texturen und ich denke das da wird nur ein Beispiel sein. Deswegen denke ich wird er sie nicht beim Initialisieren laden können. Und wenn man ein paar Dinge beachtet ist dagegen auch nichts einzuwenden. Üblicher und Performanter ist natürlich immer sie vorher zu laden. Das steht vollkommen außer Frage.

DK99: Das Sinnvollste wäre in meinen Augen eine Verwaltung. Du kannst nicht bei jedem Renderdurchgang die Texturen laden. Das geht einfach nur noch auf die Performance. Du solltest also schauen welche Texturen du benötigst und diese bei Bedarf nachladen. Sollten einige Texturen nicht mehr benötigt werden (entweder direkt nach jedem Frame oder via Art Timer oder Speicherbegrenzung oder Kombi) dann musst du diese entladen. Und dazu hat Lord Horazont vollkommen recht musst du glDeleteTextures aufrufen.

Wenn diese Tiles klein genug sind, dann kannst es auch so machen, dass du zum Beispiel 16 Stück 64x64 Texturen in eine 256x256 Textur packst. Dazu dann glTexSubImage2D verwenden. Wenn ein Bereich nicht mehr benötigt wird kannst du ihn überschreiben. Dadurch hast du weniger Texturwechsel, weniger Texturerzeugungen/freigaben und es schmeckt nach Vanille.

PS: Du solltest dir auch überlegen ob JPEG das richtige Format ist. Denn a) ist es verlustbehaftet und b) sehr Teuer beim Dekomprimieren und zur Laufzeit ist das nicht unbedingt so praktisch.

Nach oben

TAK2004

Betreff des Beitrags:

Verfasst: So Mai 25, 2008 11:25

DGL Member

Registriert: Di Mai 18, 2004 16:45
Beiträge: 2623
Wohnort: Berlin
Programmiersprache: Go, C/C++

Wieso dein Speicher vollläuft ist sehr leicht zu erklären.
Du lädst in der Schleife alle Texturen immer wieder neu und löschst fein säuberlich die, im Speicher liegende, Textur.
Da du aber die Textur vorher in den Grafikspeicher lädst und beim nächsten mal nicht wieder löschst, hast du die Textur viele male doppelt.
Wenn der VRam nach ner weile voll ist, dann lagert der Treiber die am selten genutzten Texturen auf den Ram aus und dann läuft der auch voll.
Nun läuft der Speicher voll und wenn das passiert ist, werden die Texturen vom OS in die swapfile gepackt.
Zum schluss ist dein VRam,Ram,Swapfile mit vielen mehrfachen kopien der gelichen texturen zugemüllt und er findet keinen platz mehr, die neuen zu erstellen und die weißen Flächen kommen.
Die wohl einfachste Lösung ist ein kleiner simpler Texturmanager, dafür kannst du dir z.B. die Hashliste von Lossy Ex nehmen und dort die TexturIDs an den Texturnamen binden.
Wenn du eine Textur brauchst, dann guckst du in die Hashliste und wenn du kein Eintrag findest, lädst du die Textur und fügst die ID in die Liste.
Wie oben schon erwähnt wurde, kann man auch Texturen zusammenpacken(wenn sie klein genug sind) und auch kompremieren(via dds plugin für photoshop, gimp, ati tool, nv tool).
Eine gute Idee ist auch, nicht mehr gebrauchte Texturen wieder zu zerstören aber das wurde von mein Vorrednern ja schon erwähnt.

_________________
"Wer die Freiheit aufgibt um Sicherheit zu gewinnen, der wird am Ende beides verlieren"
Benjamin Franklin

Projekte: https://github.com/tak2004

Nach oben

DK99

Betreff des Beitrags:

Verfasst: So Mai 25, 2008 12:05

DGL Member

Registriert: Mi Apr 09, 2008 16:28
Beiträge: 52
Wohnort: Münster

OK also ersma vielen Dank für die Antworten.

Ich muss leider sagen dass ich noch ziemlich unerfahren mit OpenGL bin und desshalb eure Lösungen des Problems nicht so ganz verstanden habe :cry:

Könnte mir jemand nochmal erklären wie ich glDeleteTextures(n, textures); einsetzen kann und was ich dafür als n und als textures deklarieren muss?

Und kann mir dann jemand vielleicht auch nocheinmal möglichst einfach erklären wie man so eine Verwaltung oder Hashliste für die Texturen machen kann? (Ich muss leider sagen dass ich davon kein Wort verstanden hab, bin halt noch Anfänger).
Es wär ganz toll wenn ihr mir auch so Beispiel Befehle dafür geben könntet, weil ich die leider auch nich kenne

.
MFG

_________________
"Sometimes it pays to stay in bed on Monday, rather than spending the rest of
the week debugging Monday's code."
-- Dan Salomon

Nach oben

TAK2004

Betreff des Beitrags:

Verfasst: So Mai 25, 2008 12:21

DGL Member

Registriert: Di Mai 18, 2004 16:45
Beiträge: 2623
Wohnort: Berlin
Programmiersprache: Go, C/C++

Wenn du eine Textur erstellst, dann nutzt du ja glGenTextures(n,id), wobei n die anzahl an texturen und id der identifier ist, worüber du auf die Texturen zugreifen kannst.
Wenn du dann die Texturdaten, mit glTexImage2D, in den Grafikspeicher geladen hast, dann kann man über die ID nun die Textur erreichen.
Um die Textur wieder aus dem VRam zu bekommen und die ID frei zu geben, musst du glDeleteTextures(n,id) verwenden.
Also n gibt die Anzahl der zu löschenden Texturen an(1 bei dir) und id ist die ID die du beim erstellen bekommen hast.
Zum Thema Hashlisten hier mal ein Link.
Sicher nicht der Performanteste und sinnvollste Hashlisten Algo aber dafür funktioniert er und ist einfach zu bedienen.
So könnte der Anfang in etwa aussehen.

Code:

var
  tID:^cardinal;
 
getmem(tID,sizeof(cardinal));
tID^:=ID;
Hashliste.Add(TextureName,tID);
...
 
var
  tex:^cardinal;
 
tex=Hashliste.Get(TextureName);
if tex=nil then
//lade textur neu und führe obiges snippet aus
else
  glBindTexture(GL_TEXTURE_2D,tex^);
 

_________________
"Wer die Freiheit aufgibt um Sicherheit zu gewinnen, der wird am Ende beides verlieren"
Benjamin Franklin

Projekte: https://github.com/tak2004

Nach oben

Lossy eX

Betreff des Beitrags:

Verfasst: So Mai 25, 2008 12:38

DGL Member

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

Zur Vereinfachung des Ganzen müsstest du auch nicht direkt mit Pointern arbeiten. Ein Pointer ist auch mindestens 32 Bit breit. Genau wie ein Cardinal. Und in dem Beispiel von Tak müsstest du diesen erstellten Pointer wieder löschen.

Code:

var
  ID: Cardinal;
 
Hash.Add('Name', Pointer(ID));
 
Cardinal(Hash.Get('Name'));

Ist vielleicht nicht der sauberste Stil aber spart einen Pointer ein und verhindert so Verwirrungen bzw Fehleranfälligkeit.

Nach oben

DK99

Betreff des Beitrags:

Verfasst: So Mai 25, 2008 15:45

DGL Member

Registriert: Mi Apr 09, 2008 16:28
Beiträge: 52
Wohnort: Münster

ok also ich muss leider sagen dass ich das immer noch nicht so ganz verstehe

Ist das was ihr oben geschrieben habt schon eine fertige prozedur für eine solche Liste oder muss da noch etwas dazugefügt werden? Und wo müsste ich das einfügen???
MFG

PS: Falls jemand von euch nen bissl Zeit hat wärs echt super nett wenn ihr in mein ganz oben genanntes Program diese Methode einbauen könntet und den Quelltext dann posten könntet

_________________
"Sometimes it pays to stay in bed on Monday, rather than spending the rest of
the week debugging Monday's code."
-- Dan Salomon

Nach oben

Seite 1 von 1

[ 8 Beiträge ]

Foren-Übersicht » Programmierung » OpenGL

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.