Arbeitsspeicher läuft über - wie leeren

[SirThornberry]

@Ykcim: Bitte vermeide Mehrfachposts (z.B. 3 Beiträge im gleichen Thema hintereinander) innerhalb von 24 Stunden sofern zwischenzeitlich niemand anderes etwas dazu geschrieben hat. Das mehrfache posten von Beiträgen hintereinander nennt man "pushen" weil durch den neuen Beitrag dein Thema auf der Portalseite nach ganz oben kommt (nach oben gepusht wird). Und das ist gegenüber anderen Nutzern die auch Hilfe haben wollen unfair. Daher gilt in unserem Forum: Pushen erst nach 24 Stunden
Wenn du innerhalb von 24 Stunden etwas ergänzen willst kannst du deinen Beitrag bearbeiten. Wenn zwischenzeitlich jemand auf das von dir geschriebene geantwortet hat ist es auch kein Problem das du wieder darauf antwortest.

[Teekeks]

Das war Zwischendurch youuu. Das war also kein Pushen...

[SirThornberry]

Schande über mich Es war wohl noch zu früh am Morgen um den Unterschied zwischen den Nicknames zu erkennen

[alfold]

Vorrausgesetzt das TCols und TRows abgeleitet sind von TArrays oder so!

Hi, wenn ich mir das so anschaue hast Du viele doppelte Aufrufe deiner Arrays und benutzt sie gar nicht.

Delphi-Quellcode:

setlength(Cols4,15);//<----???? wird speicehr belegt
Cols4:=Cols41;
setlength(Cols4,15);//<---- wird neuer belegt

Des weiteren setzt Du in vielen For schleifen Deine Arrays neu, was Du ja eigentlich nicht brauchst, da der Zähler ja bekannt ist. So kannst Du schon im Vorfeld Deine Dyn Arrays setzten und musst nicht sinnlos Dein Speicher fragmentieren!!!

Delphi-Quellcode:

setlength(Rows4, Length(Cols4), Length(Rows41[0]) );//<---- z.B.
for i := 0 to Length(Rows41[0])-1 do
   begin
       k:=k+1;
       setlength(Rows4,Length(Cols4),k);//<----währe überflüssig
       Rows4[0,k-1]:=Rows41[0,i];//<----hier brauchst Du kein k mehr sondern i dürfte auch ausreichen!?

K:=K+1 am Anfang Deiner Forschleife und dann K-1 zu machen weil Dyn Arrays mit 0 beginnen ist auch nicht sehr effektiv! Gehört also am Schluss Deiner For schleife, wenn überhaupt benötigt. So gibt es bestimmt noch mehr Stellen die man effizienter machen kann um nicht sinnlos den Speicher zu belasten!?

Gruss alfold

[Teekeks]

Zitat von alfold:

Delphi-Quellcode:

setlength(Cols4,15);//<----???? wird speicehr belegt
Cols4:=Cols41;
setlength(Cols4,15);//<---- wird neuer belegt

Genau das ist das Problem.
Wenn du ein SetLength mit exakt der gleichen Größe machst, wird einfach nur neuer Speicher reserviert und der Alte nicht freigegeben → Voilà! Unser Speicherleck!

[Ykcim]

Die eine Zeile muss auf jeden Fall raus, die hatte ich vergessen zu löschen und habe sie dann ein paar Mal kopiert... Clever.

Aber das löst mein Problem nicht. Ich habe einen Fehler gemacht, indem ich ausgerechnet die komplizierteste Procedure gepostet habe - wei dort die Auswirkungen am größten sind.

ABer ich habe das gleiche Problem auch in der nachstehenden - wesentlich übersichtlicheren - Procedure.

Auch hierbei wächst der Speicher 8 wenn auch nur in kleinen Schritten permanent an...

Delphi-Quellcode:

procedure TUebersicht.TabSheet2Show(Sender: TObject);
var Cols: TCols;
    Rows: TRows;
    query:string;
    i: integer;
begin
if (Beobachten1.Cells[0,Beobachten1.row]<>'ArtikelNr') and (Beobachten1.Cells[0,Beobachten1.row]<>'') then
  begin
    query:='select waaunr as FA_Nr, WAAUPO as FA_PO, WATENR as ArtikelNr, TEBEZ1 as Bezeichnung, '+
            'WAFEMG as FA_Menge, OAAGNR as AG, OAAGBZ as AG_Bezeichnung, OAMANR as Maschine, '+
            'OATLKZ as Fertig, REPLACE(FORMAT(OARMMG, 0),'+#39+','+#39+','+ #39+ '.'+#39+') as R_Menge, '+
            'DATE_FORMAT(OARMDA,'+#39+'%d.%m.%Y'+#39+') as R_Datum from as400 where waaunr= ' + Beobachten1.Cells[1,Beobachten1.row]+
            ' order by OAAGNR';
    MainUnit.connect;
    MainUnit.ExecQuery(DB, query, cols, Rows);
    MainUnit.disconnect;
    MainUnit.FillGrid(DetailFA, Cols, Rows);
    DetailFA.ColWidths[0]:=round(DetailFa.Width*0.057);
    DetailFA.ColWidths[1]:=round(DetailFa.Width*0.050);
    DetailFA.ColWidths[2]:=round(DetailFa.Width*0.077);
    DetailFA.ColWidths[3]:=round(DetailFa.Width*0.180);
    DetailFA.ColWidths[4]:=round(DetailFa.Width*0.087);
    DetailFA.ColWidths[5]:=round(DetailFa.Width*0.043);
    DetailFA.ColWidths[6]:=round(DetailFa.Width*0.197);
    DetailFA.ColWidths[7]:=round(DetailFa.Width*0.087);
    DetailFA.ColWidths[8]:=round(DetailFa.Width*0.045);
    DetailFA.ColWidths[9]:=round(DetailFa.Width*0.082);
    DetailFA.ColWidths[10]:=round(DetailFa.Width*0.082);
    for i := 1 to DetailFA.RowCount - 1 do
      begin
        DetailFA.Cells[4,i]:=FormatFloat('###,###,###', strtofloat(DetailFA.Cells[4,i])*1.0)
      end;
    if DetailFA.RowCount<2 then
    detailFA.RowCount:=2;
    DetailFA.FixedRows:=1;
  end
