PowerBuilder

OneDrive -- Download Binary File to Memory

See more OneDrive Examples

Downloads a binary file (such as JPG, PDF, etc.) into a BinData object.

Note: This example requires Chilkat v9.5.0.97 or greater.

PowerBuilder

integer li_rc
integer li_Success
oleobject loo_Json
oleobject loo_Http
oleobject loo_FileData
string ls_Url

li_Success = 0

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

// Use your client ID, client secret, and tenant ID in the following lines
loo_Json = create oleobject
li_rc = loo_Json.ConnectToNewObject("Chilkat.JsonObject")
if li_rc < 0 then
    destroy loo_Json
    MessageBox("Error","Connecting to COM object failed")
    return
end if
loo_Json.UpdateString("client_id","2871da2c-8176-4b7f-869b-2311aa82e743")
loo_Json.UpdateString("client_secret","2hu9Q~~r5QuryUcEkNbg1btLtnfU1VUXzhSCG6brH")
loo_Json.UpdateString("scope","https://graph.microsoft.com/.default")
loo_Json.UpdateString("token_endpoint","https://login.microsoftonline.com/114d7ed6-71bf-4dbe-a866-748364121bf2/oauth2/v2.0/token")

loo_Http = create oleobject
li_rc = loo_Http.ConnectToNewObject("Chilkat.Http")

loo_Http.AuthToken = loo_Json.Emit()

// Sends the following GET request:
// GET https://graph.microsoft.com/v1.0/users/{user-id}/drive/root:/{item-path}:/content

// Make sure to automatically follow redirects
loo_Http.FollowRedirects = 1

// This example will download /Misc/starfish.jpg
loo_Http.SetUrlVar("item_path","Misc/starfish.jpg")
loo_Http.SetUrlVar("user_id","4fe732c3-322e-4a6b-b729-2fd1eb5c6104")

loo_FileData = create oleobject
li_rc = loo_FileData.ConnectToNewObject("Chilkat.BinData")

ls_Url = "https://graph.microsoft.com/v1.0/users/{$user_id}/drive/root:/{$item_path}:/content"
li_Success = loo_Http.DownloadBd(ls_Url,loo_FileData)
if loo_Http.LastMethodSuccess <> 1 then
    Write-Debug loo_Http.LastErrorText
    destroy loo_Json
    destroy loo_Http
    destroy loo_FileData
    return
end if

// If the response status code was not 200, then it failed.
if loo_Http.LastStatus <> 200 then
    Write-Debug "Response Status Code = " + string(loo_Http.LastStatus)
    Write-Debug "Failed."
    destroy loo_Json
    destroy loo_Http
    destroy loo_FileData
    return
end if

// If we got here, then the file was successfully downloaded.
Write-Debug "Download binary from OneDrive successful."
Write-Debug "The file is contained in fileData."


destroy loo_Json
destroy loo_Http
destroy loo_FileData