TDocument - Exemples

// Exemple :
// On a une tâche de saisie avec un composant d'import de fichier
// et un sélecteur de document en création.
// On veut remplacer le document en création par le contenu du fichier importé.
// Rq : avec la même méthode, on peut importer dans la GED le contenu généré
// par une tâche d'impression.
uses Qubes, QubesDocuments;

// On rapatrie les données importées (ou générées par une tâche d'impression)
// dans un fichier temporaire sur le disque dur
var tmp := TStrings.Create;
AddContextVarValuesToTStrings(tmp, 'Saisie.FileImport_FileURLs', False);
var tmpFilePath := (if tmp.Count>0 then RetrieveDataFromQuBESURL(tmp[0]));

// On importe le contenu du fichier temporaire dans le document en création
// indiqué dans le sélecteur de document
// et on supprime le fichier temporaire
if tmpFilePath<>'' then begin
   var docImport := TDocument.ConnectByID(ReadContextVar('Saisie.DocImport'));
   docImport.ImportDataFromFile(tmpFilePath);
   DeleteFile(tmpFilePath);
end;