(AutoIt) Create a Temporary Public Link to a DropBox File

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

For more information, see https://www.dropbox.com/developers/documentation/http/documentation#files-get_temporary_link

Chilkat ActiveX Downloads ActiveX for 32-bit and 64-bit Windows

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

$oHttp = ObjCreate("Chilkat.Http")
Local $bSuccess

; 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 = ObjCreate("Chilkat.JsonObject")
$oJson.UpdateString("path","/video.mp4")

$oHttp.SetRequestHeader "Authorization","Bearer DROPBOX_ACCESS_TOKEN"
$oHttp.SetRequestHeader "Content-Type","application/json"

Local $oResp = $oHttp.PostJson3("https://api.dropboxapi.com/2/files/get_temporary_link","application/json",$oJson)
If ($oHttp.LastMethodSuccess = False) Then
    ConsoleWrite($oHttp.LastErrorText & @CRLF)
    Exit
EndIf

$oSbResponseBody = ObjCreate("Chilkat.StringBuilder")
$oResp.GetBodySb($oSbResponseBody)
$oJResp = ObjCreate("Chilkat.JsonObject")
$oJResp.LoadSb($oSbResponseBody)
$oJResp.EmitCompact = False

ConsoleWrite("Response Body:" & @CRLF)
ConsoleWrite($oJResp.Emit() & @CRLF)

Local $iRespStatusCode = $oResp.StatusCode
ConsoleWrite("Response Status Code = " & $iRespStatusCode & @CRLF)
If ($iRespStatusCode >= 400) Then
    ConsoleWrite("Response Header:" & @CRLF)
    ConsoleWrite($oResp.Header & @CRLF)
    ConsoleWrite("Failed." & @CRLF)

    Exit
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

Local $sTemplate_id
Local $iJ
Local $iCount_j
Local $sName
Local $sValue

Local $sMetadataName = $oJResp.StringOf("metadata.name")
Local $sMetadataId = $oJResp.StringOf("metadata.id")
Local $sMetadataClient_modified = $oJResp.StringOf("metadata.client_modified")
Local $sMetadataServer_modified = $oJResp.StringOf("metadata.server_modified")
Local $sMetadataRev = $oJResp.StringOf("metadata.rev")
Local $iMetadataSize = $oJResp.IntOf("metadata.size")
Local $sMetadataPath_lower = $oJResp.StringOf("metadata.path_lower")
Local $sMetadataPath_display = $oJResp.StringOf("metadata.path_display")
Local $bMetadataSharing_infoRead_only = $oJResp.BoolOf("metadata.sharing_info.read_only")
Local $sMetadataSharing_infoParent_shared_folder_id = $oJResp.StringOf("metadata.sharing_info.parent_shared_folder_id")
Local $sMetadataSharing_infoModified_by = $oJResp.StringOf("metadata.sharing_info.modified_by")
Local $bMetadataIs_downloadable = $oJResp.BoolOf("metadata.is_downloadable")
Local $bMetadataHas_explicit_shared_members = $oJResp.BoolOf("metadata.has_explicit_shared_members")
Local $sMetadataContent_hash = $oJResp.StringOf("metadata.content_hash")
Local $sLink = $oJResp.StringOf("link")
Local $i = 0
Local $iCount_i = $oJResp.SizeOfArray("metadata.property_groups")
While $i < $iCount_i
    $oJResp.I = $i
    $sTemplate_id = $oJResp.StringOf("metadata.property_groups[i].template_id")
    $iJ = 0
    $iCount_j = $oJResp.SizeOfArray("metadata.property_groups[i].fields")
    While $iJ < $iCount_j
        $oJResp.J = $iJ
        $sName = $oJResp.StringOf("metadata.property_groups[i].fields[j].name")
        $sValue = $oJResp.StringOf("metadata.property_groups[i].fields[j].value")
        $iJ = $iJ + 1
    Wend
    $i = $i + 1
Wend