else
  begin
    showmessage('Es wurde kein Artikel in "Beobachtete FAs [Gesamt]" ausgewählt.');
    MainUnit.ClearGrid(DetailFA);
  end;
  setlength(Cols,0);
  setlength(rows,0,0);
end;

Gruß
Patrick

[alfold]

Bei mehrdimensionalen Arrays must Du explizit jede Dimension freigeben
z.B

Delphi-Quellcode:

For i:=0 to hight(meinarray[0],[0]) do
begin
   setlength(meinarray[0],[i], 0);
end

so ungefähr. Müsste selbst erst nachschauen. Steht aber in der DH so drin und im Forum findest Du bestimmt auch Hinweise!
Somit würdest Du nur die 2. Dimension freigeben und der rest bleibt bestehen.
Aber ändert nix daran, das Du trotzdem irgend wann, spätestens wenn Du Dein Programm beendest, alles freigeben musst!!
Also jede Dimension!

Gruss alfold

[Ykcim]

Das probiere ich mal aus.
Wenn ich mein Programm beende, dann wird der ganze Speicher wieder freigegeben, wie ich im Taskmanager verfolgen kann....

Gruß

Patrick

[alfold]

Zitat von Ykcim:

....Wenn ich mein Programm beende, dann wird der ganze Speicher wieder freigegeben, wie ich im Taskmanager verfolgen kann....

Stimmt so nicht! Wenn ich mich recht entsinne werden Dynamische Arrays anders behandelt,(pointer). Auch wenn Du Dein Programm beendest,(und es sieht so aus das alles Frei gegeben wird), ist der Speicher noch reserviert! Darum auch der Hinweis, beim Beenden Deines Progs alles explizit Frei zugegeben!

Gruss alfold

[Ykcim]

Das hat den gleichen Effekt wie setlength(meinArray,0,0);

Ich habe auch noch festgestellt, dass die Häfigkeit, wie oft meine For-Schleifen mit dem setlength() durchlaufen werden keine Auswirkung auf den Speicherzuwachs hat.

Ich habe deshalb einfach mal die Hälfte meiner Datensätze, die ich in die Software einlese und dann nicht weiter benötige von meinem SQL-Server geschmissen.
Ich wollte damit testen, ob der Speicher bei meiner Procedure oder schon beim Einlesen der Daten, aus dem MySQL Server heraus, geblockt wird.

Obwohl das Ergebnis meiner Suchprocedure das gleiche ist, also die setlength() Befehle genauso oft aufgerufen werden wie vorher, ist das Speicherleck auf 150kbyte runter.

Das führt mich wieder zu meiner Annahme, dass ich aus irgendeinem Grund meine Arrays nicht geleert bekomme.

Diese Annahme wird weiter gestützt durch die Tatsache, dass ich auch bei anderen Proceduren Speicherlecks habe, wo Daten quasi nur von dem MySQL Server geholt und ausgegeben werden...

Nachfolgend die Funktion, die ich für den Datentransfer nutze...

Delphi-Quellcode:

function ExecQuery(const Datenbank, query: string; var Cols: TCols; var Rows: TRows): Boolean;
var
   i: Integer;
   j: Integer;
   Startzeit1, Startzeit2, Endzeit1, Endzeit2 : cardinal;
begin
   // Datenbank auswählen
   ErrorCode := mysql_select_db(_mycon, PChar(Datenbank));
   if ErrorCode = 0 then
   begin
     // Query ausführen
     ErrorCode := mysql_real_query(_mycon, PChar(query), length(query));
     if ErrorCode <> 0 then
     begin
       ShowMessage(mysql_error(_myCon));
       Exit;
     end
     else
     begin
       // Query speichern
       MySQLRes := mysql_store_result(_mycon);
       if Assigned(MySQLRes) then
       begin
         // zurückgelieferte Anzahl der Spalten
         ColCount := mysql_num_fields(MySQLRes);
         SetLength(Cols, ColCount);
         // Spalten-Array füllen
         for i := 0 to ColCount - 1 do
         begin
           Field := mysql_fetch_field_direct(MySQLRes, i);
           Cols[i] := Field.Name;
         end;
         // Anzahl der betroffenen Zeilen ermitteln
         AffectedRows := mysql_affected_rows(_mycon);
         SetLength(Rows, ColCount, AffectedRows);
         // neu ->
         // Zeilen-array füllen
         // alle Zeilen ...
         for j := 0 to AffectedRows - 1 do
         begin
           // ... werden eingelesen
           MySQLRow := mysql_fetch_row(MySQLRes);
           // alle Spalten ...
           for i := 0 to ColCount - 1 do
           begin
             // ... werden in Rows[] übertragen
             Rows[i, j] := MySQLRow[i];

           end;
         end;
         // gespeicherte Abfrage wieder freigeben
         {mysql_free_result(MySQLRes);}
       end
     end
   end;
   result := ErrorCode = 0;
end;

Könnt Ihr mir hlefen?

Danke
Patrick