Delphi XE2 .Z Unix壓縮文件庫

Question

我需要管理.Z（Unix壓縮）文件，主要是dezip函數。 什麼是最好的圖書館來做到這一點？ 預先避免DLL（如7z.dll）。 編輯：今天我有一個與7z.dll接口的JCL壓縮庫的解決方案。 我只是想尋找更簡單的解決方案&，因爲我只需要'.Z'的解析函數。

Answer 1

要解壓縮.Z文件，我只是用Delphi XE2內置的zlib庫：

uses ...,ZLib; 

procedure UnpackFiles; 
var 
    LList: TStringDynArray; 
    I: Integer; 
    FileName: String; 
    DestFileName: String; 
    LUnZip: TZDecompressionStream; 
    LInput, LOutput: TFileStream; 
begin 
    LList:= TDirectory.GetFiles(ImportDir, '*.gz'); 
    for i:= 0 to Length(LList)-1 do 
    begin 
    FileName:= LowerCase(LList[i]); 
    DestFileName:= ChangeFileExt(FileName, '.csv'); 
    { Create the Input, Output, and Decompressed streams. } 
    LInput := TFileStream.Create(FileName, fmOpenRead); 
    LOutput := TFileStream.Create(DestFileName, fmCreate); 
    LUnZip := TZDecompressionStream.Create(LInput, 15+16); // 16 = read as gzip header ! 

    Log(Format('create uncompressed file %s', [DestFileName])); 
    { Decompress data. } 
    LOutput.CopyFrom(LUnZip, 0); 

    { Free the streams. } 
    LUnZip.Free; 
    LInput.Free; 
    LOutput.Free; 
    Log(Format('Delete compressed file %s', [FileName])); 
    DeleteFile(FileName); 
    end; 
end; 

的重要組成部分，是設置讀取gzip頭的選項：

LUnZip := TZDecompressionStream.Create(LInput, 15+16); // 16 = read as gzip header !