Abbrevia : AtZip not found et [soRecurse] not found
Bonjour
Je teste Abbrevia pour archiver un dossier avec le code suivant :
Code:
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:
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.
