Delphi 压缩流转变体

• 函数类型：　自定义函数

• 函数说明：

压缩流转变体

• 代码如下：

 function ZipStreamToVariant(Stream: TStream): Variant;
var
  vStream: TMemoryStream;
begin
  if Stream.Size = 0 then
    Exit(null);
  vStream := TMemoryStream.Create;
  try
    Stream.position := 0;
    ZDecompressStream(Stream, vStream);
    Result := StreamToVariant(vStream);
  finally
    vStream.DisposeOf;
  end;
end;

• 用法示例：

无　

《学习大师原创文档，请勿转载，侵权必究》