// Create or load a stream of data to upload.
var LStream := TMemoryStream.Create;
var LObject := TS3Object.Create('my-bucket', 'my-object')
as IS3Object;
LObject.UploadStream(
LStream,
False,
procedure(
const AUploadId:
string; APartNumber: Integer; APartSize, APartWriteCount, AOverallSize, AOverallWriteCount: Int64;
var AAbort: Boolean)
begin
// Update your user interface with current progress.
end
);
