Tạo Thư mục Nén (Nén) bằng Delphi

Question

Tôi có thể tạo Thư mục Nén (Nén) của Windows XP bằng Delphi không?

Answer 1

Theo chủ đề trong eggheadcafe, bạn có thể sử dụng CreateFile Function với FILE_FLAG_BACKUP_SEMANTICS để tạo Thư mục nén.

Đối với tuyến đường mở rộng vỏ, hãy xem Using Windows XP "Compressed Folder" shell extension to work with .zip files bởi Không gian tên Edanmo, được viết bằng VB.

Tôi vừa tìm thấy câu hỏi tương tự được hỏi trên C++. Hãy xem Creating a ZIP file on Windows (XP/2003) in C/C++. Tôi có cảm giác con đường dễ nhất là mua ZipForge. Xem Zip a file in Delphi code sample.

Answer 2

Bạn có thể sử dụng một số phiên bản dòng lệnh của bất kỳ máy nén nào như 7zip và thực hiện tác vụ bằng ShellExecute hoặc bạn có thể sử dụng thành phần miễn phí hoặc comercial như bất kỳ ai trong số these.

Tôi đã sử dụng ZipMaster và nó hoạt động rất tốt cho mục đích của tôi. Tôi không biết yêu cầu về kích thước, không gian và hiệu suất của bạn là bao nhiêu.

Answer 3

Bạn có thể sử dụng TurboPower Abbrevia hiện là nguồn mở.

Answer 4

Hãy nhìn vào những:

• File Compression
• FSCTL_SET_COMPRESSION

Answer 5

Một số thời gian trước đây, tôi đã thử tất cả các thư viện nén Delphi rằng tôi có thể tìm thấy, và cuối cùng tôi đã kết thúc lên bằng cách sử dụng KaZip bởi Kiril Antonov.

Yêu cầu của tôi là:

• miễn phí;
• Nguồn mở;
• Mã Delphi gốc;
• Không có phụ thuộc bên ngoài (dll, exe). Yêu cầu quan trọng nhất của tôi;
• Dấu chân bộ nhớ nhỏ;
• Dễ sử dụng;

Tôi sử dụng chủ yếu để chuyển các tệp .kml thành tệp .kmz và nó hoạt động nhanh đến đáng ngạc nhiên.

Dưới đây là một ví dụ về cách tôi sử dụng nó:

uses 
    KaZip; 

... 

// replaces a .kml file with a .kmz file 
procedure KmlToKmz(const aFileName: string); 
var 
    FS: TFileStream; 
    KaZip:TKaZip; 
    KmzFileName:TFileName; 
begin 
    KmzFileName := ChangeFileExt(aFileName, '.kmz'); 
    KaZip := TKaZip.Create(nil); 
    try 
    // create an empty zipfile with .kmz extension: 
    FS := TFileStream.Create(KmzFileName, fmOpenReadWrite or FmCreate); 
    try 
     KaZip.CreateZip(FS); 
    finally 
     FS.Free; 
    end;   

    KaZip.Open(KmzFileName); // Open the new .kmz zipfile 
    KaZip.Entries.AddFile(aFileName); // add the .kml 
    KaZip.Close; 
    DeleteFile(aFileName); // delete the .kml 
    finally 
    KaZip.Free; 
    end; 
end; 

Answer 6

A "nén" thư mục trong Windows là gì khác hơn là một tập tin ZIP nén sử dụng bất kỳ thư viện zip tiêu chuẩn. Thư mục nén là một động vật khác và yêu cầu định dạng đĩa NTFS.

Đối với tệp "Zip", tôi đề xuất rõ ràng Turbo Power Abbrevia, là nguồn mở và hoạt động tốt. Bạn có thể muốn kiểm tra trang web này alternate nếu bạn sử dụng Delphi 2009 vì nó có thể là một bản sao mới hơn.

Nếu bạn muốn sử dụng tùy chọn thư mục nén, bạn sẽ cần sửa đổi cờ thư mục trên tay cầm thư mục.Điều này sẽ chỉ ảnh hưởng đến các tệp MỚI được thêm vào thư mục đó và sẽ không tự động nén các tệp hiện có. Nếu bạn có một thư mục hiện có mà bạn đang cố gắng nén, sau đó đổi tên từng tệp hiện có và tải và lưu nó trở lại tên gốc xóa tệp gốc khi hoàn tất với mỗi tệp. Yozey có liên kết tốt với tài liệu MSDN. Chỉ cần nhớ rằng điều này chỉ hoạt động với các định dạng đĩa NTFS, vì vậy bạn sẽ cần phải thêm một kiểm tra cho điều đó trong mã của bạn.

Answer 7

Hãy xem điều này OpenSource SynZip unit. Nó thậm chí còn nhanh hơn để giải nén hơn so với các đơn vị mặc định được vận chuyển với Delphi, và nó sẽ tạo ra một exe nhỏ hơn (các bảng crc được tạo khi khởi động).

Không có dll bên ngoài là cần thiết. Hoạt động từ Delphi 6 lên đến XE. Không có vấn đề với phiên bản Unicode của Delphi. Tất cả trong một đơn vị duy nhất.

Tôi vừa thực hiện một số thay đổi để xử lý tên tệp Unicode bên trong nội dung Zip, không chỉ bộ ký tự Win-Ansi mà còn bất kỳ ký tự Unicode nào. Phản hồi được hoan nghênh.

Answer 8

Nếu bạn đang sử dụng Delphi X2, chỉ cần sử dụng TZipFile từ System.Zip:

Để Zip một thư mục, sử dụng:

TZipFile.ZipDirectoryContents('ZipFile.zip', 'C:\Zip\this\right\now'); 

Để Zip file, sử dụng:

Zip := TZipFile.Create; 
try 
    Zip.Open('ZipFile.zip', zmWrite); 

    Zip.Add('FileToBeZipped.txt'); 
    Zip.Add('ThisWillBeCompressedAgainForSureAndBecomeSmaller.zip'); 
finally 
    Zip.Free; 
end