Có cách nào để biết theo chương trình nếu khối bộ nhớ cụ thể không được giải phóng bằng FastMM?

Tôi đang cố gắng phát hiện xem một khối bộ nhớ chưa được giải phóng. Tất nhiên, người quản lý cho tôi biết điều đó bằng hộp thoại hoặc tệp nhật ký, nhưng nếu tôi muốn lưu trữ kết quả trong cơ sở dữ liệu thì sao? Ví dụ, tôi muốn có trong một bảng cơ sở dữ liệu tên của các quy trình đã phân bổ các khối đã cho.

Sau khi đọc tài liệu về FastMM, tôi biết rằng kể từ phiên bản 4.98, chúng tôi có khả năng được người quản lý thông báo về việc cấp phát bộ nhớ, giải phóng và phân bổ lại khi chúng xảy ra. Ví dụ OnDebugFreeMemFinishsự kiện đang chuyển cho chúng tôi một sự PFullDebugBlockHeaderkiện chứa thông tin hữu ích. Có một thứ PFullDebugBlockHeadercòn thiếu - thông tin nếu khối đã cho đã được giải phóng bởi ứng dụng.

Trừ khi OnDebugFreeMemFinishđược gọi chỉ cho các khối không được giải phóng? Đây là điều mà tôi không biết và muốn tìm hiểu.

Vấn đề là ngay cả khi kết nối với OnDebugFreeMemFinishsự kiện, tôi cũng không thể tìm hiểu xem liệu khối có được giải phóng hay không.

Đây là một ví dụ:

program MemLeakTest;

{$APPTYPE CONSOLE}

uses
  FastMM4, ExceptionLog, SysUtils;


procedure MemFreeEvent(APHeaderFreedBlock: PFullDebugBlockHeader; AResult: Integer);
begin
//This is executed at the end, but how should I know that this block should be freed
//by application? Unless this is executed ONLY for not freed blocks.
end;

procedure Leak;
var
  MyObject: TObject;
begin
  MyObject := TObject.Create;
end;

begin
  OnDebugFreeMemFinish := MemFreeEvent;
  Leak;
end.

Những gì tôi đang thiếu là gọi lại như:

procedure OnMemoryLeak(APointer: PFullDebugBlockHeader);

Sau khi duyệt qua nguồn của FastMM, tôi thấy rằng có một quy trình:

procedure LogMemoryLeakOrAllocatedBlock(APointer: PFullDebugBlockHeader; IsALeak: Boolean);

có thể bị ghi đè, nhưng có thể có một cách dễ dàng hơn?

Ngay cả khi trình xử lý như vậy tồn tại, nó sẽ gần như vô dụng, vì mọi thứ, bao gồm cả DB sẽ ngừng hoạt động vào thời điểm báo cáo FastMM bị rò rỉ.

Vì vậy, tôi khuyên bạn nên bật LogErrorsToFilecùng với các FullDebugModeđiều kiện trong FastMM4Options.inc. Điều này sẽ cung cấp cho bạn một tệp văn bản có rò rỉ, sau này bạn có thể phân tích cú pháp và đưa vào DB.