Monitor Upload/Download Progress

FNC TMS FNC Cloud Pack
1

I want to monitor the upload and download progress using a ProgressBar as used in the TMS VCL Cloud Pack CloudAdvStorageDemo, but there are no progress events available in the TMSFNCCloudStorageServices components. Are you proposing to add these in the near future to provide the same monitoring capabilities in the FNC Cloud Pack as exist in the VCL Cloud Pack?

3

Should I add this to the Wishlist?

4

Hi,

Thank you for your suggestion.
We'll investigate if progress events can be added in a future version.

Feel free to submit this suggestion to the feature requests list:
https://www.tmssoftware.com/site/fr.asp

5

Done, thanks.

6

Hi William,
i had the same problem and Bart gave me the answer.
If you don't resolve the question, in TMSFNCCloudStorageServices you have Storage property that have the OnRequestProgress event.
OnRequestProgress is declared as

TTMSFNCCloudBaseProgressEvent = procedure(Sender: TObject; const ARequestResult: TTMSFNCCloudBaseRequestResult; AProgress: Single; AUpload: Boolean) of object;

So what you need to do, in your form, is declare a procedure like

procedure UpLoadProgress(Sender: TObject; const ARequestResult: TTMSFNCCloudBaseRequestResult; AProgress: Single; AUpload: Boolean);

and assign it to

TMSFNCCloudStorageServices.Storage.OnRequestProgress:=UpLoadProgress

where you can update the progress bar via AProgress that return the file transfert in %

Just in case you did not find this solution jet ......

Regards

Daniele

1 Like
7

Thanks Daniele, I'll give that a go.

Andrew