delphi - 使用 JclCompression 压缩文件

Question

我正在尝试使用 JCL 演示中的 JclCompression 来保存(压缩).zip 文件。当我按下“读写”选项卡上的“保存”按钮时，演示将调用:

procedure TFormMain.ActionSaveExecute(Sender: TObject);
begin
  (FArchive as TJclCompressArchive).Compress;
  CloseArchive;
end;

当执行 (FArchive as TJclCompressArchive).compress; 时，会产生异常:“在归档异地更新后，至少无法替换一个压缩卷。”有时，当我按下保存按钮时，表单标题中会出现“应用程序没有响应”，因此我必须关闭演示。

此代码是否正确，或者我是否必须更改它才能成功压缩并保存 zip 文件？是否有任何其他 JclCompression 演示，以便我可以学习如何使用这些类？

除了这个问题之外，演示似乎工作正常。我可以打开 zip 文件、创建新的 zip 文件、添加文件、从目录添加文件、提取选定的文件、提取全部文件以及获取 zip 文件属性。保存似乎是一个问题。

我在 Windows 7 上使用 Delphi 2010。

Answer 1

与 jedi-jcl-compression-library-wont-open-spanned-archive-files 相同的问题。 JEDI JCL Compression library wont open spanned archive files

您使用的 JCL-JVCL 版本有缺陷。
我建议将您的 JCL 安装升级到 latest daily build