Chilkat HOME .NET Core C# Android™ AutoIt C C# C++ Chilkat2-Python CkPython Classic ASP DataFlex Delphi ActiveX Delphi DLL Go Java Lianja Mono C# Node.js Objective-C PHP ActiveX PHP Extension Perl PowerBuilder PowerShell PureBasic Ruby SQL Server Swift 2 Swift 3,4,5... Tcl Unicode C Unicode C++ VB.NET VBScript Visual Basic 6.0 Visual FoxPro Xojo Plugin
(PureBasic) Upload File to Google Cloud StorageSee more Google Cloud Storage ExamplesDemonstrates how to upload a file to Google Cloud Storage.
IncludeFile "CkHttpResponse.pb" IncludeFile "CkHttp.pb" IncludeFile "CkStringBuilder.pb" IncludeFile "CkJsonObject.pb" IncludeFile "CkHttpRequest.pb" Procedure ChilkatExample() ; This example 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 ; scope "https://www.googleapis.com/auth/cloud-platform" jsonToken.i = CkJsonObject::ckCreate() If jsonToken.i = 0 Debug "Failed to create object." ProcedureReturn EndIf success.i = CkJsonObject::ckLoadFile(jsonToken,"qa_data/tokens/googleCloudStorage.json") If success = 0 Debug CkJsonObject::ckLastErrorText(jsonToken) CkJsonObject::ckDispose(jsonToken) ProcedureReturn EndIf ; Send a POST equivalent to this curl command. ; The content of the file is contained in the request body. ; curl -X POST --data-binary @[OBJECT] \ ; -H "Authorization: Bearer [OAUTH2_TOKEN]" \ ; -H "Content-Type: [OBJECT_CONTENT_TYPE]" \ ; "https://www.googleapis.com/upload/storage/v1/b/[BUCKET_NAME]/o?uploadType=media&name=[OBJECT_NAME]" http.i = CkHttp::ckCreate() If http.i = 0 Debug "Failed to create object." ProcedureReturn EndIf CkHttp::setCkAuthToken(http, CkJsonObject::ckStringOf(jsonToken,"access_token")) sbPath.i = CkStringBuilder::ckCreate() If sbPath.i = 0 Debug "Failed to create object." ProcedureReturn EndIf CkStringBuilder::ckAppend(sbPath,"/upload/storage/v1/b/bucket_name/o?uploadType=media&name=object_name") numReplaced.i = CkStringBuilder::ckReplace(sbPath,"bucket_name","chilkat-ocean") numReplaced = CkStringBuilder::ckReplace(sbPath,"object_name","penguins.jpg") req.i = CkHttpRequest::ckCreate() If req.i = 0 Debug "Failed to create object." ProcedureReturn EndIf CkHttpRequest::setCkHttpVerb(req, "POST") CkHttpRequest::setCkPath(req, CkStringBuilder::ckGetAsString(sbPath)) CkHttpRequest::setCkContentType(req, "image/jpeg") ; Indicate the file to be streamed in the request body when the HTTP POST is sent. CkHttpRequest::ckStreamBodyFromFile(req,"qa_data/jpg/penguins.jpg") resp.i = CkHttp::ckSynchronousRequest(http,"www.googleapis.com",443,1,req) If CkHttp::ckLastMethodSuccess(http) = 0 Debug CkHttp::ckLastErrorText(http) CkJsonObject::ckDispose(jsonToken) CkHttp::ckDispose(http) CkStringBuilder::ckDispose(sbPath) CkHttpRequest::ckDispose(req) ProcedureReturn EndIf responseCode.i = CkHttpResponse::ckStatusCode(resp) If responseCode = 401 Debug CkHttpResponse::ckBodyStr(resp) Debug "If invalid credentials, then it is likely the access token expired." Debug "Your app should automatically fetch a new access token and re-try." CkHttpResponse::ckDispose(resp) CkJsonObject::ckDispose(jsonToken) CkHttp::ckDispose(http) CkStringBuilder::ckDispose(sbPath) CkHttpRequest::ckDispose(req) ProcedureReturn EndIf Debug "Response code: " + Str(responseCode) Debug "Response body" Debug CkHttpResponse::ckBodyStr(resp) ; A successful response looks like this: ; Response code: 200 ; Response body ; { ; "kind": "storage#object", ; "id": "chilkat-ocean/penguins.jpg/1502643657837855", ; "selfLink": "https://www.googleapis.com/storage/v1/b/chilkat-ocean/o/penguins.jpg", ; "name": "penguins.jpg", ; "bucket": "chilkat-ocean", ; "generation": "1502643657837855", ; "metageneration": "1", ; "contentType": "image/jpeg", ; "timeCreated": "2017-08-13T17:00:57.811Z", ; "updated": "2017-08-13T17:00:57.811Z", ; "storageClass": "MULTI_REGIONAL", ; "timeStorageClassUpdated": "2017-08-13T17:00:57.811Z", ; "size": "777835", ; "md5Hash": "nTd7EM53jEk4s8fixjoimg==", ; "mediaLink": "https://www.googleapis.com/download/storage/v1/b/chilkat-ocean/o/penguins.jpg?generation=1502643657837855&alt=media", ; "crc32c": "ixxYVw==", ; "etag": "CJ+azOvX1NUCEAE=" ; } CkHttpResponse::ckDispose(resp) CkJsonObject::ckDispose(jsonToken) CkHttp::ckDispose(http) CkStringBuilder::ckDispose(sbPath) CkHttpRequest::ckDispose(req) ProcedureReturn EndProcedure |
© 2000-2024 Chilkat Software, Inc. All Rights Reserved.