TImportContext (tech)
{{#images:versionlatest-32x32.png|stock}}
TImportContext est un objet technique permettant de manipuler l'import de document.
Propriétés
| ImportMode | Mode et options d'importation |
| ImportModeAsString | Mode et options d'importation (format chaîne) |
| ShareMode | Mode de partage |
| RootPath | Chemin ? |
| RenameFolder | Chemin utilisé pour renommer le fichier source |
| Database | Base de données ? |
| 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 |
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: