delphi - 如何监控和取消 Abbrvia 压缩的进度？

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 变量。您已经声明了一个指向 1 的指针，但从未将其指向任何东西。

这样做:

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 接口(interface)。 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 的值，则操作将被取消。