XOJO Web : Scaricare file da un array di WebFile

International Italiano
1

Ciao,

ho in sessione un array di WebFile (dei PDF) che vorrei scaricare sul computer, al momento a livello di codice ho questo:

Dim done As Boolean = False
  
For each file As WebFile in Session.mPDF
    Do
        done = file.Download
    Loop Until done = True
Next

Il problema che su un array di n file riesco a scaricare sempre e solo l’ultimo.

Qualcuno ha per caso qualche dritta da darmi ?

Grazie.

2

Ciao Matteo,

file.download ti dice quando il file viene richiesto non quando ha finito.
se vuoi scaricare tutti i file in sequenza dovresti utilizzare un metodo diverso:

utilizzi una propriet per conteggiare il file corrente
ad esempio last as integer

Il metodo per il download sar:

Sub getFiles()
 if last<=Session.mPDF.Ubound then
    AddHandler Session.mPDF(last).downloaded, WeakAddressOf checkForNextFile
    Session.mPDF(last).ForceDownload=true
    call Session.mPDF(last).Download
  else
    //Finiti resetto il contatore
    last=0
 end if
end Sub
//Questo  il metodo legato all'evento di download terminato
Sub checkForNextFile(f as WebFile)
//Rimuovo l'handler
  RemoveHandler Session.mPDF(last).downloaded, WeakAddressOf checkForNextFile
//Faccio le cose necessarie (conteggio download o altro)

//Aggiorno il contatore
  last=last+1
//Richiamo il metodo per scaricare
  getFiles
End Sub
3

Grazie mille Antonio.