Classe Journal d'archive (stereotype)

Les classes journal d'archive sont des classes journal qui exposent un méthode de création d'archive.

Méthode du stéréotype

procedure Archive(aCaption : string; aLs : TStringList)

Exemple :

var t : TTestArchive;
    ls : TStringList;
    b : TitObjet;
    i : integer;
begin

 ls := TStringList.Create;

 //b est un objet quelconque
 for i := 0 to b.documentList.Count-1 do
  ls.Add(b.documentList.oiDs[i]);

 ClassManager.BeginTran;
 try
  t := TTestArchive.Archive('mon Archive',ls);
  //alimenter les autres proriétés de t
 except
  ClassManager.RollBack;
  raise; 
 end;
end;

Commentaires

La méthode Archive

* retourne un objet de stéréotype "journal d'archive", son libellé est initialisé par le paramètre aCaption.
* construit un fichier archive (.jar) signé et horodaté des documents passés par oid dans le paramètre ls. Ce fichier est associé comme document à l'objet retourné.

Tip : Une archive peut avoir une taille importante, c'est pourquoi il est possible de paramétrer (dans la console d'administration au niveau du dossier) un container pour stocker les documents de nature "archive", afin de ne pas solliciter la base de données.