![]() |
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 DLL) S3 Delete Multiple ObjectsDemonstrates how to delete multiple objects in a single HTTP request. Note: This example requires Chilkat v11.0.0 or greater.
uses Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics, Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls, Http, StringTable, HttpResponse; ... procedure TForm1.Button1Click(Sender: TObject); var success: Boolean; http: HCkHttp; bucketName: PWideChar; objectName1: PWideChar; objectName2: PWideChar; objectName3: PWideChar; st: HCkStringTable; resp: HCkHttpResponse; begin success := False; // This example requires the Chilkat API to have been previously unlocked. // See Global Unlock Sample for sample code. http := CkHttp_Create(); // Insert your access key here: CkHttp_putAwsAccessKey(http,'ABQXXABC83ABCDEFVQXX'); // Insert your secret key here: CkHttp_putAwsSecretKey(http,'XXXXYYYYabcdABCD12345678xxxxyyyyzzzz'); bucketName := 'chilkattestbucket'; objectName1 := 'starfish.jpg'; // Delete a particular version of this object: objectName2 := 'conch.jpg; VersionId="3/L4kqtJlcpXroDTDmJ+rmSpXd3dIbrHY+MTRCxf3vjVBH40Nr8X8gdRQBpUMLUo"'; objectName3 := 'seaUrchin.jpg'; st := CkStringTable_Create(); CkStringTable_Append(st,objectName1); CkStringTable_Append(st,objectName2); CkStringTable_Append(st,objectName3); resp := CkHttpResponse_Create(); success := CkHttp_S3_DeleteObjects(http,bucketName,st,resp); if (success = False) then begin Memo1.Lines.Add(CkHttp__lastErrorText(http)); Exit; end; // Display the JSON response. Memo1.Lines.Add(CkHttpResponse__bodyStr(resp)); CkHttp_Dispose(http); CkStringTable_Dispose(st); CkHttpResponse_Dispose(resp); end; |
© 2000-2025 Chilkat Software, Inc. All Rights Reserved.