.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();
: }
:
: |