PowerBuilder

OneDrive -- Download Text File to Memory

See more OneDrive Examples

Downloads a text file (such as XML, JSON, plain-text, HTML, etc.) into a StringBuilder 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_SbXml
string ls_ExpectedCharset
string ls_Url

li_Success = 0

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

// This example uses the OAuth client credentials flow.
// See How to Create an Azure App Registration for OAuth 2.0 Client Credentials

// 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/hamlet.xml
loo_Http.SetUrlVar("item_path","Misc/hamlet.xml")
loo_Http.SetUrlVar("user_id","4fe732c3-322e-4a6b-b729-2fd1eb5c6104")

loo_SbXml = create oleobject
li_rc = loo_SbXml.ConnectToNewObject("Chilkat.StringBuilder")

ls_ExpectedCharset = "utf-8"
ls_Url = "https://graph.microsoft.com/v1.0/users/{$user_id}/drive/root:/{$item_path}:/content"
li_Success = loo_Http.DownloadSb(ls_Url,ls_ExpectedCharset,loo_SbXml)
if loo_Http.LastMethodSuccess <> 1 then
    Write-Debug loo_Http.LastErrorText
    destroy loo_Json
    destroy loo_Http
    destroy loo_SbXml
    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_SbXml
    return
end if

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


destroy loo_Json
destroy loo_Http
destroy loo_SbXml