Delphi : [weak] 속성을 사용한 객체 집계 및 메모리 누출

Question

집계를 사용하여 여러 자식 객체가 포함 된 클래스 TParent을 작성하고 싶습니다. 일부 개체는 독립적이며 일부 개체는 다른 자식 개체에도 종속 될 수 있습니다. 모든 자식 객체는 부모에 대한 참조를 가져야합니다. 가능한 경우 인터페이스를 사용하고 싶습니다.

아동용 TParent 및 TAggregatedObject은 TInterfacedObject입니다. 아이와 부모 모두 서로에 대해 알고 있기 때문에 나는 약한 의존성을 피하기 위해 약한 참조를 사용하고 있습니다. 사실이 동작은 이미 TAggregatedObject에 정의되어 있습니다. 독립적 인 자식 객체 (TIndependantChild) 만 사용하면 모든 것이 잘 작동합니다.

자식 개체가 다른 자식에도 종속 될 때 문제가 발생합니다. 생성자 TDependantChild을 참조하십시오. 델파이 10 베를린에 도입 된 [weak] attibute로 표시된 fChild 변수에 다른 자식 객체에 대한 참조를 저장합니다.

는 또한 System.TMonitor.Destroy 인상으로 이어지는 위반에 액세스하지만 FastMM4가이 용도에 있으며 ReportMemoryLeaksOnShutDown이 True 인 경우에만이 문제가 발생합니다 : FastMM4가가 종료시 메모리 누수를보고합니다.

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. 

가 나는 것을 발견하여 [안전] 약한 상기 문제를 해결하지만,

그것은 ([안전])에만 시스템 유닛 외부 표기 help 델파이 따른 대신 매우 드물게 발생합니다.

따라서 여기에 [unsafe]을 사용해야한다고 확신하지 못합니다. 특히 어떤 일이 발생하는지 이해하지 못하는 경우에는 특히 그렇습니다.

그래서이 상황에서 메모리 누수가 무엇이며이를 극복하는 방법은 무엇입니까?

Answer 1

외부 FastMM4 메모리 관리자를 사용할 때의 누출 및 충돌 문제는 약한 참조를 추적하는 데 사용되는 내부 HashMap의 마무리와 관련된 다음 문제와 관련이 있습니다.

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

그 문제에 델파이 10.1 이상 버전 및 외부 FastMM4가 포함에 누수 탐지를위한 타사 메모리 관리자를 사용하는 것은 불가능 인해.

이유는 [weak] 속성에 문제가있어서 [unsafe]에 문제가없는 것입니다. 위의 시나리오에서

---

지금까지 코드에 관한 한, 안전하게 사용할 수 있습니다 [unsafe] . 문서에 [unsafe] 특성 사용에 대한 경고가 있지만이 경고는 실제로 [unsafe]을 사용하면 안되는 이유를 설명하지 못합니다.

[unsafe] 참조로 참조 된 개체 인스턴스의 수명이 참조 자체의 수명보다 긴 경우 긴 이야기를 짧게 나타내려면 [unsafe] 특성을 사용할 수 있습니다.

다른 말로하면, 가리키는 객체 인스턴스가 해제 된 이후에 [unsafe] 참조에 액세스하지 않았는지 확인해야합니다.

[unsafe] 참조가 참조되는 개체가 소멸되지 않을 때 참조가 삭제되고 해당 참조가 개체가 사라진 후에 사용하면 액세스 위반 예외가 발생합니다.

[weak] 속성을 [unsafe]으로 바꾸는 것은 제시 한대로 제대로 작동하는 코드를 사용하기 위해해야 ​​할 일입니다.

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