// GZip, совместимый с ORACLE utl_compress (lz_compress/lz_uncompress)
uses
  ZLibExGZ;

procedure TForm1.Button1Click(Sender: TObject);
var
  fIn, fOut: TFileStream;
begin
  fIn := TFileStream.Create('c:\test.txt', fmOpenRead);

  try
    fOut := TFileStream.Create('c:\test.gzip', fmCreate or fmOpenWrite);

    try
      GZCompressStream(fIn, fOut);
    finally
      fOut.Free;
    end;

  finally
    fIn.Free;
  end;
end;

procedure TForm1.Button2Click(Sender: TObject);
var
  fIn, fOut: TFileStream;
begin
  fIn := TFileStream.Create('c:\test.gzip', fmOpenRead);

  try
    fOut := TFileStream.Create('c:\test.txt', fmCreate or fmOpenWrite);

    try
      GZDecompressStream(fIn, fOut);
    finally
      fOut.Free;
    end;

  finally
    fIn.Free;
  end;
end;

// ZLib, совместимый с java.util.zip (Deflater/Inflater)
uses
  ZLibEx;

procedure TForm1.Button1Click(Sender: TObject);
var
  fIn, fOut: TFileStream;
begin
  fIn := TFileStream.Create('c:\test.txt', fmOpenRead);

  try
    fOut := TFileStream.Create('c:\test.zlib', fmCreate or fmOpenWrite);

    try
      ZCompressStream(fIn, fOut);
    finally
      fOut.Free;
    end;

  finally
    fIn.Free;
  end;
end;

procedure TForm1.Button2Click(Sender: TObject);
var
  fIn, fOut: TFileStream;
begin
  fIn := TFileStream.Create('c:\test.zlib', fmOpenRead);

  try
    fOut := TFileStream.Create('c:\test.txt', fmCreate or fmOpenWrite);

    try
      ZDecompressStream(fIn, fOut);
    finally
      fOut.Free;
    end;

  finally
    fIn.Free;
  end;
end;