I've added this code to the CloudStorageServiceDemo project running on MacOS ARM.
TMSFNCCloudStorageServices1.Storage.OnRequestProgress := HandleProgress;
procedure TForm1.HandleProgress(Sender: TObject;
const ARequestResult: TTMSFNCCloudBaseRequestResult; AProgress: Single;
AUpload: Boolean);
begin
Assert(ARequestResult.Success, 'ARequestResult.Success is FALSE');
ProgressBar1.value :=Round(AProgress);
end;
Setting a breakpoint inside of HandlProgress() reveals:
HandleProgress() is called at the start of an upload but the AProgress value is already 100.
HandleProgress() is not called during the upload making it impossible to display progress.
HandleProgress() is called at the end of the upload with AProgress = 100.
What am I missing that HandleProgress is not called during the upload with correct values for AProgress?
HandleProgress works correctly for downloads.