Discussion :

[od.dev]

Bonjour à tous,

Bon ben, je me décide à poser la question, parce que je ne me suis pas levé assez tôt ce matin pour trouver quelque chose dans le merveilleux nouveau système d'aide "Démerdez_vous_tout_seul like" de XE2 .
J'ai ouïe dire quelque part que la gestion des fichiers zippés était, dorénavant, totalement incorporé à Delphi.
Quelqu'un saurait-il m'aiguiller pour trouver l'unité qui gére cela (si j'ai bien compris) SVP ?

Merci d'avance.

[ShaiLeTroll]

C'est vrai que Document Explorer de Microsoft ce n'est pas très pratique !

En fait, on trouve vite si l'on connait le nom de la classe !
Le moteur de recherche du wiki est un peu capricieux mais avec google en tapant "Embarcadero VCL ZIP", on le trouve bien plus rapidement !

C'est bon à savoir, j'ignorais que c'était fourni, effectivement TZipFile donc la documentation est "Embarcadero Technologies ne possède pas d'informations supplémentaires pour le moment. Veuillez nous aider à documenter cette rubrique en utilisant la page Discussion !"

Je crois que tu vas bon pour lire le code de "...\source\rtl\common\System.Zip.pas"

[od.dev]

Et ben super Merci encore une fois Shai.

[hohorga]

Bonsoir,

J'avais justement besoin d'une librairie ZIP et je tombe par hasard sur ce topic ! Merci

J'ai un peu joué avec pour voir si ça correspondait à mes désirs. Si ça peut servir à certains quelques extraits de code (si mon code est "crade" ... j'ai repris Delphi après une bonne 10 aine d'années de "pause" -- j'ai arrêté à Delphi 2) .

Peupler un TCheckListBox avec l'ensemble des noms (et sous-chemins) des fichiers contenus dans l'archive

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
 
procedure TFormExtractFromZIP.ButtonSelectContentClick(Sender: TObject);
var
    fileName : string;
    ZipFile : TZipFile;
begin
   if OpenDialogZip.Execute then
   begin
        fileName:=OpenDialogZip.FileName;
        ZipFile := TZipFile.Create;
        if not ZipFile.IsValid(fileName) then
            ShowMessage('Invalid file format!')
        else begin
            ZipFile.Open(fileName,zmRead);
 
            CheckListBoxZipFiles.Items.AddStrings(ZipFile.FileNames);
 
            ZipFile.Close;
 
            CheckListBoxZipFiles.CheckAll(cbChecked);
            EditZipFile.Text:=fileName;
        end;
        ZipFile.Free;
   end;
end;

Extraire les fichiers qui sont cochés dans le TCheckListBox vers un répertoire (codé en dur ) en créant si besoin est l'arborescence des sous répertoires

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
 
procedure TFormExtractFromZIP.ButtonExtractZipClick(Sender: TObject);
var
    idx : integer;
    fileName : string;
    ZipFile : TZipFile;
begin
    fileName:=EditZipFile.Text;
    if Trim(fileName)<>'' then
    begin
        ZipFile := TZipFile.Create;
        if not ZipFile.IsValid(fileName) then
            ShowMessage('Invalid file format!')
        else begin
            ZipFile.Open(fileName,zmRead);
            for idx:=0 to CheckListBoxZipFiles.Items.Count-1 do
                if CheckListBoxZipFiles.Checked[idx] then
                    ZipFile.Extract(CheckListBoxZipFiles.Items[idx],'G:\temp\Test unzip\',true);
 
            ZipFile.Close;
        end;
        ZipFile.Free;
    end;
end;

Je n'ai pas encore regardé s'il fallait gérer des exceptions ni pour la création d'archive Zip mais ça a l'air simple !