本文整理自网络，侵删。
{------------------------------------------------------------------------------- -Klas?r S?k??t?rma ZIP-------------------------------------------------------------------------------}function TfrmMain.zipFolder(ArchiveName, FilePath: String): boolean;var Zip:TZipFile;begin Zip:=TZipFile.Create; try
zip.ZipDirectoryContents(ArchiveName,FilePath );
Result:=true; except REsult:=false; end; FreeAndNil(zip);
end;
{------------------------------------------------------------------------------- -Dosya S?k??t?rma ZIP-------------------------------------------------------------------------------}function TfrmMain.zipFile(ArchiveName, Filename: String): boolean;var Zip:TZipFile;begin Zip:=TZipFile.Create; try if FileExists(ArchiveName) then DeleteFile(ArchiveName); zip.Open(ArchiveName,zmWrite); zip.Add(Filename); zip.Close; Result:=true; except REsult:=false; end; FreeAndNil(zip);end;
{------------------------------------------------------------------------------- -Dosya A?ma UNZIP-------------------------------------------------------------------------------}function TfrmMain.UnZipFile(ArchiveName, Path: String): boolean;var Zip:TZipFile;begin
Zip:=TZipFile.Create; try zip.Open(ArchiveName,zmRead); zip.ExtractAll(Path); zip.Close; result:=true; except result:=false; end; zip.Free;
end;
用法：uses zip;
if zipFolder('c:\1\test.zip','c:\2') then<br> begin<br>// i?lem tamam<br> end<br> else<br> begin<br>// i?lem hatal? <br> end;<br>
相关阅读 >>
Delphi kbmmw sampleservice/sampleclient方式传输数据集
更多相关阅读请进入《Delphi》频道 >>
