DirectoryWatcher

DirectoryWatcher

Tonton perubahan direktori pada platform yang berbeda.

Ini adalah lapisan abstraksi untuk

• ReadDirectoryChangesW di windows
• FSEvent ON MAC OS
• inotify di Linux

Cara menggunakan

 // 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 ;