Création de dossier compressé (zippé) à l'aide de Delphi

Vous pouvez utiliser une version de ligne de commande de tout compresseur comme 7zip et faire le Tâche à l'aide de Shellexecute, ou vous pouvez utiliser un composant gratuit ou commercial comme quiconque de ces < / a>.

J'avais utilisé zipmaster et cela se comporte très bien à mon objectif. Je ne sais pas quels sont vos besoins de taille, d'espace et de performance.

Vous pouvez utiliser TURBOPOWER ABBREVIA qui est maintenant open source.

Regardez ceci:

• compression de fichier
• FSCTL_SET_Compression

Il y a quelque temps, j'ai essayé toutes les bibliothèques de compression DELPHI que je pouvais trouver et, éventuellement, j'ai fini par utiliser Kazip par Kiril Antonov .

Mes exigences étaient : p>

• GRATUITEMENT; LI>
• open source; li>
• Native Delphi Code; Li>
• Aucune dépendance externe (DLL, EXE). Mon exigence la plus importante; li>
• Petite empreinte mémoire; Li>
• facile à utiliser; li> ul>

  Je l'utilise principalement pour activer des fichiers .kml en .kmz, et cela le fait incroyablement rapide. P>

  Voici un exemple de comment je l'utilise: P>

  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;
  

Un dossier "zippé" dans Windows n'est rien de plus qu'un fichier .zip compressé à l'aide de n'importe quelle bibliothèque ZIP standard. Les dossiers compressés sont un animal différent et nécessitent un format de disque NTFS.

pour le fichier "zip", je suggère fortement le Turbo Power AbRevia , qui est ouverte source et fonctionne bien. Vous voudrez peut-être vérifier cette Alternate Site Si vous utilisez Delphi 2009, car il s'agissait d'une copie plus récente .

Si vous souhaitez utiliser l'option Dossiers compressée, vous devez modifier les indicateurs d'annuaire de la poignée de répertoire. Cela n'aura qu'un impact sur les nouveaux fichiers ajoutés à ce répertoire et ne compressera pas automatiquement les fichiers existants. Si vous avez un répertoire existant, vous essayez de compresser, puis renommez chaque fichier existant, puis chargez-le et enregistrez-le sur le nom d'origine Suppression du fichier d'origine lorsque vous remplissez chacun. Yozey a eu un bon lien vers le Documentation MSDN . N'oubliez pas que cela ne fonctionne que avec les disques formatés NTFS, vous devrez donc ajouter un chèque pour cela dans votre code.

Jetez un oeil à ce Unité Synzip OpenSource . Il est encore plus rapide de la décompression que l'unité par défaut expédiée avec Delphi et générera un EXE plus petit (les tables CRC sont créées au démarrage).

Aucune DLL externe n'est nécessaire. Travaille de Delphi 6 jusqu'à XE. Pas de problème avec la version Unicode de Delphi. Tout dans une seule unité.

Je viens de faire des modifications pour gérer les noms de fichiers Unicode à l'intérieur du contenu zip, non seulement Win-ansi Charset, mais également des caractères unicodes. Les commentaires sont les bienvenus.