TImportContext (tech)

De Wiki1000

version700-32x32.png

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:





Whos here now:   Members 0   Guests 1   Bots & Crawlers 0
 
Outils personnels