压缩和解压缩OLEVARIANT

uses ZLibEx

 

procedure VariantToStream(const V: OLEVariant; Stream: TStream);
var
  P : Pointer;
begin
  Stream.Position := 0;
  Stream.Size := VarArrayHighBound (V, 1) - VarArrayLowBound (V, 1) + 1;
  P := VarArrayLock (V);
  Stream.Write (P^, Stream.Size);
  VarArrayUnlock (V);
  Stream.Position := 0;
end;

 

procedure StreamToVariant(Stream: TStream; var V: OLEVariant);
var
  P : Pointer;
begin
  V := VarArrayCreate ([0, Stream.Size - 1], varByte);
  P := VarArrayLock (V);
  Stream.Position := 0;
  Stream.Read (P^, Stream.Size);
  VarArrayUnlock (V);
end;

 

function CompressData(V: OleVariant): OleVariant;
var
  M, M0: TMemoryStream;
begin
  M := TMemoryStream.Create;
  M0 := TMemoryStream.Create;
  try
    if V = Null then exit;

    VariantToStream(V,M);       //转换到流
    M.Position := 0;
    ZCompressStream(M, M0);        //压缩流
    StreamToVariant(M0, V);      //转换到变体返回值
  finally
    M.Free;
    M0.Free
  end;
  Result := V;
end;

 

function DeCompressData(V: OleVariant): OleVariant;
var
  M, M0: TMemoryStream;
begin
  M := TMemoryStream.Create;
  M0 := TMemoryStream.Create;
  try
    if V = Null then exit;

    VariantToStream(V,M);       //转换到流
    M.Position := 0;
    ZDeCompressStream(M, M0);        //压缩流
    StreamToVariant(M0, V);      //转换到变体返回值
  finally
    M.Free;
    M0.Free
  end;
  Result := V;
end;

 

 

评论
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

当前余额3.43前往充值 >
需支付:10.00
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、付费专栏及课程。

余额充值