Discussion :

[sematimo]

Bonjour

Je teste Abbrevia pour archiver un dossier avec le code suivant :

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
procedure TForm1.Button1Click(Sender: TObject);
var
lczip: TAbZipper;
begin
  if SaveDialog1.Execute then begin
             lczip := TAbZipper.Create(nil);
             try
                lczip.ArchiveType:= atZip;
                lczip.FileName:=SaveDialog1.FileName;
                lczip.StoreOptions:= [soRecurse];
 
                //name of the directory that we want to zip
                lczip.BaseDirectory:=Edit1.text;
                lczip.AddFiles('*.*',faAnyFile);
                lczip.Save;
                lczip.CloseArchive;
             finally
               lczip.Free;
             end;
           end;
  end;

avec

Code :

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

1
2
3
uses
  Classes, SysUtils, Forms, Controls, Graphics, Dialogs, StdCtrls, AbUnzper,
  AbZipper, AbCabMak

J'ai 2 erreurs, AtZip not found et [soRecurse] not found.

[jurassic pork]

hello,
il faut ajouter AbZipTyp, AbArcTyp, AbUtils dans les uses.
Ami calmant, J.P

[sematimo]

Merci
ça fonctionne