TImportContext (tech)

TImportContext est un objet technique permettant de manipuler l'import de données par un descriptif d'importation (.dip).

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
RejectedFile	Définit le fichier de rejet
StopOnExcept	S'arrêter à la première erreur.
InsertedCount	Nombre d'objets insérés
UpdatedCount	Nombre d'objets mis à jour
FailedCount	Nombre d'objets en erreur
IgnoredCount	Nombre d'objets ignorés
AdditionnalValues	Valeurs additionnelles pouvant être importer dans la classe cible
BinaryData	Données à importée.

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: