7z sdk 压缩和解压ZIP文件
有人用unit sevenzip; 来解压缩文件吗?
procedure TFormMain.btnCompressClick(Sender: TObject);
var
Arch: I7zOutArchive;
Counter: Integer;
begin
if OpenDialog.Files.Count = 0 then
begin
ShowMessage('请添加文件');
Exit;
end;
memoOutput.Lines.Append('开始压缩');
Arch := CreateOutArchive(CLSID_CFormat7z);//这里用7Z格式,没有问题,但是换成CLSID_CFormatZIP格式。只
能操作一个文件,如果同时添加多个文件,在调用 Arch.SaveToFile('.\test.zip')时候就人卡死。
Arch.SetProgressCallback(nil, ProgressCallback);
Arch.SetPassword('123456');
for Counter := 0 to OpenDialog.Files.Count - 1 do
Arch.AddFile(OpenDialog.Files[Counter],
ExtractFileName(OpenDialog.Files[Counter]));
SetCompressionLevel(Arch, 5);
SetCompressionMethod(Arch, m7Deflate64);
Arch.SaveToFile('.\test.ZIP');
memoOutput.Lines.Append('完成压缩');
Arch := nil;
end;