Delphi XE2 新增 System.Zip 單元, 可用一句話壓縮整個文件夾了
阿新 • • 發佈:2019-02-15
類方法 delphi 算法 gin cli all 解壓 zipfile pfile
內主要就是 TZipFile 類, 最方便使用的是它的類方法: TZipFile.ExtractZipFile() //解壓 Zip 文件到指定文件夾 TZipFile.IsValid() //判斷指定文件是否是有效的 Zip 文件 TZipFile.ZipDirectoryContents() //壓縮指定路徑下的所有文件 測試: uses System.Zip; { 把 C:\Temp\TestDir 下的所有文件壓縮到 C:\Temp\Test.zip } procedure TForm1.Button1Click(Sender: TObject);begin TZipFile.ZipDirectoryContents(‘C:\Temp\Test.zip‘, ‘C:\Temp\TestDir\‘); //參數3可以指定壓縮算法 end; { 把 C:\Temp\Test.zip 解壓到 C:\Temp\TestDir2\ } procedure TForm1.Button2Click(Sender: TObject); begin TZipFile.ExtractZipFile(‘C:\Temp\Test.zip‘, ‘C:\Temp\TestDir2\‘); end; 使用實例化類的方式: uses System.Zip;{ 壓縮 } procedure TForm1.Button1Click(Sender: TObject); var zip: TZipFile; begin zip := TZipFile.Create; zip.Open(‘C:\Temp\001.zip‘, TZipMode.zmWrite); //準備要壓縮為 001.zip zip.Add(‘C:\Temp\Test.txt‘, ‘Test.txt‘); //參1是要壓縮的文件; 參2是要使用的文件名; 參數3可指定壓縮算法 // zip.Add... // zip.Close; //Close 時才執行實際壓縮過程; 不過在銷毀前會調用它zip.Free; end; { 解壓 } procedure TForm1.Button2Click(Sender: TObject); var zip: TZipFile; begin zip := TZipFile.Create; zip.Open(‘C:\Temp\001.zip‘, TZipMode.zmRead); zip.ExtractAll(‘C:\Temp\002\‘); zip.Free; end;
Delphi XE2 新增 System.Zip 單元, 可用一句話壓縮整個文件夾了