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

如题,多谢啦 问题点数：0、回复次数：6Top

1 楼nyf1220（我是党员----不过听说最近风声紧，打算换名字）回复于 2004-12-02 10:15:53 得分 0

怎么个压缩啊？Top

2 楼liulangnanhai（流浪男孩）回复于 2004-12-02 10:37:21 得分 0

就是在Delphi里生成zip文件啊Top

3 楼ssq237712（流亡帅哥）回复于 2004-12-02 10:38:38 得分 0

引用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;Top

4 楼xiyixiaowm50（独孤求败）回复于 2004-12-03 23:19:35 得分 0

同意楼上Top

5 楼liulang1314521（流浪）回复于 2004-12-15 11:16:31 得分 0

解压的时候有问题吧?  
  Top

6 楼zzlingaaa（小舟）回复于 2004-12-16 00:10:37 得分 0

搜索一下,很多答案的Top

相关问题

• zstream
• outfile
• inflname
• outflname
• infile
• tfilestream
• free
• try
• finally
• create

• 帖主：liulangnanhai

• Delphi类图书
• Delphi类源码下载
• Delphi控件下载