(PowerBuilder) List all Pages of Files in Google Drive

Demonstrates how iterate over pages to list files in Google Drive.

See Google Drive Files list for more optional HTTP parameters.

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

integer li_rc
integer li_Success
oleobject loo_GAuth
oleobject loo_Rest
integer li_BAutoReconnect
oleobject loo_Json
integer i
integer li_NumFiles
string ls_JsonResponse
integer li_PageNumber
string ls_PageToken
integer li_BContinueLoop
integer li_BHasMorePages

li_Success = 1

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

// This example uses a previously obtained access token having permission for the 
// Google Drive scope.

loo_GAuth = create oleobject
// Use "Chilkat_9_5_0.AuthGoogle" for versions of Chilkat < 10.0.0
li_rc = loo_GAuth.ConnectToNewObject("Chilkat.AuthGoogle")
if li_rc < 0 then
    destroy loo_GAuth
    MessageBox("Error","Connecting to COM object failed")
    return
end if
loo_GAuth.AccessToken = "GOOGLE-DRIVE-ACCESS-TOKEN"

loo_Rest = create oleobject
// Use "Chilkat_9_5_0.Rest" for versions of Chilkat < 10.0.0
li_rc = loo_Rest.ConnectToNewObject("Chilkat.Rest")

// Connect using TLS.
li_BAutoReconnect = 1
li_Success = loo_Rest.Connect("www.googleapis.com",443,1,li_BAutoReconnect)

// Provide the authentication credentials (i.e. the access token)
loo_Rest.SetAuthGoogle(loo_GAuth)

// Get 5 results per page for testing.  (The default page size is 100, with a max of 1000.
loo_Rest.AddQueryParam("pageSize","5")

loo_Json = create oleobject
// Use "Chilkat_9_5_0.JsonObject" for versions of Chilkat < 10.0.0
li_rc = loo_Json.ConnectToNewObject("Chilkat.JsonObject")

// Send the request for the 1st page.
ls_JsonResponse = loo_Rest.FullRequestNoBody("GET","/drive/v3/files")

li_PageNumber = 1

li_BContinueLoop = loo_Rest.LastMethodSuccess AND (loo_Rest.ResponseStatusCode = 200)

do while li_BContinueLoop = 1

    Write-Debug "---- Page " + string(li_PageNumber) + " ----"

    // Iterate over each file in the response and show the name, id, and mimeType.
    loo_Json.Load(ls_JsonResponse)

    // See the sample JSON response at the bottom of this example.
    li_NumFiles = loo_Json.SizeOfArray("files")
    i = 0
    do while i < li_NumFiles
        loo_Json.I = i
        Write-Debug "name: " + loo_Json.StringOf("files[i].name")
        Write-Debug "id: " + loo_Json.StringOf("files[i].id")
        Write-Debug "mimeType: " + loo_Json.StringOf("files[i].mimeType")
        Write-Debug "-"
        i = i + 1
    loop

    // Get the next page of files.
    // If the "nextPageToken" is present in the JSON response, then use it in the "pageToken" parameter
    // for the next request.   If no "nextPageToken" was present, then this was the last page of files.
    ls_PageToken = loo_Json.StringOf("nextPageToken")
    li_BContinueLoop = 0
    li_BHasMorePages = loo_Json.LastMethodSuccess
    if li_BHasMorePages = 1 then
        loo_Rest.ClearAllQueryParams()
        loo_Rest.AddQueryParam("pageSize","5")
        loo_Rest.AddQueryParam("pageToken",ls_PageToken)
        ls_JsonResponse = loo_Rest.FullRequestNoBody("GET","/drive/v3/files")
        li_BContinueLoop = loo_Rest.LastMethodSuccess AND (loo_Rest.ResponseStatusCode = 200)
        li_PageNumber = li_PageNumber + 1
    end if

loop

if loo_Rest.LastMethodSuccess <> 1 then
    Write-Debug loo_Rest.LastErrorText
    destroy loo_GAuth
    destroy loo_Rest
    destroy loo_Json
    return
end if

// A successful response will have a status code equal to 200.
if loo_Rest.ResponseStatusCode <> 200 then
    Write-Debug "response status code = " + string(loo_Rest.ResponseStatusCode)
    Write-Debug "response status text = " + loo_Rest.ResponseStatusText
    Write-Debug "response header: " + loo_Rest.ResponseHeader
    Write-Debug "response JSON: " + ls_JsonResponse
    destroy loo_GAuth
    destroy loo_Rest
    destroy loo_Json
    return
end if

// A successful JSON response looks like this:
// {
//  "kind": "drive#fileList",
//  "files": [
//    {
//      "kind": "drive#file",
//      "id": "0B53Q6OSTWYolenpjTEU4ekJlQUU",
//      "name": "test",
//      "mimeType": "application/vnd.google-apps.folder"
//    },
//    {
//      "kind": "drive#file",
//      "id": "0B53Q6OSTWYolRm4ycjZtdXhRaEE",
//      "name": "starfish4.jpg",
//      "mimeType": "image/jpeg"
//    },
//    {
//      "kind": "drive#file",
//      "id": "0B53Q6OSTWYolMWt2VzN0Qlo1UjA",
//      "name": "hamlet2.xml",
//      "mimeType": "text/xml"
//    },
// ...
//    {
//      "kind": "drive#file",
//      "id": "0B53Q6OSTWYolc3RhcnRlcl9maWxlX2Rhc2hlclYw",
//      "name": "Getting started",
//      "mimeType": "application/pdf"
//    }
//  ]
// }


destroy loo_GAuth
destroy loo_Rest
destroy loo_Json