B4A Class Dropbox API V2. All HTTP! All using httputils2

dbx.Initialize(Me,"DropBox","access_token",True)

dbx.GetAccount("dbid:AAB2cfhttqMg1RjLLRlFzYWWoY6lUpWKsKo")
' Event
Sub DropBox_Account(meta As Map)
    Log("Dropbox_Account: "&meta)
End Sub

dbx.GetCurrentAccount
' Event
Sub DropBox_CurrentAccount(meta As Map)
    Log("Dropbox_CurrentAccount: "&meta)
End Sub

dbx.GetSpaceUsage

' Event
Sub DropBox_SpaceUsage(space As Map)
    Log($"DropBox_SpaceUsage(${space})"$)
End Sub

dbx.GetMetadata("/b4arulez.gif")

' Event
Sub DropBox_MetaData(meta As Map)
    Log("Dropbox_MetaData: "&meta)
End Sub

dbx.Listfolder("/Export")
' dbx.ListfolderContinue is called from the result-sub
' automatically if there are more results

' Event
Sub DropBox_ListFolder(meta As Map)
    Log("Dropbox_Listfolder: "&meta)
    Dim cursor As String = meta.Get("cursor")
    Dim has_more As String = meta.Get("has_more")
    Dim entries As List = meta.Get("entries")
    For Each colentries As Map In entries
        Dim path_lower As String = colentries.Get("path_lower")
        Dim name As String = colentries.Get("name")
        filelistfolder.Add(name)

        Dim tag As String = colentries.Get(".tag")
    Next
    If has_more = True Then
        dbx.ListfolderContinue(cursor)
    Else
        Log("No more files")
        Log($"FilesInFolder(${filelistfolder.Size})"$)
        For i = 0 To filelistfolder.Size-1
            LogColor(filelistfolder.Get(i),Colors.Yellow)
        Next
        Dim resulting_files As List = WildCardFilesList(filelistfolder,"*.csv",True,True)
        For i = 0 To resulting_files.Size-1
            LogColor(resulting_files.Get(i),Colors.Green)
        Next

        'kvs.PutObject("filelistfolder", filelistfolder)
    End If

End Sub

dbx.GetLatestCursor("/",False)

' Event
Sub DropBox_LatestCursor(meta As Map)
    Log("DropBox_LatestCursor()")
    Dim cursor As String = meta.Get("cursor")
    longpollcursor = cursor
    kvs.PutSimple("longpollcursor",cursor)
    Log("longpollcursor set: "&cursor)
End Sub

dbx.Download("/9-patch-assets.zip",File.DirDefaultExternal,"9patch.zip")


' Event is missing as yet.

    Dim session As Map
    session.Initialize
    session.Put("srcpath","/storage/emulated/0/Download")
    session.Put("srcfile","20150716151904894.pdf")
    session.Put("dstpath","/Export")
    session.Put("dstfile","20150716151904894.pdf")
    session.Put("offset",0)
    session.Put("packetsize",16384)
    dbx.UploadSessionStart(session)
' This is raising multiple events.
Sub DropBox_UploadSessionStatus(session As Map)
    Dim pro As Double = session.Get("offset")/(session.Get("filesize")/100)
    Label1.Text = session.Get("offset")&" / "&session.Get("filesize")&" -> "&pro
End Sub
Sub DropBox_UploadSessionFinish(session As Map)
    Log("DropBox_UploadSessionFinish()")
    Log(session)
End Sub

dbx.Upload(extsdcard,"app-release.apk","/","app-releaseTEST.apk")
' Event
Sub DropBox_FileUpload(meta As Map)
    Log("Dropbox_FileUpload: "&meta)

    Dim path As String = meta.Get("path_lower")
    Log("Path: "&path)
    Dim rev As String = meta.Get("rev")
    Log("Rev: "&rev)
    Dim name As String = meta.Get("name")
    Log("Name: "&name)
    Dim size As Int = meta.Get("size")
    Log("FileSize: "&size)
    Dim client_modified As String = meta.Get("client_modified")
    Dim server_modified As String = meta.Get("server_modified")
    Log("ClientModified: "&client_modified)
    Log("ServerModified: "&server_modified)
End Sub

dbx.Search("","libmysql")
' Event
Sub DropBox_FileSearch(meta As Map)
    Log("Dropbox_FileSearch: "&meta)
End Sub

dbx.CreateFolder("/Export")
' Event
Sub DropBox_Createfolder(path As String,filename As String)
    Log($"DropBox_Createfolder(${path},${filename})"$)
End Sub

dbx.delete(("/9-patch-assets.zip")
' Event

    ' Copy a FILE
    ' Source and Destination should point to a file
    'dbx.copy("/Export/b4arulez.gif","/copyofb4arulez.gif")

    ' Copy a FOLDER
    'dbx.copy("/Export","/copyfoldertest")
    ' will resulting in creating a folder copyfoldertest
    ' and then all files from Export will be copied to copyfoldertest/

' Event
Sub Dropbox_copy(copyinfo As Map)
    Log($"DropBox_copy(${copyinfo})"$)
End Sub

    ' Move  a FILE
    ' Move a FILE
    'dbx.move("/copyofb4arulez.gif","/newnameofb4arulez.gif")

    ' Move a FOLDER
    dbx.move("/copyfoldertest","/newdestfoldertest")

' Event
Sub Dropbox_move(moveinfo As Map)
    Log($"DropBox_copy(${moveinfo})"$)
End Sub

  dbx.GetThumbnail("/2000likes.png","png","s")
   'Parameters
   'format jpeg (default) Or png. For images that are photos,
   ' jpeg should be preferred, While png Is better For screenshots And digital art.
  '
  ' size One of the following values (default: s):
  'value   dimensions (px)
  ' xs     32x32
  ' s       64x64
  ' m       128x128
  ' l       640x480
  ' xl     1024x768

' Event
Sub Dropbox_Thumbnail(thumb As Bitmap, Tag As Object)
   Log($"DropBox_Thumbnail(${Tag})"$)
   iv1.Bitmap = thumb
End Sub

dbx.GetRevisions("/B4A/LibMySQL/MySQLExample.zip",100)
' Event
Sub DropBox_Revisions(revlist As Map)
   Log("DropBox_Revisions()")
   Log(revlist)
   Dim is_deleted As String = revlist.Get("is_deleted")
   Dim entries As List = revlist.Get("entries")
   For Each colentries As Map In entries
     Dim path As String = colentries.Get("path_lower")
     Dim revision As String = colentries.Get("rev")
     Dim name As String = colentries.Get("name")
     Dim client_modified As String = colentries.Get("client_modified")
     Dim size As Int = colentries.Get("size")
     Dim server_modified As String = colentries.Get("server_modified")
     Log($"FileRev(${path}):${revision}->${size} "$)
   Next


   'kvs.PutSimple("longpollcursor",cursor)
End Sub