问题标签 [abbrevia]

我想从http://sourceforge.net/projects/tpabbrevia/安装 TurboPower Abbrevia 3.05，但它不起作用。:(

文档 说：

_4。打开并编译特定于正在使用的 IDE 的运行时包（例如 Delphi2007 的 B305vr2007.dpk）

启动C++Builder2009 -> “Open Project..”，选择“B305vr2009.dpk”并点击“open”，但什么也没发生。我的错误是什么？

我正在使用开源缩写组件将一些文件存档到单个 Zip 中，同时我正在使用 TAbMeter Gauge 来显示进度。

不过，我更愿意为此目的使用 TProgressBar（保持与 Windows 的标准界面）。

我如何使用 TProgressBar 而不是 TAbMeter？我知道我可以自己编写进度代码，但是鉴于 Abbrevia 组件已经在 TAbMeter 中完成了这项工作，我认为重写它没有任何意义。

如果我什至可以访问 TAbMeter 的 Position 属性，我可以通过与 TAbMeter 同步来模拟 TProgressBar 的进度。

这是一个片段，FileNames 是一个包含要归档的文件名的 TStringList。

Win7的中文，我用TAbZipper创建了一个ZIP文件，但是在英文的操作系统上的zip文件，里面的zip文件的文件名都变成乱码了。我用的是Abbrevia5。我该怎么做，在 DelphiXE2 中。

是否可以使用 Abbrevia 删除 zip 文件项的路径？查看源代码后，我找不到删除文件路径的方法。有没有人尝试过这样做，如果是这样，怎么做？

编辑 我在 TAbListView 中显示 zipfile 的内容，其中每个文件的路径都存储在存档中。这些项目被添加到 zip 文件中，StoreOptions 设置为 [soStripDrive]，因此该路径存储在 TAbListView.Items.Item[I].Subitem[9] 中，用于 zip 文件中的每个文件。我正在寻找剥离路径，然后保存存档，以便所有文件都没有路径。

移除前的路径

TAbListView.Items.Item[0].Subitem[9] := \DelphiXE4\Projects\Abbrevia\Unit1.pas

TAbListView.Items.Item[1].Subitem[9] := \DelphiXE4\Projects\Abbrevia\Unit1.dfm

移除后的路径

TAbListView.Items.Item[0].Subitem[9] := '';

TAbListView.Items.Item[1].Subitem[9] := '';

所以压缩物品没有任何路径。

德尔福 Xe4。有一组用于数据压缩的组件：ABBREVIA ( http://tpabbrevia.sourceforge.net ) 它实现了 LZMA 压缩，以及一个模块 AbLZMA.pas（Lzma 压缩/解压缩例程）。

用它 ：

一切正常。

问题：

1. 如何添加代码以显示百分比完成操作？
2. 如何将代码添加到压缩过程的中止？

在模块 AbLZMA.pas（也尝试使用 AbLZMAStream.pas）中是主程序 LzmaEnc_Encode，它在调用 LzmaEncodeStream 时工作：

它有一个参数“Progress: PICompressProgress;”，其中

我尝试在模块 AbLZMA.pas 中添加一个过程：

在这种情况下（即使程序的主体为空白），也会出现错误 AV。如何从当前完成百分比中获取数据？

我正在尝试使用 Abbrevia 来构建 ZIP 存档。代码如下所示：

我取回了一个有效的 zipfile，除了一个问题。在生成的 zipfile 中，文件夹结构是相对于 C: 驱动器的根目录创建的，而不是相对于archive.BaseDirectory. （所有内容都存储在 \Users\Mason\Documents\etc... 下）所以显然我误解了该BaseDirectory属性的用途。如何让我插入的文件相对于特定的根文件夹存储？

我想用缩写创建一个 *.tar.gz 文件，我正在使用下面的代码，但没有将空文件夹添加到存档中。baseDir包含空文件夹和非空文件夹。

我发现了修复空文件夹的错误

https://sourceforge.net/p/tpabbrevia/bugs/108/

https://sourceforge.net/p/tpabbrevia/bugs/8/

如何将这些空文件夹添加到存档？

我正在尝试检查特定文件的 zip 文件内容（拖放），我正在使用如下方法；

为此，我创建了 2 个 zip 文件并在其中添加了两个 txt 文件（readme.txt 和 test.txt）。但是对于第一个文件：我首先添加了“readme.txt”文件，而不是“test.txt”。对于第二个，我添加了“test.txt”而不是“readme.txt”。我的意思是我已经改变了文件添加的顺序。

删除第一个文件后，程序显示一条消息“存在”，但第二个文件“不存在”。我认为 FindFile 方法只搜索 zip 内容的第一个文件。是否有任何正确的方法可以在不关心订单的情况下搜索文件？谢谢。

我有一个现有的 zip 存档，并且想要更改 zipfile 中已经存在的文件。此外，我想将一个文件添加到现有的 zip 存档中。我尝试使用 TZipFile 但它不提供所需的功能。但是 Abbrevia 应该可以，但我不知道怎么做。

任何建议如何做到这一点？

我需要使用 Abbrevia ABZIP 模块用 Delphi 提取一个 zip 文件。但我想排除 zip 文件根目录中的文件。

示例：我的 zip 文件包含这个

现在我想排除 \myfile.txt但包括 \directory1\myfile.txt

我尝试了以下方法：

我缺少哪个选项来“捕获”仅“myfile.txt”的根位置？

** 编辑 ** ：如果有办法只提取子目录，它也对我有用。