else if (FN = 'getPet') then begin Ctxt.OutContent := StringToUTF8(DM.getPet(UTF8DecodeToUnicodeString(Ctxt.InContent),FN).ToString); Ctxt.OutContentType := JSON_CONTENT_TYPE; result := 200; end

현재 소스는 다음과같이 DM(TDataModule) 쪽에서 각 api별 function으로 되어있고 Main의 process 에서 주소를 파싱하여 해당 펑션의 result값을 TJSONObject형식으로 받게 되어있습니다. 문제는 각 api의 호출마다 메모리량이 일정수준씩 계속 증가만되고 free가 안되는거 같습니다 DM쪽에서 TJSONObject와 TJSONARRAY 혹은 TJSONBOOL이나 NUMBER와 같은 객체를 create하고 따로 free는 하지않습니다. 해도 에러납니다. result로 response값을 보내고

objFind := TJSONObject.Create; (소스) result.addpair(objfind); objfind.Owned := True;

Owned를 True로 해도 메모리는 여전히 줄어들지 않습니다. 혹시 어떻게 해야될까요 ㅠ