Delphi ActiveX

Bunny Edge Storage - Upload File

See more Bunny CDN Examples

Upload a file to a storage zone based on the URL path. If the directory tree does not exist, it will be created automatically. The file content should be sent as the body of the request without any type of encoding. Delphi ActiveX

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
success: Integer;
http: TChilkatHttp;
localFilePath: WideString;
resp: TChilkatHttpResponse;
respStatusCode: Integer;

begin
success := 0;

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

http := TChilkatHttp.Create(Self);

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

// Here I am using a relative file path (relative to the current working directory of the process).
// You may wish to change it to an absolute file path, such as "C:/someDir/..." if on Windows.
localFilePath := 'qa_data/jpg/penguins.jpg';

// Important:
// 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??)

// If you use the incorrect storage endpoint, you will get a "401 Unauthorized" response.

// Make sure to change the "storageZoneName" to your actual storage zone name.
// You can choose to upload to a sub-directory, such as "testDir", or not.
resp := TChilkatHttpResponse.Create(Self);
success := http.HttpFile('PUT','https://uk.storage.bunnycdn.com/storageZoneName/testDir/penguins.jpg',localFilePath,'application/octet-stream',resp.ControlInterface);
if (success = 0) then
  begin
    Memo1.Lines.Add(http.LastErrorText);
    Exit;
  end;

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(resp.BodyStr);
    Memo1.Lines.Add('Failed.');
  end
else
  begin
    Memo1.Lines.Add('Success.');
  end;

// A 201 status code is returned for a successful upload.
// The response body for a successful upload is empty.
end;