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 :

//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;

Voir aussi:

• fonction d'import
• fonction d'import étendue