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
(Visual Basic 6.0) Google Cloud Storage List BucketsDemonstrates how to retrieve a list of buckets for a given project.
' 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" ' In this example, Get Google Cloud Storage OAuth2 Access Token, ' the service account access token was saved to a text file. This example fetches the access token from the file.. Dim sbToken As New ChilkatStringBuilder success = sbToken.LoadFile("qa_data/tokens/googleCloudStorageAccessToken.txt","utf-8") Dim http As New ChilkatHttp http.AuthToken = sbToken.GetAsString() ' For more info see Cloud Storage Documentation - Buckets: list ' Dim success As Long success = http.SetUrlVar("PROJECT_NAME","ChilkatCloud") Dim resp As ChilkatHttpResponse Set resp = http.QuickGetObj("https://www.googleapis.com/storage/v1/b?project={$PROJECT_NAME}") If (http.LastMethodSuccess = 0) Then Debug.Print http.LastErrorText Exit Sub End If Dim responseCode As Long responseCode = resp.StatusCode If (responseCode = 401) Then Debug.Print resp.BodyStr Debug.Print "If invalid credentials, then it is likely the access token expired." Debug.Print "Your app should automatically fetch a new access token and re-try." Exit Sub End If Debug.Print "Response code: " & responseCode Debug.Print "Response body" Dim json As New ChilkatJsonObject success = json.Load(resp.BodyStr) json.EmitCompact = 0 Debug.Print json.Emit() ' A response code = 200 indicates success, and the response body contains JSON such as this: ' { ' "kind": "storage#buckets", ' "items": [ ' { ' "kind": "storage#bucket", ' "id": "chilkat-bucket", ' "selfLink": "https://www.googleapis.com/storage/v1/b/chilkat-bucket", ' "projectNumber": "5332332985", ' "name": "chilkat-bucket", ' "timeCreated": "2018-10-23T00:04:44.507Z", ' "updated": "2018-10-23T00:04:44.507Z", ' "metageneration": "1", ' "iamConfiguration": { ' "bucketPolicyOnly": { ' "enabled": false ' } ' }, ' "location": "US", ' "storageClass": "MULTI_REGIONAL", ' "etag": "CAE=" ' }, ' { ' "kind": "storage#bucket", ' "id": "chilkat-images", ' "selfLink": "https://www.googleapis.com/storage/v1/b/chilkat-images", ' "projectNumber": "5332332985", ' "name": "chilkat-images", ' "timeCreated": "2018-10-23T11:24:43.000Z", ' "updated": "2018-10-23T11:24:43.000Z", ' "metageneration": "1", ' "iamConfiguration": { ' "bucketPolicyOnly": { ' "enabled": false ' } ' }, ' "location": "US", ' "storageClass": "MULTI_REGIONAL", ' "etag": "CAE=" ' } ' ] ' } ' Use this online tool to generate parsing code from sample JSON: ' Generate Parsing Code from JSON Dim kind As String Dim i As Long Dim count_i As Long Dim id As String Dim selfLink As String Dim projectNumber As String Dim name As String Dim timeCreated As String Dim updated As String Dim metageneration As String Dim iamConfigurationBucketPolicyOnlyEnabled As Long Dim location As String Dim storageClass As String Dim etag As String kind = json.StringOf("kind") i = 0 count_i = json.SizeOfArray("items") Do While i < count_i json.I = i kind = json.StringOf("items[i].kind") id = json.StringOf("items[i].id") selfLink = json.StringOf("items[i].selfLink") projectNumber = json.StringOf("items[i].projectNumber") name = json.StringOf("items[i].name") timeCreated = json.StringOf("items[i].timeCreated") updated = json.StringOf("items[i].updated") metageneration = json.StringOf("items[i].metageneration") iamConfigurationBucketPolicyOnlyEnabled = json.BoolOf("items[i].iamConfiguration.bucketPolicyOnly.enabled") location = json.StringOf("items[i].location") storageClass = json.StringOf("items[i].storageClass") etag = json.StringOf("items[i].etag") i = i + 1 Loop |
© 2000-2024 Chilkat Software, Inc. All Rights Reserved.