TZCompressionStream使用问题。

[cxxer]

 

---

---

 

 

 

 

 

void __fastcall TfrmMain::btnCompressClick(TObject *Sender)
{
	TFileStream *input = new TFileStream(Edit1->Text, fmOpenRead);
	TFileStream *output = new TFileStream(Edit2->Text + ".zip", fmCreate);
	TZCompressionStream *zip = new TZCompressionStream(output, zcDefault);

	zip->CopyFrom(input, input->Size);

	zip->Free();
	input->Free();
	output->Free();
}
//---------------------------------------------------------------------------
void __fastcall TfrmMain::btnDecompressClick(TObject *Sender)
{
	TFileStream *input = new TFileStream(Edit1->Text, fmOpenRead);
	TFileStream *output = new TFileStream(ChangeFileExt(Edit1->Text, ""), fmCreate);
	TZDecompressionStream *unzip = new TZDecompressionStream(input);

	output->CopyFrom(unzip, 0);

	unzip->Free();
	input->Free();
	output->Free();
}
//---------------------------------------------------------------------------
void __fastcall TfrmMain::Button1Click(TObject *Sender)
{
	if (OpenDialog1->Execute()) {
		Edit1->Text = OpenDialog1->FileName;
	}
}

[bcc32c Error] UnitZLibCompressDecompress.cpp(21): no matching constructor for initialization of 'System::Zlib::TZCompressionStream'
  System.ZLib.hpp(154): candidate constructor not viable: no known conversion from 'System::Classes::TFileStream *' to 'System::Zlib::TCompressionLevel' for 1st argument
  System.ZLib.hpp(152): candidate constructor not viable: requires single argument 'dest', but 2 arguments were provided
  System.ZLib.hpp(153): candidate constructor not viable: requires 3 arguments, but 2 were provided

[ooolinux]

构造函数参数不对。

[日立奔腾浪潮微软松下联想]

TZCompressionStream的构造函数有1、2、3个参数三种重载，用两个参数的可以：
TZCompressionStream *zip = new TZCompressionStream(zcDefault, output);

[cxxer]

```c++
class PASCALIMPLEMENTATION TZCompressionStream : public TCustomZStream
{
    typedef TCustomZStream inherited;
    
private:
    float __fastcall GetCompressionRate();
    
public:
    __fastcall TZCompressionStream(System::Classes::TStream* dest)/* overload */;
    __fastcall TZCompressionStream(System::Classes::TStream* dest, TZCompressionLevel compressionLevel, int windowBits)/* overload */;
    __fastcall TZCompressionStream(TCompressionLevel compressionLevel, System::Classes::TStream* dest)/* overload */;
    __fastcall virtual ~TZCompressionStream();
...
};

TZCompressionStream *zip = new TZCompressionStream(output,zcDefault,64);

```