如何监控和取消 Abbrevia 压缩的进度？

Question

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

使用它：

...
Uses ablzma;
...
procedure TForm1.Button1Click(Sender: TObject);
var f1,f2:tfilestream;
begin
  f1:=tfilestream.Create('d:\1.test',fmOpenRead);
  f2:=tfilestream.Create('d:\1.lzma',fmCreate);
  LzmaEncodeStream(f1,f2,f1.Size);
  f2.Free;
  f1.Free;
end;
...

一切正常。

问题：

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

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

function LzmaEnc_Encode(p: CLzmaEncHandle; outStream: PISeqOutStream;
  inStream: PISeqInStream; Progress: PICompressProgress;
  Alloc, allocBig: PISzAlloc): SRes; cdecl; external;

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

ICompressProgress = packed record
 Progress: function(p: Pointer; inSize, outSize: Int64): SRes; cdecl;
end;
PICompressProgress = ^ICompressProgress;

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

function MyProgress(p: Pointer; inSize, outSize: Int64): SRes;cdecl;
begin
// what is "p"?
// form1.caption:=result //? 
end;

...

procedure LzmaEncodeStream(ASourceStream, ATargetStream: TStream; ASourceSize: Int64);
var
  ...
  PMyProgress:PICompressProgress;
begin
  ...
  PMyProgress.Progress:=MyProgress;
  ...
  LzmaCheck(LzmaEnc_Encode(LEncHandle, @LOutStreamRec.Intf, @LInStreamRec.Intf,
    {nil}PMyProgress // this
    ,@DelphiMMInterface, @DelphiMMInterface));
  ...
end;

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

Answer 1

您必须分配一个ICompressProgress 变量。你已经声明了一个指向一个的指针，但从未将它指向任何东西。

这样做：

procedure LzmaEncodeStream(ASourceStream, ATargetStream: TStream;
  ASourceSize: Int64);
var
  MyProgress: ICompressProgress;
begin
  ...
  MyProgress.Progress:=MyProgress;
  ...
  LzmaCheck(LzmaEnc_Encode(LEncHandle, @LOutStreamRec.Intf, @LInStreamRec.Intf,
    @MyProgress, @DelphiMMInterface, @DelphiMMInterface));
  ...
end;

您正在调用LzmaEnc_Encode，这是原始 LZMA C 接口。 LZMA SDK 中应该存在进度回调文档，但我还没有找到任何好的文档。我怀疑您需要阅读 LZMA 的 C 实现才能深入了解。

好的，下面是调用进度回调的代码：

for (;;)
{
  res = LzmaEnc_CodeOneBlock(p, False, 0, 0);
  if (res != SZ_OK || p->finished != 0)
    break;
  if (progress != 0)
  {
    res = progress->Progress(progress, p->nowPos64, RangeEnc_GetProcessed(&p->rc));
    if (res != SZ_OK)
    {
      res = SZ_ERROR_PROGRESS;
      break;
    }
  }
}

进度回调在第一个参数中传递PICompressProgress。这允许您使用额外的字段声明您的ICompressProgress 记录，从而允许您的回调函数接收状态信息。 inSize 参数是输入流中的位置。您可以通过将inSize 除以输入流的大小来获得进度值。 outSize 参数大概是目前在输出文件中写入的字节数。

如果返回的值大于SZ_OK，则操作将被取消。