마음의 안정을 찾기 위하여

델파이용 압축 라이브러리 (ZLibEx)의 사용 예와 ZLib

라이브러리 다운로드 : http://www.base2ti.com.

uses ZLibEx;

Procedure CompressFile(Const inFile, outFile: String);
Var
  zStream   : TzCompressionStream;
  inStream  : TFileStream;
  outStream : TFileStream;
  size      : Cardinal;
Begin
  inStream  := TFileStream.Create(inFile, fmOpenRead);
  outStream := TFileStream.Create(outFile, fmCreate);
  Try
    size := inStream.Size;
    outStream.Write(size, SizeOf(Cardinal));
    Try
      zStream := TzCompressionStream.Create(outStream);
      zStream.CopyFrom(inStream, 0);
    Finally
      zStream.Free;
    End;
  Finally
    outStream.Free;
    inStream.Free;
  End;
End;
Procedure DecompressFile(Const inFile, outFile: String);
Var
  zStream   : TzDecompressionStream;
  inStream  : TFileStream;
  outStream : TFileStream;
  size      : Cardinal;
Begin
  inStream  := TFileStream.Create(inFile, fmOpenRead);
  outStream := TFileStream.Create(outFile, fmCreate);
  Try
    inStream.Read(size, SizeOf(Cardinal));
    Try
      zStream := TzDecompressionStream.Create(inStream);
      outStream.CopyFrom(zStream, size);
    Finally
      zStream.Free;
    End;
  Finally
    outStream.Free;
    inStream.Free;
  End;
End;