流的压缩和解压

//Example
procedure TForm1.Button1Click(Sender: TObject);
var
  vInputStream: TFileStream;
  vOutputStream: TFileStream;
begin
  vInputStream := TFileStream.Create(''''c:\temp\temp.exe'''', fmOpenRead);
  vOutputStream := TFileStream.Create(''''c:\temp\temp.exe.z'''', fmCreate);
  try
    StreamCompression(vInputStream, vOutputStream);
  finally
    vInputStream.Free;
    vOutputStream.Free;
  end;
end;

procedure TForm1.Button2Click(Sender: TObject);
var
  vInputStream: TFileStream;
  vOutputStream: TFileStream;
begin
  vInputStream := TFileStream.Create(''''c:\temp\temp.exe.z'''', fmOpenRead);
  vOutputStream := TFileStream.Create(''''c:\temp\temp~.exe'''', fmCreate);
  try
    StreamDecompression(vInputStream, vOutputStream);
  finally
    vInputStream.Free;
    vOutputStream.Free;
  end;
end;

文章整理：西部数码--专业提供域名注册、虚拟主机服务
http://www.west263.com
以上信息与文章正文是不可分割的一部分,如果您要转载本文章,请保留以上信息，谢谢!