전에 DB에 Exe 실행파일을 저장 하는데..계속 늘어나서...아래처럼 수정 했더니 안늘어 나서 좋아 했었는데..ㅎㅎ
이번에는 DB파일을 두개로 분리 했습니다. 한개는 일반 Text 저장 DB..
한개는 exe 파일 저장 디비...
요 Exe 저장 DB가 문제군요...저장되는 실행팔일(exe)가 3개인데요.. 합해서 약 20메가 됩니다.
1.백업,리스토어 한 DB크기 24,576kb
2.아래 소스로 업데이트(exe 세개) --> DB크기 31,952
3.아래 소스로 두번째 업데이트 --> DB크기 38,672
4.아래 소스로 세번 째 업데이트 --> 디비크기 변화 없음...
5.아래 소스로 네번 째 업데이트 --> 디비크기 변화 없음..
음...2,3번에서는 왜 커질까요?
다시 디비 백업,리스토어 하면 디비크기는 1번과 같습니다.
그리곤 다시 ..2,3,4,5 반복이네요..
TmpStream := TmemoryStream.Create;
TmpStream.LoadFromFile('C:\Program\'+prnm+'.exe');
TmpStream.Position := 0;
with DataMd.SQLadceser do begin
close;
sql.clear;
sql.add('update ADCESER_DOWN set ');
sql.add(' ad_indt = :p_indt,ad_prog = :p_prog ');
sql.add('where ad_prnm = '''+prnm+''' ');
parambyname('p_indt').asstring := DateTimeTostr(Now);
parambyname('p_prog').size := TmpStream.Size;
parambyname('p_prog').LoadFromStream(TmpStream,ftBlob);
Execsql;
end;
|