var S3 := TS3Client.Create;
var LUploader := TS3FileUploader.Create(
S3)
as IS3FileUploader;
LUploader.Upload(
'/path/to/file',
'a-destination-bucket',
'a-destination-key'
False,
procedure(
const AUploadId:
string; APartNumber: Integer; APartSize, APartWriteCount, AOverallSize, AOverallWriteCount: Int64;
var AAbort: Boolean)
begin
// Update your user interface with current progress.
end
);
