

Then, take the following steps to make your Dropbox shared links expire: To use this functionality, you must register and pay for a Dropbox Pro account. How to Set an Expiration for a Dropbox Shared Link How to Set Dropbox Link Expiration for WooCommerce Products.Make Money from Dropbox Link Expiration.How to Set an Expiration for a Dropbox Shared Link.


Let’s see how to get the feature activated. In other words, people who had access to your files won’t be able to view them after a specific time. Understanding your demand, Dropbox currently supports you to add expiration dates to shared links. However, there comes a time when you need to make your shared files inaccessible without manually deleting or unsharing them. With the shared links, everyone, even those who don’t install Dropbox, can view your files until you delete or unshare them. When people click on the links, they’ll access those files or folders in read-only mode. You can use Dropbox links to share individual files or entire folders with others without sending large attachments. Procedure TForm1.Dropbox refers to a cloud storage service that lets you save files online and sync them to your devices, WordPress site, WooCommerce store, etc. Link.Text := (ci as TTMSFNCCloudGoogleDriveItem).WebContentLink If ( ci is TTMSFNCCloudGoogleDriveItem) then Until (LinkStr '' ) or (iterations > 100) TTMSFNCCloudDropBox(TMSFNCCloudStorageServices1.Storage).GetShare(it) repeat // 2 TTMSFNCCloudDropBox(TMSFNCCloudStorageServices1.Storage).OnGetShare := GetShare Procedure TForm1.ShareClick(Sender: TObject) Ĭi := TTMSFNCCloudItem() I'll take a look at the source code in more detail later on, but for now I'll keep working on the Google Drive option as it seems simpler and more reliable at this stage. I had to add a iterations count to prevent the code going into an infinite loop. I've implemented your suggestions but never get a non-blank link return. Many thanks for taking the time to reply in detail. In this way each time you click on the button, you'll have the rigth link.

Done is true and all is done.ġ: This repeat unitl is need because sometimes, i don't know why, at first round LinkStr is empty and on second round return the value. The "waste" time is rapresented by repeat until block (2), when the link is retuned. and the selected item link is returned in linkStr.ĭue the fact that Getshare is "asynchronous" you need to wait some time in order to finish operation. TTMSFNCCloudDropBox(CloudStorage.Storage).GetShare(it) Īnd, just for example, change procedure TForm1.GetShare(Sender: TObject const AShare: string Ĭonst ARequestResult: TTMSFNCCloudBaseRequestResult) TTMSFNCCloudDropBox(CloudStorage.Storage).OnGetShare := GetShare In your form declare something like Done : Boolean LinkStr : String and insert one label (LinkLabel)Ĭhange procedure TForm1.Button1Click(Sender: TObject) to procedure TForm1.Button1Click(Sender: TObject)
