Delphi DLL

Bunny Edge Storage - List Files

See more Bunny CDN Examples

Retrieve a list of files and directories located in the given directory. Delphi DLL

uses
    Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
    Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls, Http, StringBuilder, JsonArray, JsonObject;

...

procedure TForm1.Button1Click(Sender: TObject);
var
success: Boolean;
http: HCkHttp;
sbResponse: HCkStringBuilder;
statusCode: Integer;
jarr: HCkJsonArray;
json: HCkJsonObject;
Guid: PWideChar;
StorageZoneName: PWideChar;
Path: PWideChar;
ObjectName: PWideChar;
Length: Integer;
LastChanged: PWideChar;
ServerId: Integer;
ArrayNumber: Integer;
IsDirectory: Boolean;
UserId: PWideChar;
ContentType: PWideChar;
DateCreated: PWideChar;
StorageZoneId: Integer;
Checksum: PWideChar;
ReplicatedZones: PWideChar;
i: Integer;
count_i: Integer;

begin
success := False;

// This example assumes the Chilkat API to have been previously unlocked.
// See Global Unlock Sample for sample code.

http := CkHttp_Create();

// Use the "Password" from the "FTP & HTTP API Access" console web page for your Bunny storage zone.
CkHttp_SetRequestHeader(http,'AccessKey','YOUR_FTP_AND_HTTP_PASSWORD');

// Storage Endpoints:
// The storage API endpoint depends on the primary storage region of your storage zone. You can also find this in the FTP & HTTP API Information of your storage zone.

// Falkenstein: storage.bunnycdn.com
// New York: ny.storage.bunnycdn.com
// Los Angeles: la.storage.bunnycdn.com
// Singapore: sg.storage.bunnycdn.com
// Sydney: syd.storage.bunnycdn.com
// London: uk.storage.bunnycdn.com
// ... (possibly others??)

sbResponse := CkStringBuilder_Create();

// Change the "storageZoneName" to your actual storage zone name.
success := CkHttp_QuickGetSb(http,'https://uk.storage.bunnycdn.com/storageZoneName/testDir/',sbResponse);
if (success = False) then
  begin
    Memo1.Lines.Add(CkHttp__lastErrorText(http));
    Exit;
  end;

statusCode := CkHttp_getLastStatus(http);
Memo1.Lines.Add('Status code = ' + IntToStr(statusCode));

if (statusCode <> 200) then
  begin
    Memo1.Lines.Add(CkStringBuilder__getAsString(sbResponse));
    Memo1.Lines.Add('Failed.');
    Exit;
  end;

jarr := CkJsonArray_Create();
CkJsonArray_LoadSb(jarr,sbResponse);
CkJsonArray_putEmitCompact(jarr,False);

Memo1.Lines.Add(CkJsonArray__emit(jarr));

// Here is a sample response.  Parsing code is shown below..

// [
//   {
//     "Guid": "ebd9ccff-faf7-449d-9c71-8662b9f3cf41",
//     "StorageZoneName": "chilkat",
//     "Path": "/chilkat/testDir/",
//     "ObjectName": "seahorse.jpg",
//     "Length": 24388,
//     "LastChanged": "2023-04-21T15:59:08.382",
//     "ServerId": 586,
//     "ArrayNumber": 0,
//     "IsDirectory": false,
//     "UserId": "6d26ab35-2914-422c-9378-d51f38166e53",
//     "ContentType": "",
//     "DateCreated": "2023-04-21T15:59:08.382",
//     "StorageZoneId": 266805,
//     "Checksum": "0503558E7B4D141C067BEECFD06F87F6F58B81E37918310F82C7C4077D27BD1D",
//     "ReplicatedZones": "SE,DE,LA,SG,JH,BR,SYD,NY"
//   },
//   {
//     "Guid": "e74b85f8-4d5d-459e-a2fc-0fcfa8c926aa",
//     "StorageZoneName": "chilkat",
//     "Path": "/chilkat/testDir/",
//     "ObjectName": "seal.jpg",
//     "Length": 342708,
//     "LastChanged": "2023-04-21T15:59:08.763",
//     "ServerId": 586,
//     "ArrayNumber": 2,
//     "IsDirectory": false,
//     "UserId": "6d26ab35-2914-422c-9378-d51f38166e53",
//     "ContentType": "",
//     "DateCreated": "2023-04-21T15:59:08.763",
//     "StorageZoneId": 266805,
//     "Checksum": "C95F946A0299CE39C20A072B3DC581446B2EE2D94CA93901B58604F4EFB8AAB5",
//     "ReplicatedZones": "DE,SE,SG,LA,JH,BR,SYD,NY"
//   },
//   {
//     "Guid": "ca80cdbd-c6cf-445d-b367-0b33de7ae65a",
//     "StorageZoneName": "chilkat",
//     "Path": "/chilkat/testDir/",
//     "ObjectName": "university.jpg",
//     "Length": 277581,
//     "LastChanged": "2023-04-21T15:59:10.142",
//     "ServerId": 586,
//     "ArrayNumber": 0,
//     "IsDirectory": false,
//     "UserId": "6d26ab35-2914-422c-9378-d51f38166e53",
//     "ContentType": "",
//     "DateCreated": "2023-04-21T15:59:10.142",
//     "StorageZoneId": 266805,
//     "Checksum": "96A10EAA1B778C066739A6233206022DB219B67A8775401D7865F40E6DD83571",
//     "ReplicatedZones": "DE,SE,SG,JH,BR,LA,SYD,NY"
//   }
// ]

// Use this online tool to generate parsing code from sample JSON: 
// Generate Parsing Code from JSON

i := 0;
count_i := CkJsonArray_getSize(jarr);
while i < count_i do
  begin
    json := CkJsonArray_ObjectAt(jarr,i);
    Guid := CkJsonObject__stringOf(json,'Guid');
    StorageZoneName := CkJsonObject__stringOf(json,'StorageZoneName');
    Path := CkJsonObject__stringOf(json,'Path');
    ObjectName := CkJsonObject__stringOf(json,'ObjectName');
    Length := CkJsonObject_IntOf(json,'Length');
    LastChanged := CkJsonObject__stringOf(json,'LastChanged');
    ServerId := CkJsonObject_IntOf(json,'ServerId');
    ArrayNumber := CkJsonObject_IntOf(json,'ArrayNumber');
    IsDirectory := CkJsonObject_BoolOf(json,'IsDirectory');
    UserId := CkJsonObject__stringOf(json,'UserId');
    ContentType := CkJsonObject__stringOf(json,'ContentType');
    DateCreated := CkJsonObject__stringOf(json,'DateCreated');
    StorageZoneId := CkJsonObject_IntOf(json,'StorageZoneId');
    Checksum := CkJsonObject__stringOf(json,'Checksum');
    ReplicatedZones := CkJsonObject__stringOf(json,'ReplicatedZones');
    CkJsonObject_Dispose(json);
    i := i + 1;
  end;

CkHttp_Dispose(http);
CkStringBuilder_Dispose(sbResponse);
CkJsonArray_Dispose(jarr);

end;