|
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
(Classic ASP) Initiate Resumable Upload SessionSee more Google Cloud Storage ExamplesInitiate a Google Cloud Storage resumable upload session.. For more information, see https://cloud.google.com/storage/docs/performing-resumable-uploads
<html> <head> <meta http-equiv="Content-Type" content="text/html; charset=utf-8"> </head> <body> <% ' 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") set http = Server.CreateObject("Chilkat.Http") ' For versions of Chilkat < 10.0.0, use CreateObject("Chilkat_9_5_0.JsonObject") set jsonToken = Server.CreateObject("Chilkat.JsonObject") success = jsonToken.LoadFile("qa_data/tokens/googleCloudStorage.json") If (success = 0) Then Response.Write "<pre>" & Server.HTMLEncode( jsonToken.LastErrorText) & "</pre>" Response.End End If ' For versions of Chilkat < 10.0.0, use CreateObject("Chilkat_9_5_0.JsonObject") set jsonMetaData = Server.CreateObject("Chilkat.JsonObject") success = jsonMetaData.UpdateString("contentType","image/jpeg") ' Adds the "Authorization: Bearer <access_token>" header.. http.AuthToken = jsonToken.StringOf("access_token") success = http.SetUrlVar("bucket_name","chilkat-bucket-b") success = http.SetUrlVar("object_name","penguins2.jpg") url = "https://storage.googleapis.com/upload/storage/v1/b/{$bucket_name}/o?uploadType=resumable&name={$object_name}" ' resp is a Chilkat.HttpResponse Set resp = http.PText("POST",url,jsonMetaData.Emit(),"utf-8","application/json",0,0) If (http.LastMethodSuccess = 0) Then Response.Write "<pre>" & Server.HTMLEncode( http.LastErrorText) & "</pre>" Response.End End If statusCode = resp.StatusCode Response.Write "<pre>" & Server.HTMLEncode( "response status code = " & statusCode) & "</pre>" sessionUrl = "" If (statusCode <> 200) Then Response.Write "<pre>" & Server.HTMLEncode( resp.BodyStr) & "</pre>" Else ' The session URL will be used to upload the file in chunks, in subsequent HTTP POSTs... sessionUrl = resp.GetHeaderField("Location") Response.Write "<pre>" & Server.HTMLEncode( "Session URL = " & sessionUrl) & "</pre>" End If %> </body> </html> |
||||
© 2000-2024 Chilkat Software, Inc. All Rights Reserved.