Carregar para a nuvem

Estrutura

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

Tipo

Função

Descrição

Esta função tentará carregar o ficheiro sFileName para o serviço na nuvem especificado em sService. A função devolverá «SUCCESS» se o carregamento tiver sido bem-sucedido; caso contrário, será devolvida a condição de erro. Se o parâmetro sFolder for especificado, o ficheiro será carregado para essa pasta. Se a pasta não existir, será criada automaticamente. Se o parâmetro sFolder estiver vazio, o ficheiro será carregado para o diretório raiz. Se o parâmetro bOverwrite for True e já existir um ficheiro com esse nome na nuvem, o ficheiro será primeiro eliminado antes do carregamento. Após a execução, se não existir nenhum token para o serviço na nuvem E o parâmetro bAuth for True, a página de início de sessão do serviço será apresentada numa janela do navegador. Este token será guardado para sessões futuras.

Parâmetros: 5

sService = o nome do serviço na nuvem. Os valores aceitáveis são: «BOX» (box.com) e «DROPBOX» (dropbox.com)

sFileName = o nome do ficheiro a carregar (NÃO um diretório). O ficheiro deve existir no diretório IndySoft Temp
sFolder = pasta opcional na nuvem para onde o ficheiro deve ser carregado. Se este parâmetro estiver vazio, o ficheiro será carregado para o diretório raiz.

bOverwrite = se o parâmetro bOverwrite for True e já existir um ficheiro com este nome na nuvem, o ficheiro será primeiro eliminado antes do carregamento.

bAllowAuth = Se os tokens anteriores guardados na base de dados não forem encontrados e/ou não permitirem o acesso ao serviço online, este parâmetro determina se deve ser apresentada uma janela do navegador para permitir a introdução das credenciais. Se este script se destinar a ser executado numa configuração automatizada/sem supervisão, este parâmetro deve ser definido como False.

Valor de retorno

Texto

Exemplos

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("O upload não foi concluído: " & sFileName)

End If

DeleteTempFile(sFileName)

End If |