1

德尔福 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。如何从当前完成百分比中获取数据？

4

1 回答 1

3

您必须分配一个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则操作将被取消。

于 2013-09-22T13:34:29.997 回答