Belleği serbest bırakmak için neden FreeMem/Dispose yordamlarını kullanıyorsunuz, ancak bellek azalmıyor?

Question

Belleği ayırmak için AllocMem/GetMem/New rutinlerini kullanıyorum, ardından belleği serbest bırakmak için FreeMem/Dispose rutinlerini kullanın. Ancak (Process Explorer tarafından) işlemin bellek boyutunun azaltılmadığını buldum.

GlobalAllocPtr/HeapAlloc ve GlobalFreePtr/HeapFree API'lerini kullanırsam, bellek boyutu azalır.

type 
    TMyRec = record 
    Name: string; 
    TickCount: Cardinal; 
    Buf: array[0..1024 - 1] of byte; 
    end; 
    PMyRec = ^TMyRec; 

var 
    Form1: TForm1; 

implementation 

{$R *.dfm} 

procedure TForm1.FormDestroy(Sender: TObject); 
begin 
    FList.Free; 
end; 

procedure TForm1.FormCreate(Sender: TObject); 
begin 
    FList := TList.Create; 
    ReportMemoryLeaksOnShutdown := true; 
end; 

procedure TForm1.Button1Click(Sender: TObject); 
var 
    i: Integer; 
    Size: Integer; 
    Rec: PMyRec; 
    Heap: Cardinal; 
begin 
    Size := SizeOf(TMyRec); 
    Heap := GetProcessHeap; 
    for I := 0 to 2000 - 1 do 
    begin 
    Rec := AllocMem(Size);        // Delphi routine 
    //GetMem(Rec, Size);        // Delphi routine 
    //New(Rec);           // Delphi routine 

    //Rec := GlobalAllocPtr(GPTR, Size);    // Windows API 
    //Rec := HeapAlloc(Heap, HEAP_ZERO_MEMORY, Size); // Windows API 
    FList.Add(Rec); 
    end; 
end; 

procedure TForm1.Button2Click(Sender: TObject); 
var 
    i: Integer; 
    Size: Integer; 
    Rec: PMyRec; 
    Heap: Cardinal; 
begin 
    Size := SizeOf(TMyRec); 
    Heap := GetProcessHeap; 
    for i := FList.Count - 1 downto 0 do 
    begin 
    Rec := PMyRec(FList.Items[i]); 
    FreeMem(Rec, Size);   // Delphi routine 
    //Dispose(Rec);    // Delphi routine 

    //GlobalFreePtr(Rec);   // Windows API 
    //HeapFree(Heap, 0, Rec);  // Windows API 
    end; 
    FList.Clear; 
end; 

Answer 1

Delphi bellek yöneticisinin işleyiş şekli budur - her bir boş belleğin sisteme geri dönmemesi için ön bellek önbelleğinde tuttuğu kendi bellek önbelleğini destekler. Bir dahaki sefere sistemde değil, önbellekte istenen belleği bulmak için ilk önce denediği bir bellek ayırır. Bu bellek ayırma/ayrılma işlemini daha hızlı yapar.

BTW, ömür boyu yönetilen alanlar (örneğinizde olduğu gibi eski dizeler) içeren kayıtlar için asla FreeMem'u kullanmaz - bellek sızıntılarına neden olur. Bunun yerine Dispose kullanın.

Ayrıca, ömür boyu yönetilen alanlar (örneğinizde yorumlanmış satır) içeren kayıtlar için hiçbir zaman GetMem'u kullanmayın - bu, ihlallere erişim sağlar. New kullanın.

Answer 2

Sen FreeMem işlevine Boyut belirtmemelidir:

İşte benim test kodudur. Sadece bir parametre alır - işaretçi. Aksi takdirde kodunuz iyi görünüyor. Sadece merak ediyorum - neden yeni ve silme/kullanma yerine malloc ve ücretsiz kullanıyorsunuz? Veya GetMem ve FreeMem.

Answer 3

Bunu görüyorsunuz, çünkü Windows'dan bellek almak pahalı bir işlemdir, bu yüzden Delphi'nin yerleşik bellek yöneticisini kullandığınızda, belirli bir miktar kullanılmayan bellek önbelleğe alır, çünkü yakında başka bir şey için tekrar ihtiyacınız olabilir .

Çok fazla bellek boşalttığınızda büyük olasılıkla işletim sistemine geri döndüğünü görürsünüz, ancak bazılarını hala yerel olarak tutar, bu nedenle daha fazla sormak zorunda kalmazsınız.

Answer 4

Delphi bellek yöneticisi, belleği sayfalara ayırır/boşaltır.