(PowerBuilder) 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

integer li_rc
integer li_Success
oleobject loo_GAuth
oleobject loo_Rest
integer li_BAutoReconnect
oleobject loo_Json
string ls_JsonResponse

// This example will upload a file to Google Drive.
li_Success = 1

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

loo_GAuth = create oleobject
li_rc = loo_GAuth.ConnectToNewObject("Chilkat_9_5_0.AuthGoogle")
if li_rc < 0 then
    destroy loo_GAuth
    MessageBox("Error","Connecting to COM object failed")
    return
end if
loo_GAuth.Scope = "https://www.googleapis.com/auth/drive"
loo_GAuth.SubEmailAddress = "some.user@example.com"
loo_GAuth.ExpireNumSeconds = 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

loo_Rest = create oleobject
li_rc = loo_Rest.ConnectToNewObject("Chilkat_9_5_0.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 key)
li_Success = loo_Rest.SetAuthGoogle(loo_GAuth)

// A multipart upload to Google Drive needs a multipart/related Content-Type
li_Success = loo_Rest.AddHeader("Content-Type","multipart/related")

// Specify each part of the request.

// The 1st part is JSON with information about the file.
loo_Rest.PartSelector = "1"
li_Success = loo_Rest.AddHeader("Content-Type","application/json; charset=UTF-8")

loo_Json = create oleobject
li_rc = loo_Json.ConnectToNewObject("Chilkat_9_5_0.JsonObject")

li_Success = loo_Json.AddStringAt(-1,"title","helloWorld.txt")
li_Success = loo_Json.AddStringAt(-1,"description","A simple text file that says Hello World.")
li_Success = loo_Json.AddStringAt(-1,"mimeType","text/plain")
li_Success = loo_Rest.SetMultipartBodyString(loo_Json.Emit())

// The 2nd part is the file content.
// In this case, we'll upload a simple text file containing "Hello World!"
loo_Rest.PartSelector = "2"
li_Success = loo_Rest.AddHeader("Content-Type","text/plain")
li_Success = loo_Rest.SetMultipartBodyString("Hello World!")

// POST https://www.googleapis.com/upload/drive/v2/files
ls_JsonResponse = loo_Rest.FullRequestMultipart("POST","/upload/drive/v2/files?uploadType=multipart")
if loo_Rest.LastMethodSuccess <> 1 then
    Write-Debug loo_Rest.LastErrorText
    destroy loo_GAuth
    destroy loo_Rest
    destroy loo_Json
    return
end if

// Show the JSON response.
Write-Debug "Response Status Code: " + string(loo_Rest.ResponseStatusCode)
Write-Debug "Json Response: " + ls_JsonResponse


destroy loo_GAuth
destroy loo_Rest
destroy loo_Json