Hilfestellung zu meinem Speicherleck

[nuclearping]

Wenn du noch Debugging Informationen in das Programm linkst (Projekt-Einstellungen), kannst du den Stack Trace sehen und damit auch, wo die TStringList(en) angelegt werden. Aber SO werden auch wir daraus nicht schlau.

[delphinub23]

Laut Projekt-Einstellungen sind dieses bereits aktiviert?!


EDIT: Achso, habs gefunden. Sorry

[delphinub23]

Hier die verbesserte Log-Datei (nur ein Ausschnitt der TStringList):

Code:

--------------------------------2011/5/9 19:14:08--------------------------------
A memory block has been leaked. The size is: 84

This block was allocated by thread 0x1288, and the stack trace (return addresses) at the time was:
4043E2 [System.pas][System][@GetMem][2979]
404FC3 [System.pas][System][TObject.NewInstance][9433]
40555A [System.pas][System][@ClassCreate][10277]
43B692 [Classes.pas][Classes][TStringList.Create][5788]
75821438 [CloseHandle]
4E4AE0 [..\Source\ProcessHandler.pas][ProcessHandler][TProcessHandler.GetAllRunningProcs][278]
4E4A5D [..\Source\ProcessHandler.pas][ProcessHandler][TProcessHandler.SetGlobalProcessesAffinity][262]
4EF242 [..\Source\FmMulticorerModule.pas][FmMulticorerModule][TFmMainModule.FormCreate][206]
41E25E [SysUtils][TThreadLocalCounter.Open]
4D77C3 [Forms.pas][Forms][TCustomForm.DoCreate][3319]
4D73FF [Forms.pas][Forms][TCustomForm.AfterConstruction][3203]

The block is currently used for an object of class: TStringList

The allocation number is: 9385

Current memory dump of 256 bytes starting at pointer address 7EF8B4A0:
20 F8 42 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 D0 28 E0 7E
36 00 00 00 3C 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00
00 00 00 00 00 00 00 00 00 00 00 00 B9 D4 5D 05 80 80 80 80 80 80 80 80 00 00 00 00 E0 4B F8 7E
00 00 00 00 00 00 00 00 D0 E9 40 00 00 00 00 00 DB 24 00 00 E2 43 40 00 C7 74 40 00 04 6C 40 00
5E 4B 4E 00 5D 4A 4E 00 42 F2 4E 00 5E E2 41 00 C3 77 4D 00 FF 73 4D 00 C8 55 40 00 D4 73 4D 00
88 12 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00
00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 4E 00 00 00 00 00 00 00 E7 1A 51 82
B0 04 02 00 01 00 00 00 20 00 00 00 46 00 6C 00 61 00 73 00 68 00 55 00 74 00 69 00 6C 00 36 00
   ø  B  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .  Ð  (  à  ~
6  .  .  .  <  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .
.  .  .  .  .  .  .  .  .  .  .  .  ¹  Ô  ]  .  &#8364;  &#8364;  &#8364;  &#8364;  &#8364;  &#8364;  &#8364;  &#8364;  .  .  .  .  à  K  ø  ~
.  .  .  .  .  .  .  .  Ð  é  @  .  .  .  .  .  Û  $  .  .  â  C  @  .  Ç  t  @  .  .  l  @  .
^  K  N  .  ]  J  N  .  B  ò  N  .  ^  â  A  .  Ã  w  M  .  ÿ  s  M  .  È  U  @  .  Ô  s  M  .
&#710;  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .
.  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .  N  .  .  .  .  .  .  .  ç  .  Q  &#8218;
°  .  .  .  .  .  .  .     .  .  .  F  .  l  .  a  .  s  .  h  .  U  .  t  .  i  .  l  .  6  .

EDIT:

Ich glaube das Problem bezieht sich auf meine Funktion in der ich die Prozesse auslese und ich eine TStringList speicher...

Delphi-Quellcode:

function TProcessHandler.GetAllRunningProcs: TStringList;
// returns all currently running processes
var
  s: string;
  sl: TStringList;
  User: string;
begin
  Result := nil;
