CreateArchive (TArchiveLogReg)
De Wiki1000
(Différences entre les versions)
(Page créée avec « <source lang='delphi'>function Archive(aCaption:string; aLs:TStringList):TdbArchiveLogObject;</source> Voir aussi *Classe scellée {{F... ») |
|||
| (2 révisions intermédiaires par un utilisateur sont masquées) | |||
| Ligne 1 : | Ligne 1 : | ||
<source lang='delphi'>function Archive(aCaption:string; aLs:TStringList):TdbArchiveLogObject;</source> | <source lang='delphi'>function Archive(aCaption:string; aLs:TStringList):TdbArchiveLogObject;</source> | ||
| + | {|class="wikitable" | ||
| + | |- | ||
| + | !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|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 : | ||
| + | |||
| + | <source lang="delphi"> | ||
| + | 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; | ||
| + | </source> | ||
Voir aussi | Voir aussi | ||
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 : 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 —
