(DataFlex) Google Drive Multipart Upload String

Demonstrates a file upload to Google Drive where the contents of the file are contained in a string variable.

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

Use ChilkatAx-9.5.0-win32.pkg

Procedure Test
    Boolean iSuccess
    Variant vGAuth
    Handle hoGAuth
    Handle hoRest
    Boolean iBAutoReconnect
    Handle hoJson
    String sJsonResponse
    String sTemp1
    Integer iTemp1
    Boolean bTemp1

    // This example will upload a file to Google Drive.
    Move True To iSuccess

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

    Get Create (RefClass(cComChilkatAuthGoogle)) To hoGAuth
    If (Not(IsComObjectCreated(hoGAuth))) Begin
        Send CreateComObject of hoGAuth
    End
    Set ComScope Of hoGAuth To "https://www.googleapis.com/auth/drive"
    Set ComSubEmailAddress Of hoGAuth To "some.user@example.com"
    Set ComExpireNumSeconds Of hoGAuth To 3600

    // Obtain an access token as shown in one of the following examples:
    // See Get Access Token using a Service Account JSON Key
    // See Get Access Token using a P12 File

    Get Create (RefClass(cComChilkatRest)) To hoRest
    If (Not(IsComObjectCreated(hoRest))) Begin
        Send CreateComObject of hoRest
    End

    // Connect using TLS.
    Move True To iBAutoReconnect
    Get ComConnect Of hoRest "www.googleapis.com" 443 True iBAutoReconnect To iSuccess

    // Provide the authentication credentials (i.e. the access key)
    Get pvComObject of hoGAuth to vGAuth
    Get ComSetAuthGoogle Of hoRest vGAuth To iSuccess

    // A multipart upload to Google Drive needs a multipart/related Content-Type
    Get ComAddHeader Of hoRest "Content-Type" "multipart/related" To iSuccess

    // Specify each part of the request.

    // The 1st part is JSON with information about the file.
    Set ComPartSelector Of hoRest To "1"
    Get ComAddHeader Of hoRest "Content-Type" "application/json; charset=UTF-8" To iSuccess

    Get Create (RefClass(cComChilkatJsonObject)) To hoJson
    If (Not(IsComObjectCreated(hoJson))) Begin
        Send CreateComObject of hoJson
    End
    Get ComAddStringAt Of hoJson -1 "title" "helloWorld.txt" To iSuccess
    Get ComAddStringAt Of hoJson -1 "description" "A simple text file that says Hello World." To iSuccess
    Get ComAddStringAt Of hoJson -1 "mimeType" "text/plain" To iSuccess
    Get ComEmit Of hoJson To sTemp1
    Get ComSetMultipartBodyString Of hoRest sTemp1 To iSuccess

    // The 2nd part is the file content.
    // In this case, we'll upload a simple text file containing "Hello World!"
    Set ComPartSelector Of hoRest To "2"
    Get ComAddHeader Of hoRest "Content-Type" "text/plain" To iSuccess
    Get ComSetMultipartBodyString Of hoRest "Hello World!" To iSuccess

    // POST https://www.googleapis.com/upload/drive/v2/files
    Get ComFullRequestMultipart Of hoRest "POST" "/upload/drive/v2/files?uploadType=multipart" To sJsonResponse
    Get ComLastMethodSuccess Of hoRest To bTemp1
    If (bTemp1 <> True) Begin
        Get ComLastErrorText Of hoRest To sTemp1
        Showln sTemp1
        Procedure_Return
    End

    // Show the JSON response.
    Get ComResponseStatusCode Of hoRest To iTemp1
    Showln "Response Status Code: " iTemp1
    Showln "Json Response: " sJsonResponse


End_Procedure