Voir la source de TImportContext (tech)

{{Latest}}

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

===Propriétés===
{|class="wikitable"
|-
|[[ImportMode (TImportContext)|ImportMode]]
|Mode et options d'importation
|-
|[[ImportModeAsString (TImportContext)|ImportModeAsString]]
|Mode et options d'importation (format chaîne)
|-
|[[ShareMode (TImportContext)|ShareMode]]
|Mode de partage
|-
|[[RootPath (TImportContext)|RootPath]]
|Chemin des contenus binaires
|-
|[[RenameFolder (TImportContext)|RenameFolder]]
|Chemin utilisé pour renommer le fichier source
|-
|[[Database (TImportContext)|Database]]
|Base de données ?
|-
|[[StopOnExcept (TImportContext)|StopOnExcept]]
|S'arrêter à la première erreur.
|-
|[[InsertedCount (TImportContext)|InsertedCount]]
|Nombre d'objet insérés
|-
|[[UpdatedCount (TImportContext)|UpdatedCount]]
|Nombre d'objet mis à jour
|-
|[[FailedCount (TImportContext)|FailedCount]]
|Nombre d'objet en erreur
|-
|[[IgnoredCount (TImportContext)|IgnoredCount]]
|Nombre d'objet ignorés
|-
|[[AdditionalValues (TImportContext)|AdditionnalValues]]
|Valeurs additionnelles pouvant être importer dans la classe cible
|}

===Opérations===
{|class="wikitable"
|-
|[[Execute (TImportContext)|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:
* [[Import_(rtl)|fonction d'import]]
* [[ImportEx_(rtl)|fonction d'import étendue]]

[[Category:Objets_techniques]]
[[Category:TImportContext]]
[[Category:Latest]]