函数类型: 自定义函数
函数说明:
压缩流转变体
代码如下:
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;
用法示例:
无
《学习大师原创文档,请勿转载,侵权必究》
|