//  User := GetEnvironmentVariable('USERNAME');
  sl := TStringList.Create;
  try
    hProcSnap := CreateToolhelp32Snapshot(TH32CS_SNAPPROCESS, 0);
    if (hProcSnap <> INVALID_HANDLE_VALUE) then
    begin
      pe32.dwSize := SizeOf(ProcessEntry32);
      if (Process32First(hProcSnap, pe32)) then
      begin
        s := pe32.szExeFile;
//        if GetUsernameByExeName(s) = User then
          sl.Add(s);
        while Process32Next(hProcSnap, pe32) do
        begin
          s := pe32.szExeFile;
//          if GetUsernameByExeName(s) = User then
            sl.Add(s);
        end;
      end;
      Result := sl;
    end;
    CloseHandle(hProcSnap);
  finally
    sl := nil;
    sl.Free;
  end;
end;

Bin ich auf dem richtigen Weg?

[DeddyH]

Es scheint, dass Du immer wieder Stringlisten anlegst, ohne diese wieder freizugeben.

[alfold]

Zitat:

in meinem Projekt arbeitet ich mit einem array aus TStringLists, welche ihren Inhalt aus verschiedenen Funktionen - Timer 3 sek Intervall - zugewiesen bekommen.

Das ist nun mal normal, wenn man alle 3 sek neue Strings hinzufügt. Kommt auch auf die länge an.

Was erwartest Du also, das der Speicher leer bleibt?
Frage: Was soll es bezwecken alle 3sec was in eine stringliste zu schreiben?

Evtl erzeugst Du auch jedesmal Neue Stringlisten usw.
Solltest evtl mal die Routinen posten die Du erstellt hast.

Gruss aldold

[DeddyH]

Zitat:

Delphi-Quellcode:

  finally
    sl := nil;
    sl.Free;
  end;

Überleg einmal, was Du hier machst. Selbst, wenn Du es umdrehst, bekommst Du Kummer, da ja dann Result freigegeben wurde. Mach besser aus der Funktion eine Prozedur, die die Stringliste als Parameter entgegennimmt und befüllt.

[delphinub23]

Das ist meine Routine, die die TStringlists (Global definiert und einmal Form.Create angelegt -- Form.Destroy zerstört diese auch wieder) benötigt.

Delphi-Quellcode:

procedure TFmMainModule.InitializeListview(const Processes: TStrings; const PIDs: TStrings; const Affinities: TStrings);
var
  Index: integer;
  i: Integer;
begin
  try
    lvProcessList.Items.BeginUpdate;
    try
      lvProcessList.Clear;
      ImageList.Clear;
      // reset TImageList index value
      Index := 0;

      // get processes
      ProcessInformation[0] := Processes;
      // pids
      ProcessInformation[1] := PIDs;
      // affinities
      ProcessInformation[2] := Affinities;
      // icons
      for i := 0 to Pred(ProcessInformation[0].Count) do
      begin
        SetExeIconToImageList(Imagelist, Index, StrToInt(PIDs.Strings[i]));
        Inc(Index);
      end;
    finally
      lvProcessList.Items.Count := ProcessInformation[0].Count;
      lvProcessList.AlphaSort;
      lvProcessList.Items.EndUpdate;
    end;
  except
    MessageDlg('Could not initialize application!', mtError, [mbOk], 0);
    Application.Terminate;
  end;
end;

@ DeddyH:

Zitat:

Zitat:

Delphi-Quellcode:

   finally
     sl := nil;
     sl.Free;
   end;

Wenn ich nur .Free rufe, dann bekomme ich eine Exception. Darum diese komische Variante

[DeddyH]

Und was hat das mit der oben geposteten Routine zu tun?

[delphinub23]

Na die obere Routine besorgt die Prozesse als TStringList. Die übergebe ich dann an eine weitere Funktion, die die Prozesse filtert (UserName).

Das Resultat übergebe ich dann an die zuletzt gepostete Routine.


Wieso verbraucht meine Applikation immer mehr Speicher?

[DeddyH]

Nochmal: GetAllRunningProcs erzeugt je Aufruf eine neue Instanz von TStringlist. Ich sehe aber nicht, wo diese wieder freigegeben wird. Daher mein Rat, die Liste außerhalb zu erzeugen und an die Routine zu übergeben, dann kannst Du sie auch wieder freigeben, da Du es nur mit einer Instanz zu tun hast.