감사합니다. 많은 도움이 되었습니다. 경험자가 제공하는 방향성이 제일 중요하니까요~
대충 기능하나 추가하려던건데 이거 이거 하다보니 저도 모르게 깊숙히 하고있네요 ㅡㅡ;
기왕 시작한거 System.Zip.hpp를 파봐야겠네요


civilian 님이 쓰신 글 :
: .zip 파일과는 다릅니다. 파일 하나를 압축한 것이지요.
: ZIP과 호환되게 만드려면 System.Zip 유닛을 사용하세요
:
: memi 님이 쓰신 글 :
: : XE4 기준 헬프파일에 있는 ZLib관련 예제를 보고 zip파일을 생성했는데 알집,기본압축프로그램에서 열리지가 않네요
: : 혹시 표준압축을 위한 옵션이 따로 있나요? 압축용량은 기본집프로그램이랑 비슷한듯합니다만..
: : 그리고 생성자가 예제에는
: : TZCompressionStream(output, zcDefault); <- 이렇게 되어있지만.. XE4에서 안됨..
: : 이유는 Find Declation으로 들어가보면..
: : __fastcall TZCompressionStream(System::Classes::TStream* dest, TZCompressionLevel compressionLevel, int windowBits)
: : int windowBits <--라는 놈이 아마도 XE4에서 생긴듯..
: :
: :
: : 예제:
: :

: : void __fastcall TForm1::btnCompressClick(TObject *Sender)
: : {
: :    /* Create the Input, Output and Compressed streams. */
: :    TFileStream *input = new TFileStream(Edit1->Text, fmOpenRead);
: :    TFileStream *output = new TFileStream(Edit2->Text + ".zip", fmCreate);
: :    TZCompressionStream *zip = new TZCompressionStream(output);//그냥 옵션없이 해봄, zcDefault); 
: :  
: :    /* Compress data. */
: :    zip->CopyFrom(input, input->Size);
: :  
: :    /* Free the streams. */
: :    zip->Free();
: :    input->Free();
: :    output->Free();
: : }
: :  
: :