Xbase++

Create a Temporary Public Link to a DropBox File

See more Dropbox Examples

Get a temporary link to stream content of a file. This link will expire in four hours and afterwards you will get 410 Gone. Xbase++

LOCAL nSuccess
LOCAL oHttp
LOCAL oJson
LOCAL oResp
LOCAL oSbResponseBody
LOCAL oJResp
LOCAL nRespStatusCode
LOCAL cTemplate_id
LOCAL j
LOCAL nCount_j
LOCAL cName
LOCAL cValue
LOCAL cMetadataName
LOCAL cMetadataId
LOCAL cMetadataClient_modified
LOCAL cMetadataServer_modified
LOCAL cMetadataRev
LOCAL nMetadataSize
LOCAL cMetadataPath_lower
LOCAL cMetadataPath_display
LOCAL nMetadataSharing_infoRead_only
LOCAL cMetadataSharing_infoParent_shared_folder_id
LOCAL cMetadataSharing_infoModified_by
LOCAL nMetadataIs_downloadable
LOCAL nMetadataHas_explicit_shared_members
LOCAL cMetadataContent_hash
LOCAL cLink
LOCAL i
LOCAL nCount_i

nSuccess := 0

//  This example assumes the Chilkat API to have been previously unlocked.
//  See Global Unlock Sample for sample code.

oHttp := CreateObject("Chilkat.Http")

//  Implements the following CURL command:

//  curl -X POST https://api.dropboxapi.com/2/files/get_temporary_link \
//      --header "Authorization: Bearer DROPBOX_ACCESS_TOKEN" \
//      --header "Content-Type: application/json" \
//      --data "{\"path\": \"/video.mp4\"}"

//  Use this online tool to generate code from sample JSON:
//  Generate Code to Create JSON

//  The following JSON is sent in the request body.

//  {
//    "path": "/video.mp4"
//  }

oJson := CreateObject("Chilkat.JsonObject")
oJson:UpdateString("path", "/video.mp4")

oHttp:SetRequestHeader("Authorization", "Bearer DROPBOX_ACCESS_TOKEN")

oResp := CreateObject("Chilkat.HttpResponse")
nSuccess := oHttp:HttpJson("POST", "https://api.dropboxapi.com/2/files/get_temporary_link", oJson, "application/json", oResp)
IF (nSuccess == 0)
    ? oHttp:LastErrorText
    oHttp:destroy()
    oJson:destroy()
    oResp:destroy()
    RETURN
ENDIF

oSbResponseBody := CreateObject("Chilkat.StringBuilder")
oResp:GetBodySb(oSbResponseBody)
oJResp := CreateObject("Chilkat.JsonObject")
oJResp:LoadSb(oSbResponseBody)
oJResp:EmitCompact := 0

? "Response Body:"
? oJResp:Emit()

nRespStatusCode := oResp:StatusCode
? "Response Status Code = " + Str(nRespStatusCode)
IF (nRespStatusCode >= 400)
    ? "Response Header:"
    ? oResp:Header
    ? "Failed."
    oHttp:destroy()
    oJson:destroy()
    oResp:destroy()
    oSbResponseBody:destroy()
    oJResp:destroy()
    RETURN
ENDIF

//  Sample JSON response:
//  (Sample code for parsing the JSON response is shown below)

//  {
//    "metadata": {
//      "name": "Prime_Numbers.txt",
//      "id": "id:a4ayc_80_OEAAAAAAAAAXw",
//      "client_modified": "2015-05-12T15:50:38Z",
//      "server_modified": "2015-05-12T15:50:38Z",
//      "rev": "a1c10ce0dd78",
//      "size": 7212,
//      "path_lower": "/homework/math/prime_numbers.txt",
//      "path_display": "/Homework/math/Prime_Numbers.txt",
//      "sharing_info": {
//        "read_only": true,
//        "parent_shared_folder_id": "84528192421",
//        "modified_by": "dbid:AAH4f99T0taONIb-OurWxbNQ6ywGRopQngc"
//      },
//      "is_downloadable": true,
//      "property_groups": [
//        {
//          "template_id": "ptid:1a5n2i6d3OYEAAAAAAAAAYa",
//          "fields": [
//            {
//              "name": "Security Policy",
//              "value": "Confidential"
//            }
//          ]
//        }
//      ],
//      "has_explicit_shared_members": false,
//      "content_hash": "e3b0c44298fc1c149afbf4c8996fb92427ae41e4649b934ca495991b7852b855"
//    },
//    "link": "https://dl.dropboxusercontent.com/apitl/1/YXNkZmFzZGcyMzQyMzI0NjU2NDU2NDU2"
//  }

//  Sample code for parsing the JSON response...
//  Use the following online tool to generate parsing code from sample JSON:
//  Generate Parsing Code from JSON

cMetadataName := oJResp:StringOf("metadata.name")
cMetadataId := oJResp:StringOf("metadata.id")
cMetadataClient_modified := oJResp:StringOf("metadata.client_modified")
cMetadataServer_modified := oJResp:StringOf("metadata.server_modified")
cMetadataRev := oJResp:StringOf("metadata.rev")
nMetadataSize := oJResp:IntOf("metadata.size")
cMetadataPath_lower := oJResp:StringOf("metadata.path_lower")
cMetadataPath_display := oJResp:StringOf("metadata.path_display")
nMetadataSharing_infoRead_only := oJResp:BoolOf("metadata.sharing_info.read_only")
cMetadataSharing_infoParent_shared_folder_id := oJResp:StringOf("metadata.sharing_info.parent_shared_folder_id")
cMetadataSharing_infoModified_by := oJResp:StringOf("metadata.sharing_info.modified_by")
nMetadataIs_downloadable := oJResp:BoolOf("metadata.is_downloadable")
nMetadataHas_explicit_shared_members := oJResp:BoolOf("metadata.has_explicit_shared_members")
cMetadataContent_hash := oJResp:StringOf("metadata.content_hash")
cLink := oJResp:StringOf("link")
i := 0
nCount_i := oJResp:SizeOfArray("metadata.property_groups")
DO WHILE i < nCount_i
    oJResp:I := i
    cTemplate_id := oJResp:StringOf("metadata.property_groups[i].template_id")
    j := 0
    nCount_j := oJResp:SizeOfArray("metadata.property_groups[i].fields")
    DO WHILE j < nCount_j
        oJResp:J := j
        cName := oJResp:StringOf("metadata.property_groups[i].fields[j].name")
        cValue := oJResp:StringOf("metadata.property_groups[i].fields[j].value")
        j := j + 1
    ENDDO
    i := i + 1
ENDDO

oHttp:destroy()
oJson:destroy()
oResp:destroy()
oSbResponseBody:destroy()
oJResp:destroy()