如何监控和取消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接口。进度回调文档应该存在于LZMA中，但到目前为止我还没有找到任何好的文档。我怀疑您需要阅读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参数大概是到目前为止在输出文件中写入的字节数。

如果您返回的值为than SZ_OK，则操作将被取消。