TImportContext (tech)

TImportContext est un objet technique permettant de manipuler l'import de document.

Propriétés

ImportMode	Mode et options d'importation
ImportModeAsString	Mode et options d'importation (format chaîne)
ShareMode	Mode de partage
RootPath	Chemin des contenus binaires
RenameFolder	Chemin utilisé pour renommer le fichier source
StopOnExcept	S'arrêter à la première erreur.
InsertedCount	Nombre d'objet insérés
UpdatedCount	Nombre d'objet mis à jour
FailedCount	Nombre d'objet en erreur
IgnoredCount	Nombre d'objet ignorés
AdditionnalValues	Valeurs additionnelles pouvant être importer dans la classe cible

Opérations

Execute	Exécution de l'import

Exemple :

<source lang="Delphi"> //Procedure TestImportContext; var instB:WFClasseB; inst:TImportContext; ls:TStringList; begin

 withP Transaction do
  begin
    instB := WFClasseB.Create;
    instB.unCode := 'B'+FormatDateTime('c',Now);
    instB.Caption := 'Session:'+instB.unCode;
  end;

 UserContext.BeginCapture;
 try
   inst := TImportContext.Create;
   inst.ShareMode.Value := ISM_DEFAULT;
   inst.ImportMode := miInsert+miUpdate+miDisableEvents;
   inst.AdditionalValues.Values['uneChaine'] := 'uneChaineValue';
   inst.AdditionalValues.Values['unEntier'] := 1;
   inst.AdditionalValues.Values['unEtat:AsVariant'] := WFCAState_Etat1;
   inst.AdditionalValues.Values['oidWFClasseBRef'] := instB.InstanceOID;
   //
   Result := inst.Execute('testimport-wfclassea.dip','c:\temp\exports\wfclassea.txt');

   ls := TStringList.Create;
   UserContext.GetMessages(ls);
   ShowMessage(ls.Text);

   ShowMessage(Format('%d objets importés',[inst.InsertedCount]));
 finally
 UserContext.EndCapture;
 end;

end; </source>

Voir aussi: