Question

Delphi 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;
...

一切都很好。

问题：

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

在模块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的值，则操作将被取消。

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

1 个答案: