使用7z压缩解压数据

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);
var
tfsStream:TFileStream;
tmsStream:TMemoryStream;
begin
tfsStream:=TFileStream.Create('f:/1.bmp',fmOpenRead);
tmsStream:=TMemoryStream.Create;
Encode_7z(tfsStream,tmsStream);
tmsStream.SaveToFile('d:/1.dat.7z');
tfsStream.Free;
tmsStream.free;

end;

procedure TForm1.btn2Click(Sender: TObject);
var
tfsStream:TFileStream;
tmsStream:TMemoryStream;
begin
tfsStream:=TFileStream.Create('d:/1.dat.7z',fmOpenRead);
tmsStream:=TMemoryStream.Create;
Decode_7z(tfsStream,tmsStream);
tmsStream.SaveToFile('d:/1.bmp');
tfsStream.Free;
tmsStream.free;

end;