안녕하세요

SP를 통해 Data의 Insert를 진행할려고 합니다.

다음의 코드를 실행하면 문제 없이 실행되는데

프로그램과 fbserver.exe의 메모리가 점점 증가 되는 현상(누수)이 벌어 짐니다.

이문제로 몇일째 방법을 찾고 있는데 딱히 해결책이 보이지 습니다. ㅜㅜ

-----------------
사용 SP
-----------------
CREATE OR   ALTER PROCEDURE INSERT_RAIN_PERCEIVE (
   S_DATETIME      TIMESTAMP)        /* 측정시간   */
AS
BEGIN
   INSERT INTO RAIN_PERCEIVE_RAW ( RAIN_PERCEIVE_START, RAIN_PERCEIVE_END)
   VALUES ( :S_DATETIME, NULL);
END

----------------
delphi code
----------------
procedure TFDataModule.SP_Insert_RainPerceive(DT: TDateTime);
var
ZSp: TZStoredProc;
sTmp: String;
begin
if FDBCon = nil then
begin
   WriteLog('    Err: SP_Insert_RainPerceive, Connection 객체가 생성되지 않았습니다.');
   Exit;
end;

FDBCon.StartTransaction;
ZSp := TZStoredProc.Create(nil);
ZSp.Connection := FDBCon;

try
   ZSp.StoredProcName := 'INSERT_RAIN_PERCEIVE';
   ZSp.Params.Clear;

   ZSp.Params.CreateParam(ftDateTime,  'S_DATETIME', ptInput).Value := Dt;

   try
     ZSp.ExecProc;                 
     ZSp.Active := TRUE;            // 이부분 제거시 insert는 이루어지는데 메모리가 계속 증가됩니다.

     FDBCon.Commit;
   except
     on E: Exception do begin
       sTmp := E.Message;
       WriteLog('    Err: INSERT_RAIN_PERCEIVE' + sTmp);
       FDBCon.Rollback;
     end;
   end;
finally
   ZSp.Active := FALSE;          //
   ZSp.Destroy;
end;

end;