(Visual FoxPro) Initiate Resumable Upload Session

See more Google Cloud Storage Examples

Initiate a Google Cloud Storage resumable upload session..

For more information, see https://cloud.google.com/storage/docs/performing-resumable-uploads

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

LOCAL loHttp
LOCAL loJsonToken
LOCAL lnSuccess
LOCAL loJsonMetaData
LOCAL lcUrl
LOCAL loResp
LOCAL lnStatusCode
LOCAL lcSessionUrl

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

* For versions of Chilkat < 10.0.0, use CreateObject('Chilkat_9_5_0.Http')
loHttp = CreateObject('Chilkat.Http')

* For versions of Chilkat < 10.0.0, use CreateObject('Chilkat_9_5_0.JsonObject')
loJsonToken = CreateObject('Chilkat.JsonObject')
lnSuccess = loJsonToken.LoadFile("qa_data/tokens/googleCloudStorage.json")
IF (lnSuccess = 0) THEN
    ? loJsonToken.LastErrorText
    RELEASE loHttp
    RELEASE loJsonToken
    CANCEL
ENDIF

* For versions of Chilkat < 10.0.0, use CreateObject('Chilkat_9_5_0.JsonObject')
loJsonMetaData = CreateObject('Chilkat.JsonObject')
loJsonMetaData.UpdateString("contentType","image/jpeg")

* Adds the "Authorization: Bearer <access_token>" header..
loHttp.AuthToken = loJsonToken.StringOf("access_token")

loHttp.SetUrlVar("bucket_name","chilkat-bucket-b")
loHttp.SetUrlVar("object_name","penguins2.jpg")
lcUrl = "https://storage.googleapis.com/upload/storage/v1/b/{$bucket_name}/o?uploadType=resumable&name={$object_name}"
loResp = loHttp.PText("POST",lcUrl,loJsonMetaData.Emit(),"utf-8","application/json",0,0)
IF (loHttp.LastMethodSuccess = 0) THEN
    ? loHttp.LastErrorText
    RELEASE loHttp
    RELEASE loJsonToken
    RELEASE loJsonMetaData
    CANCEL
ENDIF

lnStatusCode = loResp.StatusCode
? "response status code = " + STR(lnStatusCode)

lcSessionUrl = ""

IF (lnStatusCode <> 200) THEN
    ? loResp.BodyStr
ELSE
    * The session URL will be used to upload the file in chunks, in subsequent HTTP POSTs...
    lcSessionUrl = loResp.GetHeaderField("Location")
    ? "Session URL = " + lcSessionUrl
ENDIF

RELEASE loResp

RELEASE loHttp
RELEASE loJsonToken
RELEASE loJsonMetaData