TImportContext (tech)

De Wiki1000
(Différences entre les versions)
Ligne 41 : Ligne 41 :
 
|[[AdditionalValues (TImportContext)|AdditionnalValues]]
 
|[[AdditionalValues (TImportContext)|AdditionnalValues]]
 
|Valeurs additionnelles pouvant être importer dans la classe cible
 
|Valeurs additionnelles pouvant être importer dans la classe cible
 +
|-
 +
|[[BinaryData (TImportContext)|BinaryData]]
 +
|Données à importée.
 
|}
 
|}
  

Version du 20 octobre 2014 à 11:49

versionlatest-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'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
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:

Outils personnels