In die Cloud hochladen

Aufbau

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

Typ

Funktion

Beschreibung

Diese Funktion versucht, die Datei „sFileName“ auf den in „sService“ angegebenen Cloud-Dienst hochzuladen. Die Funktion gibt „SUCCESS“ zurück, wenn der Upload erfolgreich war – andernfalls wird der Fehler zurückgegeben. Wenn der Parameter „sFolder“ angegeben wird, wird die Datei in diesen Ordner hochgeladen. Falls der Ordner nicht vorhanden ist, wird er automatisch angelegt. Wenn der Parameter „sFolder“ leer ist, wird die Datei in das Stammverzeichnis hochgeladen. Wenn der Parameter „bOverwrite“ auf „True“ gesetzt ist und eine Datei mit diesem Namen bereits in der Cloud vorhanden ist, wird die Datei vor dem Hochladen zunächst gelöscht. Wenn bei der Ausführung kein Token für den Cloud-Dienst vorhanden ist UND der Parameter „bAuth“ auf „True“ gesetzt ist, wird der Anmeldebildschirm des Dienstes in einem Browserfenster angezeigt. Dieses Token wird für zukünftige Sitzungen gespeichert.

Parameter: 5

sService = Name des Online-Cloud-Dienstes. Zulässige Werte sind: „BOX“ (box.com) und „DROPBOX“ (dropbox.com)

sFileName = Name der hochzuladenden Datei (KEIN Verzeichnis). Die Datei muss im IndySoft-Temp-Verzeichnis vorhanden sein
. sFolder = optionaler Ordner in der Cloud, in den die Datei hochgeladen werden soll. Wenn dieses Feld leer ist, wird die Datei in das Stammverzeichnis hochgeladen.

bOverwrite = Wenn der Parameter bOverwrite auf „True“ gesetzt ist und bereits eine Datei mit diesem Namen in der Cloud vorhanden ist, wird die Datei vor dem Hochladen zunächst gelöscht.

bAllowAuth = Wenn zuvor in der Datenbank gespeicherte Tokens nicht gefunden werden und/oder keinen Zugriff auf den Online-Dienst ermöglichen, legt dieser Parameter fest, ob ein Browserfenster angezeigt werden soll, in dem Anmeldedaten eingegeben werden können. Wenn dieses Skript in einer automatisierten/unbeaufsichtigten Umgebung ausgeführt werden soll, sollte dieser Parameter auf „False“ gesetzt werden.

Rückgabewert

Text

Beispiele

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("Upload wurde nicht abgeschlossen: " & sFileName)

End If

DeleteTempFile(sFileName)

End If |