'Delphi notification when a file gets updated

My app contains documents in its database. The users can open the documents in which case, the document gets saved to a temporary folder and gets opened on the user's computer.

I'd like to get a notification when one of these temporary files are changed, and offer the user to save the changed document back to the database.

What is the most simple way to do this in Delphi7? (I suppose it requires some shell magic or 3rd party component)

Thanks!



Solution 1:[1]

You can either:

  1. use the Win32 API SHChangeNotifyRegister function to watch for changes in the temp folder, and then have your callback check if your temporary files are reporting changes.

  2. since you know the exact file(s) you are interested in, you can manually monitor them directly for changes to their sizes and timestamps using FindFirstFile in a timer or thread.

Solution 2:[2]

You can detect changes in your temporary files (or any file) using the TJvChangeNotify component from the JEDI JVCL collection.

Solution 3:[3]

In addition to what RRuz and Remy Lebeau wrote:

Note that TJvChangeNotify in the JvChangeNotify unit makes use of the FindFirstChangeNotification API call; this is the MSDN documentation. Note it is a bit counter-intuitive: see the thread mentioned below on how to use it inside a while loop.

There is also the ReadDirectoryChanges API call, which is not wrapped by the JCL/JVCL, and has MSDN documentation here and there is a Delphi win32 example as well.

This thread explains the differences between the two API calls.

--jeroen

Solution 4:[4]

Solution 5:[5]

Here's a simple way to use the complicated TJvChangeNotify component of the JEDI JVCL to monitor a directory.

  1. Drop a jvChangeNotify component on your main form.
  2. Click its Notifications property.
  3. In the Editing JvChangeNotify1.Notifications dialog, click the Add New icon.
  4. Close the dialog.
  5. On the Object Inspector Events tab, double-click OnChangeNotify.
  6. Write code for what you want to do when the folder changes.

In your main form Create procedure, add this code:

var rJvChangeItem:= JvChangeNotify1.Notifications[0];
rJvChangeItem.Directory:= [the folder you want to monitor - string];
JvChangeNotify1.Active:= True;

Sources

This article follows the attribution requirements of Stack Overflow and is licensed under CC BY-SA 3.0.

Source: Stack Overflow

Solution Source
Solution 1 Remy Lebeau
Solution 2 RRUZ
Solution 3 Community
Solution 4 Community
Solution 5 CaptureWiz