delphi 文件压缩 |
| 来源:国外 关于:轶名 发布时间:2007-07-04
|
[ 收藏]
[ 推荐] |
|
here are some simple routines to compress and decompress a file:
procedure CompressFile(const inFile, outFile: String); var zStream : TZCompressionStream; inStream : TFileStream; outStream: TFileStream; size : Cardinal; begin // open the in file and get the size
inStream := TFileStream.Create(inFile,fmOpenRead); size := inStream.Size;
// create the out file and save the original (decompressed) // file size to make decompression easier
outStream := TFileStream.Create(outFile,fmCreate); outStream.Write(size,SizeOf(Cardinal));
// compress
zStream := TZCompressionStream.Create(outStream); zStream.CopyFrom(inStream,0);
// clean up
zStream.Free; outStream.Free; inStream.Free; end;
procedure DecompressFile(const inFile, outFile: String); var zStream : TZDecompressionStream; inStream : TFileStream; outStream: TFileStream; size : Cardinal; begin // open the in file and get the original (decompressed) // file size
inStream := TFileStream.Create(inFile,fmOpenRead); inStream.Read(size,SizeOf(Cardinal));
// create the out file
outStream := TFileStream.Create(outFile,fmCreate);
// decompress
zStream := TZDecompressionStream.Create(inStream); outStream.CopyFrom(zStream,size);
// clean up
zStream.Free; outStream.Free; inStream.Free; end;
|
[浏览:
次]
|
| 上一篇:delphi 如何从剪切板上得到图片文件 下一篇:delphi eof 或Bof为真,或可能记录已被删除
|
|
| |
[ 收藏]
[ 推荐]
[返回顶部] [打印本页] [关闭窗口] |
评论加载中…
|
|
|
|
|
 |
google adsense热点文章 |
|
|
|
|
|
|