delphi - 在 Delphi 中创建 7zip 存档

Question

我在 Delphi 7 中使用这个 7zip 包装器，效果很好

https://github.com/zedalaye/d7zip

它会创建存档，但会覆盖其中已有的文件

var
  Arch: I7zOutArchive;
 begin
  Arch := CreateOutArchive(CLSID_CFormat7z);
  SetCompressionLevel(Arch, 2);
  Arch.AddFile('C:\Test.bin', 'Test.bin');
  Arch.SaveToFile('C:\Test.zip');
 end;

它会删除“Test.zip”中保存的所有其他文件无论如何，我可以将文件保存在“Test.zip”中，并在 Delphi 7 中使用此包装器编写新文件

Answer 1

您使用的包装器不允许您更新现有存档，只能创建新存档。因此，要将文件添加到现有存档中，您必须执行以下操作:

• 使用CreateInArchive()打开现有存档
• 使用CreateOutArchive()创建新的临时存档
• 将个文件从输入存档复制到输出存档
• 添加个文件到输出存档
• 关闭两个文件
• 用新存档替换旧存档