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;



  • 用法示例:

无 



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





联系电话:
020-00000000
联系电话:
020-00000000
联系电话:
020-12345678