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 ;