When you upload a file, the file is saved in the local cache and should be uploaded automatically by the Dropbox service. Currently there isn't any event when the file is actually uploaded to the server. Dropbox service should retry to upload the file if there was a problem.
@luke2012 this library will only work if the user has a Dropbox account. When you first link the account the user will need to approve it. A dialog will be displayed asking the user to confirm this operation.
Not exactly. They will need to first install Dropbox app and register it with this account.
This API is more useful when you want the user to easily share his creations on multiple devices / computers.
Sub Manager_DownloadCompleted (Success As Boolean, LocalDir As String, LocalFileName As String)
I have now installed my app on another machine and get the following message:
In this phase of development of the app are only available for a limited number of users access token available "
View attachment 19839
Dim r As Reflector
Dim f As Object
f = r.CreateObject2("java.io.File", Array As Object(Fn), Array As String("java.lang.String"))
Dim share As Intent
share.Initialize(share.ACTION_SEND,"")
share.SetType("text/x-vcard")
share.PutExtra("android.intent.extra.STREAM", r.RunStaticMethod("android.net.Uri", "fromFile", Array As Object(f), Array As String("java.io.File")))
share.WrapAsIntentChooser("Adressdaten senden")
StartActivity(share)
Sub restoreDB_Dropbox
manager.LinkAccount
End Sub
Sub Manager_AccountReady (Success As Boolean)
If Success Then
Dim filesList As List
filesList.Initialize
For Each FileInfo As DbxFileInfo In manager.ListFiles("/")
filesList.Add(FileInfo.Name)
Next
Dim result As Int
result = InputList(filesList, trans.GetText("Choose Backup File"), -1)
Dim xFileName = filesList.Get(result)
Dim xFileNameComplete = File.DirRootExternal & "/MLB_Backup/" & xFileName
result = Msgbox2(trans.GetText("Confirm the Restore") & "?", xFileName, trans.GetText("Yes"), "", trans.GetText("No"), LoadBitmap (File.DirAssets, "question.ico"))
If result = DialogResponse.POSITIVE Then
manager.DownloadFile("/", xFileName, File.DirRootExternal & "/MLB_Backup", xFileName)
End If
End If
end sub
Sub Manager_DownloadCompleted (Success As Boolean, LocalDir As String, LocalFileName As String)
Dim xFileNameComplete = LocalDir & LocalFileName
myZip.ABUnzip(xFileNameComplete, File.DirDefaultExternal & "/")
Msgbox(trans.GetText("Now the application will be closed. Please restart."),"Restore completed")
ExitApplication
End Sub
sending message to waiting queue (manager_downloadcompleted)
We use cookies and similar technologies for the following purposes:
Do you accept cookies and these technologies?
We use cookies and similar technologies for the following purposes:
Do you accept cookies and these technologies?