델파이용 압축 라이브러리 (ZLibEx)의 사용 예와 ZLib
- zlib version 1.2.3 for delphi 5, 6, and 7
- should also work with delphi 8, 2005, and 2006
- now supports simple gzip files
- includes zlib source code and c++ builder 6 project files (c++ builder 6 was used to compile c source into object files)
- should also work with delphi 8, 2005, and 2006
- now supports simple gzip files
- includes zlib source code and c++ builder 6 project files (c++ builder 6 was used to compile c source into object files)
라이브러리 다운로드 : 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;