Delphi: Kết hợp đối tượng và rò rỉ bộ nhớ bằng thuộc tính [yếu]

Question

Tôi muốn tạo một lớp TParent chứa một số đối tượng con bằng cách sử dụng tập hợp. Một số đối tượng là độc lập, trong khi một số có thể cũng phụ thuộc vào các trẻ khác. Tất cả các đối tượng trẻ em phải có một tham chiếu đến phụ huynh. Tôi cũng muốn sử dụng các giao diện nếu có thể.

Vì mục đích này, tôi đang sử dụng TInterfacedObject cho TParent và TAggregatedObject cho trẻ em. Vì cả hai đứa trẻ và cha mẹ đều biết về nhau, tôi sử dụng các tham chiếu yếu để tránh sự phụ thuộc vào circuar. Thực tế, hành vi này đã được xác định trong TAggregatedObject. Mọi thứ hoạt động tốt khi tôi chỉ sử dụng các đối tượng con độc lập (TIndependantChild).

Sự cố phát sinh khi đối tượng con cũng phụ thuộc vào các trẻ khác, xem hàm tạo của TDependantChild. Tôi lưu trữ các tham chiếu đến một đối tượng con khác trong biến fChild, được đánh dấu bằng attibute [weak], được giới thiệu trong Delphi 10 Berlin. FastMM4 báo cáo rò rỉ bộ nhớ trên shutdown:

Ngoài truy cập vi phạm dẫn đến System.TMonitor.Destroy tăng lương, nhưng điều này chỉ xảy ra khi FastMM4 là trong việc sử dụng và ReportMemoryLeaksOnShutDown là True.

program Project1; 

{$APPTYPE CONSOLE} 

uses 
    FastMM4, 
    System.SysUtils; 

type 
    IParent = interface 
    ['{B11AF925-C62A-4998-855B-268937EF30FB}'] 
    end; 

    IChild = interface 
    ['{15C19A4E-3FF2-4639-8957-F28F0F44F8B4}'] 
    end; 

    TIndependantChild = class(TAggregatedObject, IChild) 
    end; 

    TDependantChild = class(TAggregatedObject, IChild) 
    private 
    [weak] fChild: IChild; 
    public 
    constructor Create(const Controller: IInterface; const AChild: IChild); reintroduce; 
    end; 

    TParent = class(TInterfacedObject, IParent) 
    private 
    fIndependantChild: TIndependantChild; 
    fDependantChild: TDependantChild; 
    public 
    constructor Create; 
    destructor Destroy; override; 
    end; 

{ TParent } 

constructor TParent.Create; 
begin 
    fIndependantChild := TIndependantChild.Create(Self); 
    fDependantChild := TDependantChild.Create(Self, fIndependantChild); 
end; 

destructor TParent.Destroy; 
begin 
    fDependantChild.Free; 
    fIndependantChild.Free; 
    inherited; 
end; 

{ TDependantChild } 

constructor TDependantChild.Create(const Controller: IInterface; const AChild: IChild); 
begin 
    inherited Create(Controller); 
    fChild := AChild; 
end; 

var 
    Owner: IParent; 

begin 
    ReportMemoryLeaksOnShutDown := True; 
    Owner := TParent.Create; 
    Owner := nil; 
end. 

tôi thấy, rằng việc sử dụng [an toàn] thay vì [yếu] giải quyết vấn đề, nhưng theo delphi help

Nó ([an toàn]) nên chỉ được sử dụng bên ngoài đơn vị hệ thống trong những tình huống rất hiếm.

Vì vậy, tôi không tin, tôi nên sử dụng [unsafe] tại đây, đặc biệt là khi tôi không hiểu điều gì xảy ra.

Vì vậy, những gì là những người trấn an các rò rỉ bộ nhớ trong tình huống này và cách khắc phục chúng?

Answer 1

Vấn đề với rò rỉ và sự cố khi bạn sử dụng trình quản lý bộ nhớ FastMM4 bên ngoài có liên quan đến vấn đề sau liên quan đến việc hoàn tất HashMap nội bộ được sử dụng để theo dõi các tham chiếu yếu.

[REGRESSION XE2/10.1 Berlin] Unable to use 3rd party memory managers

Do vấn đề mà nó là không thể sử dụng quản lý bộ nhớ bên thứ 3 để phát hiện rò rỉ trong Delphi 10.1 và các phiên bản mới hơn, và bao gồm FastMM4 bên ngoài.

Đó là lý do tại sao bạn gặp sự cố với thuộc tính [weak] và bạn không gặp sự cố với [unsafe].

---

Theo như mã của bạn, bạn có thể sử dụng an toàn [unsafe] trong trường hợp trên. Trong khi có cảnh báo trong tài liệu về cách sử dụng thuộc tính [unsafe], cảnh báo đó thực sự không giải thích tại sao [unsafe] không nên được sử dụng.

Để tạo truyện ngắn, bạn có thể sử dụng thuộc tính [unsafe] khi thời lượng của đối tượng được tham chiếu bởi tham chiếu [unsafe] dài hơn thời gian tồn tại của tham chiếu.

Nói cách khác, bạn phải đảm bảo rằng bạn không truy cập vào tài liệu tham khảo [unsafe] sau khi đối tượng mà đối tượng trỏ đến đã được phát hành và đó là tất cả. Các tham chiếu

[unsafe] không được lấy ra khi đối tượng mà chúng trỏ đến bị hủy và sử dụng tham chiếu sau khi đối tượng đã biến mất sẽ dẫn đến ngoại lệ vi phạm truy cập.

Thay thế thuộc tính [weak] bằng [unsafe] là tất cả những gì bạn phải làm để có mã chức năng đúng như bạn đã trình bày.

TDependantChild = class(TAggregatedObject, IChild) 
    private 
    [unsafe] fChild: IChild;