使用7z压缩解压数据

zhaodog

于 2010-09-10 15:01:00 发布

阅读量2.2k

点赞数

CC 4.0 BY-SA版权

本文链接：https://blog.youkuaiyun.com/zhaodog/article/details/5875841

本文介绍了如何在程序中使用7z库进行文件的压缩和解压缩操作。通过添加sevenzip.pas到工程，复制7z.dll到相应目录，并提供了Encode_7z和Decode_7z两个过程，分别用于文件的压缩和解压，实现了在内存中对文件流的处理。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

1、下载sevenzip.pas，添加到lib路径

2、把7z.dll复制到你工程的目录下

3、例子代码

procedure Encode_7z( Source:TStream;Dest:TStream );
var
Arch: I7zOutArchive;
tmsStream:TMemoryStream;
begin
Arch := CreateOutArchive(CLSID_CFormat7z);
Arch.AddStream( Source, soReference, faArchive, CurrentFileTime, CurrentFileTime, '1.bmp', false, false);
SetCompressionLevel(Arch, 5);
Arch.SaveToStream(Dest);
end;

procedure Decode_7z( Source:TStream;Dest:TStream );
var
i:Integer;
tmsStream:TMemoryStream;
begin
with CreateInArchive(CLSID_CFormat7z) do
begin
   OpenStream( T7zStream.Create( Source,soReference ) );
   for i := 0 to NumberOfItems - 1 do
     if not ItemIsFolder[i] then
       ExtractItem(i, Dest, false);
end;
end;

//压缩
procedure TForm1.btn1Click(Sender: TObject)