TJSONObject 복잡한 json 개체 누수 개체

Question

Delphi Xe5와 함께 idHTTPserver를 사용하여 중소 기업 환경에서 REST API 서비스를 로컬로 제공하려고합니다. 클라이언트에 파일을 보내기 전에 파일을 처리하기 전에이 시점에서 문제가 발생합니다. 메모리는 프로세스가 완료된 후에 해제되지 않습니다.
생성 된 JSON 객체가 클라이언트에게 올바르게 전송되었습니다. (AngularJS App)

내가 뭘 잘못하고 있니? 나는 HTTP 클라이언트 요청을 수신 할 때

나는 당신은 결코 TORDEN 변수, 따라서 메모리 누수를 해제하지 않습니다

Procedure TMain.IdHTTPServer1CommandGet(AContext: TIdContext; 
ARequestInfo: TIdHTTPRequestInfo; AResponseInfo: TIdHTTPResponseInfo); 
Var 
    // Here Var Types 

    Json,LFilename:String; 
    ROOTCOMANDAS,TORDEN,DATA,MSG : TJSONObject; 
    Dlnew,d : TJSONArray 
    files:tfilestream; 

Begin 

LFilename := ARequestInfo.Document; 

if AnsiSameText(LFilename, '/resto/orders/jsondata') then 
begin 
    files := TFileStream.Create('htd' + LFilename, fmOpenRead + fmShareDenyWrite); 
    Json := ReadStringFromStream(files); 
    files.Free; 
    ROOTCOMANDAS := TJSONOBJECT.ParseJSONValue(TEncoding.ASCII.GetBytes(Json), 0) as TJSONOBJECT; 
    try 
    Data := ROOTCOMANDAS.Get('data').JSONValue as TJSONOBJECT; 
    d := Data.Get('d').JSONValue as TJSONArray; 
    dlnew := TJSONArray.Create; 

    for LValue in d do 
     if (LValue as TJSONOBJECT).GetValue('ss').Value = '0' then 
     dlnew.AddElement(LValue); 

    TORDEN := TJSONOBJECT.Create; 

    Msg := TJSONOBJECT.Create; 
    Msg.AddPair(TJSONPair.Create('t', TJSONString.Create('m5000_325'))); 
    Msg.AddPair(TJSONPair.Create('tipo', TJSONNumber.Create(5))); 

    TORDEN.AddPair(TJSONPair.Create('msg', Msg)); 

    Msg := TJSONOBJECT.Create; 

    Msg.AddPair(TJSONPair.Create('et', TJSONString.Create(ETAGL))); 
    Msg.AddPair(TJSONPair.Create('d', dlnew)); 

    TORDEN.AddPair(TJSONPair.Create('data', Msg)); 
    TORDEN.AddPair(TJSONPair.Create('ok', TJSONTrue.Create)); 
    TORDEN.AddPair(TJSONPair.Create('md', TJSONNumber.Create(iFD))); 
    TORDEN.AddPair(TJSONPair.Create('time', TJSONString.Create(UTC))); 

    Json := TORDEN.ToString; 

    AResponseInfo.CacheControl := 'no-cache'; 
    AResponseInfo.CustomHeaders.Values['Access-Control-Allow-Headers'] := 'Content-Type'; 
    AResponseInfo.CustomHeaders.Values['Access-Control-Allow-methods'] := 'GET,POST,OPTIONS'; 
    AResponseInfo.CustomHeaders.Values['Access-Control-Allow-origin'] := '*'; 
    AResponseInfo.CharSet := 'utf-8'; 
    AResponseInfo.Pragma := 'Public'; 
    AResponseInfo.Server := 'Drone'; 
    AResponseInfo.ContentText := Json; 
    finally 
    ROOTCOMANDAS.Free; 
    end; 

    exit; 
end; 

Answer 1

.. 이렇게, 당신은에 따라이 발생 해제하려고 할 때 당신이 얻을 오류 라인 :

for LValue in d do 
    if (LValue as TJSONOBJECT).GetValue('ss').Value = '0' then 
    dlnew.AddElement(LValue); 

LValue가 d에 의해 소유되고 해제 될 때 d 발표 될 예정이다, 당신은 dlnew에 LValue를 추가하는 것입니다 또한 그것을 공개하고 싶습니다. 두 개체가 동일한 포함 된 개체를 소유하고 릴리스하기 때문에 여기에서 소유권 문제가 발생합니다.

문제를 해결하기 위해 변화를 다음보십시오 :

for LValue in d do 
    if (LValue as TJSONOBJECT).GetValue('ss').Value = '0' then 
    begin 
     dlnew.AddElement(LValue); 
     // here you are saying that you don't want to release object when ROOTCOMANDAS is released 
     LValue.Owned := false; 
    end; 
// release ROOTCOMANDAS and d along with it 
ROOTCOMANDAS.Free; 
// Set back owned property to true so you don't leak objects 
for LVaue in dlnew do 
    LValue.Owned := true; 
... 
    Json := TORDEN.ToString; 
    TORDEN.Free; 

... remove superfluous ROOTCOMANDAS.Free; in finally part