Lianja

Search for Files in Google Drive

See more Google Drive Examples

This example follows the same methodology for listing all files in Google Drive in pages, but applies a search filter. It shows how to apply a query parameter for filtering the file results. See the Google Drive Files list for more optional HTTP parameters. Lianja

llSuccess = .F.

llSuccess = .T.

// 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.

loGAuth = createobject("CkAuthGoogle")
loGAuth.AccessToken = "GOOGLE-DRIVE-ACCESS-TOKEN"

loRest = createobject("CkRest")

// Connect using TLS.
llBAutoReconnect = .T.
llSuccess = loRest.Connect("www.googleapis.com",443,.T.,llBAutoReconnect)

// Provide the authentication credentials (i.e. the access token)
loRest.SetAuthGoogle(loGAuth)

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

// Our search filter is to list all files containing ".jpg" (i.e. all JPG image files)
loRest.AddQueryParam("q","name contains '.jpg'")

loJson = createobject("CkJsonObject")

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

lnPageNumber = 1

llBContinueLoop = loRest.LastMethodSuccess and (loRest.ResponseStatusCode = 200)

do while llBContinueLoop = .T.

    ? "---- Page " + str(lnPageNumber) + " ----"

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

    lnNumFiles = loJson.SizeOfArray("files")
    i = 0
    do while i < lnNumFiles
        loJson.I = i
        ? "name: " + loJson.StringOf("files[i].name")
        ? "id: " + loJson.StringOf("files[i].id")
        ? "mimeType: " + loJson.StringOf("files[i].mimeType")
        ? "-"
        i = i + 1
    enddo

    // 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.
    lcPageToken = loJson.StringOf("nextPageToken")
    llBContinueLoop = .F.
    llBHasMorePages = loJson.LastMethodSuccess
    if (llBHasMorePages = .T.) then
        loRest.ClearAllQueryParams()
        loRest.AddQueryParam("pageSize","5")
        loRest.AddQueryParam("pageToken",lcPageToken)
        loRest.AddQueryParam("q","name contains '.jpg'")

        lcJsonResponse = loRest.FullRequestNoBody("GET","/drive/v3/files")
        llBContinueLoop = loRest.LastMethodSuccess and (loRest.ResponseStatusCode = 200)
        lnPageNumber = lnPageNumber + 1
    endif

enddo

if (loRest.LastMethodSuccess <> .T.) then
    ? loRest.LastErrorText
    release loGAuth
    release loRest
    release loJson
    return
endif

// A successful response will have a status code equal to 200.
if (loRest.ResponseStatusCode <> 200) then
    ? "response status code = " + str(loRest.ResponseStatusCode)
    ? "response status text = " + loRest.ResponseStatusText
    ? "response header: " + loRest.ResponseHeader
    ? "response JSON: " + lcJsonResponse
    release loGAuth
    release loRest
    release loJson
    return
endif



release loGAuth
release loRest
release loJson