TImportedFileUpload - Exemples

TImportedFileUpload = class (TObject)Interface de TImportedFileUploadExemples de TImportedFileUpload
uses Qubes, XForms.FileUpload;

const cExportFolder = 'C:\Temp\';

// Récupération des GUIDs renvoyés par le sélecteur de fichiers
var lstGUIDs:=TStrings.Create;
AddContextVarValuesToTStrings(lstGUIDs, 'Saisie.ListeFichiers', False);

// On enregistre sur le disque les fichiers de moins de 1Ko
for var i:=0 to lstGUIDs.Count-1 do begin
   var ifu := TImportedFileUpload.Create(lstGUIDs[i]);
   if ifu.DataSize<=1000 then begin
      SaveStringToFile(cExportFolder + ifu.FileName, ifu.Data);
      InformationDlg('Export de '+ifu.GUID);
   end;
end;