Carica su cloud

Struttura

UploadToCloud(sService, sFileName, sFolder: Text; bOverwrite, bAllowAuth: Boolean): Text

Tipo

Funzione

Descrizione

Questa funzione tenterà di caricare il file sFileName sul servizio cloud specificato in sService. La funzione restituirà "SUCCESS" se il caricamento è andato a buon fine; in caso contrario, verrà restituito un messaggio di errore. Se viene specificato il parametro sFolder, il file verrà caricato in quella cartella. Se la cartella non esiste, verrà creata automaticamente. Se il parametro sFolder è vuoto, il file verrà caricato nella directory principale. Se il parametro bOverwrite è impostato su True e nel cloud esiste già un file con questo nome, il file verrà prima eliminato prima del caricamento. All'esecuzione, se non esiste alcun token per il servizio cloud E il parametro bAuth è impostato su True, verrà visualizzata la schermata di accesso al servizio in una finestra del browser. Questo token verrà memorizzato per le sessioni future.

Parametri: 5

sService = il nome del servizio cloud online. I valori ammessi sono: 'BOX' (box.com) e 'DROPBOX' (dropbox.com)

sFileName = il nome del file da caricare (NON una cartella). Il file deve trovarsi nella directory IndySoft Temp
sFolder = cartella facoltativa nel Cloud in cui il file deve essere caricato. Se questo parametro è vuoto, il file verrà caricato nella directory principale.

bOverwrite = se il parametro bOverwrite è impostato su True e nel Cloud esiste già un file con questo nome, il file verrà prima eliminato prima del caricamento.

bAllowAuth = Se i token precedentemente salvati nel database non vengono trovati e/o non consentono l'accesso al servizio online, questo parametro determina se deve essere visualizzata una finestra del browser per consentire l'inserimento delle credenziali. Se questo script è destinato a essere eseguito in un ambiente automatizzato/senza supervisione, questo parametro deve essere impostato su False.

Valore restituito

Testo

Esempi

sCompany = "ABC COMPANY"

sEquip = "ABC123"

sFileName = sCompany & "-" & sEquip & ".zip"

sResult = ExportAsset(sCompany, sEquip, sFileName, "")

if sResult = "SUCCESS" then

sResult = UploadToCloud("DROPBOX", sFileName, "", False, False)

if sResult <> "SUCCESS" then

ShowMessage("Il caricamento non è stato completato: " & sFileName)

End If

DeleteTempFile(sFileName)

End If |