Chilkat • HOME • Android™ • AutoIt • C • C# • C++ • Chilkat2-Python • CkPython • Classic ASP • DataFlex • Delphi DLL • Go • Java • Node.js • Objective-C • PHP Extension • Perl • PowerBuilder • PowerShell • PureBasic • Ruby • SQL Server • Swift • Tcl • Unicode C • Unicode C++ • VB.NET • VBScript • Visual Basic 6.0 • Visual FoxPro • Xojo Plugin
(Delphi ActiveX) Google Cloud Storage: Update Object MetadataSee more Google Cloud Storage ExamplesDemonstrates how to update (edit) the metadata associated with an object in a Google Cloud Storage bucket. For more information, see https://cloud.google.com/storage/docs/viewing-editing-metadata#edit
uses Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics, Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls, Chilkat_TLB; ... procedure TForm1.Button1Click(Sender: TObject); var http: TChilkatHttp; success: Integer; bdRequestBody: TChilkatBinData; resp: IChilkatHttpResponse; sbResponseBody: TChilkatStringBuilder; jResp: TChilkatJsonObject; respStatusCode: Integer; begin // This example assumes the Chilkat API to have been previously unlocked. // See Global Unlock Sample for sample code. http := TChilkatHttp.Create(Self); // Implements the following CURL command: // curl -X PATCH --data-binary @JSON_FILE_NAME \ // -H "Authorization: Bearer OAUTH2_TOKEN" \ // -H "Content-Type: application/json" \ // "https://storage.googleapis.com/storage/v1/b/BUCKET_NAME/o/OBJECT_NAME" // Use the following online tool to generate HTTP code from a CURL command // Convert a cURL Command to HTTP Source Code bdRequestBody := TChilkatBinData.Create(Self); success := bdRequestBody.LoadFile('JSON_FILE_PATH'); if (success <> 1) then begin Memo1.Lines.Add('Failed to load JSON_FILE_PATH'); Exit; end; // Adds the "Authorization: Bearer OAUTH2_TOKEN" header. http.AuthToken := 'OAUTH2_TOKEN'; resp := http.PBinaryBd('PATCH','https://storage.googleapis.com/storage/v1/b/BUCKET_NAME/o/OBJECT_NAME',bdRequestBody.ControlInterface,'application/json',0,0); if (http.LastMethodSuccess = 0) then begin Memo1.Lines.Add(http.LastErrorText); Exit; end; sbResponseBody := TChilkatStringBuilder.Create(Self); resp.GetBodySb(sbResponseBody.ControlInterface); jResp := TChilkatJsonObject.Create(Self); jResp.LoadSb(sbResponseBody.ControlInterface); jResp.EmitCompact := 0; Memo1.Lines.Add('Response Body:'); Memo1.Lines.Add(jResp.Emit()); respStatusCode := resp.StatusCode; Memo1.Lines.Add('Response Status Code = ' + IntToStr(respStatusCode)); if (respStatusCode >= 400) then begin Memo1.Lines.Add('Response Header:'); Memo1.Lines.Add(resp.Header); Memo1.Lines.Add('Failed.'); Exit; end; end; |
© 2000-2025 Chilkat Software, Inc. All Rights Reserved.