CreateArchive (TArchiveLogReg)

De Wiki1000
(Différences entre les versions)
 
Ligne 13 : Ligne 13 :
 
|-
 
|-
 
|aLS
 
|aLS
|Liste des documents à inclure dans l'archive.
+
|Liste des documents à inclure dans l'archive. Valeurs acceptées dans la liste : un oid de document ou bien un chemin de fichier.
 
|}
 
|}
  
 
La méthode Archive  
 
La méthode Archive  
 
* Retourne un objet de stéréotype "journal d'archive", son libellé est initialisé par le paramètre aCaption.
 
* 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.
+
* construit un fichier archive (.jar) signé et horodaté des documents passés dans le paramètre als.
 
* Ce fichier est associé comme document à l'objet retourné.
 
* Ce fichier est associé comme document à l'objet retourné.
  

Version actuelle en date du 22 novembre 2017 à 17:54

function Archive(aCaption:string; aLs:TStringList):TdbArchiveLogObject;
Paramètre Usage
Result Objet archive
aCaption Libellé de l'objet
aLS Liste des documents à inclure dans l'archive. Valeurs acceptées dans la liste : un oid de document ou bien un chemin de fichier.

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 dans le paramètre als.
  • Ce fichier est associé comme document à l'objet retourné.
Tip-20px.png 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.

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
  ClassManager.Commit;
 except
  ClassManager.RollBack;
  raise; 
 end;
end;

Voir aussi

Classe_Journal_d'archive_(stereotype)Développement DSM

Outils personnels