Chilkat HOME Android™ Classic ASP C C++ C# Mono C# .NET Core C# C# UWP/WinRT DataFlex Delphi ActiveX Delphi DLL Visual FoxPro Java Lianja MFC Objective-C Perl PHP ActiveX PHP Extension PowerBuilder PowerShell PureBasic CkPython Chilkat2-Python Ruby SQL Server Swift 2 Swift 3,4,5... Tcl Unicode C Unicode C++ Visual Basic 6.0 VB.NET VB.NET UWP/WinRT VBScript Xojo Plugin Node.js Excel Go
(VB.NET UWP/WinRT) 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 Chilkat.StringBuilder sbToken.LoadFile("qa_data/tokens/googleCloudStorageAccessToken.txt","utf-8") Dim http As New Chilkat.Http http.AuthToken = sbToken.GetAsString() ' For more info see Cloud Storage Documentation - Buckets: list ' Dim success As Boolean = http.SetUrlVar("PROJECT_NAME","ChilkatCloud") Dim resp As Chilkat.HttpResponse = Await http.QuickGetObjAsync("https://www.googleapis.com/storage/v1/b?project={$PROJECT_NAME}") If (http.LastMethodSuccess = False) Then Debug.WriteLine(http.LastErrorText) Exit Sub End If Dim responseCode As Integer = resp.StatusCode If (responseCode = 401) Then Debug.WriteLine(resp.BodyStr) Debug.WriteLine("If invalid credentials, then it is likely the access token expired.") Debug.WriteLine("Your app should automatically fetch a new access token and re-try.") Exit Sub End If Debug.WriteLine("Response code: " & responseCode) Debug.WriteLine("Response body") Dim json As New Chilkat.JsonObject success = json.Load(resp.BodyStr) json.EmitCompact = False Debug.WriteLine(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 Integer Dim count_i As Integer 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 Boolean Dim location As String Dim storageClass As String Dim etag As String kind = json.StringOf("kind") i = 0 count_i = json.SizeOfArray("items") 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 End While |
© 2000-2022 Chilkat Software, Inc. All Rights Reserved.