DirectoryWatcher

DirectoryWatcher

さまざまなプラットフォームのディレクトリの変更をご覧ください。

これは抽象化層です

• windowsのReadDirectoryChangesW
• Mac OSのFSEvent
• Linuxでinotify

使い方

 // Create new DirectoryWatcher
DirectoryWatcher := TDirectoryWatcherBuilder
                    .New
                    .WatchDirectory(FolderToWatch)
                    .Recursively(True)
                    .OnChangeTrigger(OnFileEvent)
                    .Build;

// Start watching in different thread
DirectoryWatcher.Start;

// Stop DirectoryWatcher
DirectoryWatcher := Nil ;

// ...

procedure TDirectoryWatcherDemo.OnFileEvent ( const FilePath: String; 
                                            const EventType: TDirectoryEventType);
var
  EventTypeString: String;
begin
  WriteLn( ' ======NEW EVENT====== ' );
  WriteLn( ' File: ' + FilePath);

  case EventType of
    detAdded: EventTypeString := ' ADDED ' ;
    detRemoved: EventTypeString := ' REMOVED ' ;
    detModified: EventTypeString := ' MODIFIED ' ;
  end ;

  WriteLn( ' Type: ' + EventTypeString);
end ;