请问,在Delphi里面将生成的文本文件进行压缩,是用什么方法啊?

[liulangnanhai]

如题,多谢啦

[nyf1220]

怎么个压缩啊？

[liulangnanhai]

就是在Delphi里生成zip文件啊

[ssq237712]

引用zlib，不管你什么文件都可以压缩。

function MyZip(InFlName, OutFlName: string): integer;
var
InFile, outfile: TFilestream;
ZStream: TCustomZLibStream;
begin
InFile := TFileStream.Create(InFlName, fmOpenRead);
try
OutFile := TFileStream.Create(OutFlName, fmCreate);
try
ZStream := TCompressionStream.Create(clFastest, OutFile);
try
ZStream.CopyFrom(InFile, 0);
finally
ZStream.Free;
end;
finally
result := outfile.Size;
OutFile.Free;
end;
finally
InFile.Free;
end;
end;

procedure MyUnZip(InFlName, OutFlName: string);
const
buffersize = 4096;
var
InFile: TStream;
OutFile: TStream;
ZStream: TCustomZLibStream;
begin
InFile := TFileStream.Create(InFlName, fmOpenRead);
try
OutFile := TFileStream.Create(OutFlName, fmCreate);
try
ZStream := TDecompressionStream.Create(InFile);
try
OutFile.CopyFrom(ZStream, 0);
finally
ZStream.Free;
end;
finally
OutFile.Free;
end;
finally
InFile.Free;
end;
end;

[xiyixiaowm50]

同意楼上

[liulang1314521]

解压的时候有问题吧?

[zzlingaaa]

搜索一下,很多答案的