2010-06-08

利用簡單的 ZLib 壓縮檔案

有一個簡單的需求,將一個檔案備份到 Database Server。壓縮、除了減少 Database 資料量,也減少的網路傳輸的問題。
uses ComServ, ZLib, MidConst;

function Compress(aInStream: TStream; Out aOutStream: TStream): Boolean;
var
  zipStream: TCompressionStream;
begin
  Result := False;
  if aInStream.Size < 1 then
    Exit;

  aOutStream := TMemoryStream.Create;

  zipStream := TCompressionStream.Create(clDefault, aOutStream);
  try
    zipStream.CopyFrom(aInStream, 0);
    Result := True;
  finally
    zipStream.Free;
  end;
end;
ZLib

沒有留言: