如何解决压缩和解压缩的问题？？各位大哥哥帮帮小弟！！！#32

Question

下载vclzip控件就行了，有例子

Answer 1

delphi有Zlib压缩流?可以很容易的压和解压

Answer 2

压缩，解压与这个类似
procedure CreatPack( SourDir,DestFileName:string);
var
  SourceFilepath,extname:string ;
  SearchRec: TSearchRec;
  vclZip:TVCLZip;
  filename:string;
begin
  SourDir:=SourDir+'\';
  VclZip:= TVCLZip.Create(Nil);
  try
    if FindFirst(SourDir+'*.dat', faAnyFile, SearchRec)=0 then
    begin
      vclzip.FilesList.Add( SourDir+SearchRec.Name);
      While FindNext(SearchRec)=0 do
        vclzip.FilesList.Add( SourDir+SearchRec.Name);
    end;
    //FindClose(SearchRec);
    Vclzip.ZipName :=DestFileName;
    vclzip.Zip;
  finally
    vclZip.free;
  end;
end;
您工作、生活的好助手，
个人数字助理 V1.0
http://www.onlinedown.net/soft/35617.htm

Answer 3

我用vclzip解压时，只有在Delphi启动的情况下，解压才是正常的。郁闷中！