|
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
(DataFlex) Amazon S3 List More than 1000 Objects in BucketSee more Amazon S3 ExamplesS3 limits the size of the "List Objects" response to 1000 objects. To retrieve a listing of all of the objects in a bucket containing more than 1000 objects, we'll need to send several requests using continuation tokens.
Use ChilkatAx-win32.pkg Procedure Test Handle hoHttp Handle hoSbContinuationToken Boolean iBGetMore Handle hoSbUri Handle hoXml Boolean iSuccess String sItemKey String sItemSizeDecimalStr String sLastModTimestamp Handle hoDt String sStrXml Integer iNumItems Integer i Boolean iBLocal Variant vDtObj Handle hoDtObj String sTemp1 Integer iTemp1 Integer iTemp2 Integer iTemp3 Integer iTemp4 Integer iTemp5 Boolean bTemp1 // This example assumes the Chilkat HTTP API to have been previously unlocked. // See Global Unlock Sample for sample code. Get Create (RefClass(cComChilkatHttp)) To hoHttp If (Not(IsComObjectCreated(hoHttp))) Begin Send CreateComObject of hoHttp End // Insert your access key here: Set ComAwsAccessKey Of hoHttp To "AWS_ACCESS_KEY" // Insert your secret key here: Set ComAwsSecretKey Of hoHttp To "AWS_SECRET_KEY" // For the example, we'll get a listing containing approx. 25 objects // using continuation tokens with an artificially low max-keys set to 5. // (You may omit the max-keys query parameter to get the default 1000 maximum // number of keys per request.) Get Create (RefClass(cComChilkatStringBuilder)) To hoSbContinuationToken If (Not(IsComObjectCreated(hoSbContinuationToken))) Begin Send CreateComObject of hoSbContinuationToken End Move True To iBGetMore Get Create (RefClass(cComChilkatStringBuilder)) To hoSbUri If (Not(IsComObjectCreated(hoSbUri))) Begin Send CreateComObject of hoSbUri End Get Create (RefClass(cComChilkatXml)) To hoXml If (Not(IsComObjectCreated(hoXml))) Begin Send CreateComObject of hoXml End Get Create (RefClass(cComCkDateTime)) To hoDt If (Not(IsComObjectCreated(hoDt))) Begin Send CreateComObject of hoDt End While (iBGetMore = True) // Make sure to set the "list-type" query param equal to "2". // This chooses the GET Bucket (List Objects) Version 2 of the method. // IMPORTANT: You must include the max-keys param to get a response with a continuation token. // S3 limits the number of objects in a single response to 1000. Therefore, your max-keys // can be up to 1000. If, for example, you have 2000 objects and do not specify // max-keys, then the response will contain 1000 objects with no continuation token. Get ComSetString Of hoSbUri "chilkat100?list-type=2&max-keys=5" To iSuccess Get ComLength Of hoSbContinuationToken To iTemp1 If (iTemp1 > 0) Begin Get ComAppend Of hoSbUri "&continuation-token=" To iSuccess Get ComGetEncoded Of hoSbContinuationToken "url" "utf-8" To sTemp1 Get ComAppend Of hoSbUri sTemp1 To iSuccess End Get ComGetAsString Of hoSbUri To sTemp1 Get ComS3_ListBucketObjects Of hoHttp sTemp1 To sStrXml Get ComLastMethodSuccess Of hoHttp To bTemp1 If (bTemp1 <> True) Begin Get ComLastErrorText Of hoHttp To sTemp1 Showln sTemp1 Procedure_Return End Get ComLastStatus Of hoHttp To iTemp1 Showln "Response status code = " iTemp1 Get ComLoadXml Of hoXml sStrXml To iSuccess If (iSuccess <> True) Begin Get ComLastErrorText Of hoXml To sTemp1 Showln sTemp1 Procedure_Return End // If the response status code was not 200, then the XML response is not a // listing of objects, but instead contains error information. Get ComLastStatus Of hoHttp To iTemp1 If (iTemp1 <> 200) Begin Get ComGetXml Of hoXml To sTemp1 Showln sTemp1 Showln "Failed." Procedure_Return End // If this is not the final response, then we'll get an XML response that begins // like this. (The IsTruncated child will be "true", and the NextContinuationToken // will have a value to be used in the next request.) // <?xml version="1.0" encoding="UTF-8" ?> // <ListBucketResult xmlns="http://s3.amazonaws.com/doc/2006-03-01/"> // <Name>chilkat100</Name> // <Prefix /> // <NextContinuationToken>1Mlcx+W9OKsr8cxp3DP6r71wgsTUMj0vqlntWoaJKNbYdrauLdf40LsUdBeSYGFhzbGIHdcf5DSLcEBWbqG+1fW1UcQkUW1V4qgQONAKOwb8y8vOLJAQ8iQ==</NextContinuationToken> // <KeyCount>5</KeyCount> // <MaxKeys>5</MaxKeys> // <IsTruncated>true</IsTruncated> // // Iterate over the bucket items in this chunk get information for each.. Get ComNumChildrenHavingTag Of hoXml "Contents" To iNumItems Showln "Number of bucket items = " iNumItems Move 0 To i While (i < iNumItems) Set ComI Of hoXml To i Get ComGetChildContent Of hoXml "Contents[i]|Key" To sItemKey Get ComGetChildContent Of hoXml "Contents[i]|Size" To sItemSizeDecimalStr Get ComGetChildContent Of hoXml "Contents[i]|LastModified" To sLastModTimestamp Get ComSetFromRfc822 Of hoDt sLastModTimestamp To iSuccess // Get a local date/time. Move True To iBLocal Get ComGetDtObj Of hoDt iBLocal To vDtObj If (IsComObject(vDtObj)) Begin Get Create (RefClass(cComChilkatDtObj)) To hoDtObj Set pvComObject Of hoDtObj To vDtObj End Get ComDay Of hoDtObj To iTemp1 Get ComMonth Of hoDtObj To iTemp2 Get ComYear Of hoDtObj To iTemp3 Get ComHour Of hoDtObj To iTemp4 Get ComMinute Of hoDtObj To iTemp5 Showln i ": " sItemKey ", " sItemSizeDecimalStr ", " iTemp1 "-" iTemp2 "-" iTemp3 ":" iTemp4 ":" iTemp5 Send Destroy of hoDtObj Move (i + 1) To i Loop // Check IsTruncated. Move False To iBGetMore Get ComChildContentMatches Of hoXml "IsTruncated" "true" True To bTemp1 If (bTemp1 = True) Begin Get ComGetChildContent Of hoXml "NextContinuationToken" To sTemp1 Get ComSetString Of hoSbContinuationToken sTemp1 To iSuccess Get ComLength Of hoSbContinuationToken To iTemp1 If (iTemp1 > 0) Begin Move True To iBGetMore End End Loop // The output of this example (when tested) was: // Response status code = 200 // Number of bucket items = 5 // 0: Abc.ics, 1833, 25-5-2011:9:53 // 1: Corpse Bride film poster.jpg, 53481, 6-9-2016:13:32 // 2: chiliPepper.gif, 7718, 12-3-2017:12:18 // 3: chilkatdude.jpg, 35137, 20-5-2011:16:14 // 4: cloud.search/dfe/indexer/pscc/2016/3/28/id,x-2-15-0-25-87-0.json, 1238, 2-4-2016:12:0 // Response status code = 200 // Number of bucket items = 5 // 0: cloud.search/dfe/indexer/pscc/2016/3/28/idx-2-15-0-25-87-0.json, 1238, 2-4-2016:11:33 // 1: dude.gif, 6373, 25-5-2011:17:29 // 2: french.txt, 47, 12-3-2017:12:18 // 3: hamlet.xml, 279658, 2-5-2016:12:21 // 4: hamlet_play.xml, 279658, 20-3-2017:8:22 // Response status code = 200 // Number of bucket items = 5 // 0: images/sea_creatures/starfish123.jpg, 6229, 19-1-2017:10:45 // 1: images/sea_creatures/starfishåäö.jpg, 6229, 19-1-2017:12:7 // 2: new folder/, 0, 26-11-2014:12:36 // 3: new_starfish.jpg, 6229, 20-3-2017:8:22 // 4: pigs.xml, 2804, 20-3-2017:8:22 // Response status code = 200 // Number of bucket items = 5 // 0: somethingBig.zip, 13089458, 26-9-2016:9:29 // 1: starfish.jpg, 6229, 12-3-2017:12:18 // 2: starfish/, 0, 10-11-2014:10:7 // 3: starfish/starfish.jpg, 6229, 10-11-2014:10:8 // 4: starfish/starfish2.jpg, 6229, 19-11-2014:10:36 // Response status code = 200 // Number of bucket items = 5 // 0: starfish/starfish3.jpg, 6229, 24-11-2014:14:33 // 1: starfish2.jpg, 5987, 20-4-2012:12:6 // 2: starfish3.jpg, 5987, 11-4-2012:7:10 // 3: starfishA.jpg, 6229, 10-5-2016:8:44 // 4: starfishCust.jpg, 6229, 12-11-2014:18:25 // Response status code = 200 // Number of bucket items = 1 // 0: xyz.ics, 1833, 25-5-2011:8:52 // // End_Procedure |
||||
© 2000-2024 Chilkat Software, Inc. All Rights Reserved.