Wie kann ich, wenn eine Datei in einem Ordner erstellt, geändert bzw. gelöscht wird im Delphi darauf reagieren, dass sozusagen ein Ereignis ausgelöst wird.

danke schonmal..

torry.net->Files & Drives->Notification

ja danke, da sind jede menge komponenten dazu.

kann mir vielleicht jemand noch erklären, wie ich allgemein an dieses problem rangeh?

Stichwort für das MSD: FindFirstChangeNotification.

Bei mir gibt's bei Delphi die Komponente TShellChangeNotifier im Reiter Beispiele/Samples bei Delphi 6 und 7.
Wenn dich die API's interessieren, die dafür genutzt werden, dann schau dir einfach den Quelltext dazu von Borland an

Übrigens bei Delphi 8 (also .NET) ist es der FileSystemWatcher

danke luckie... das wollte ich wissen!!! und auch thx an alexander, werd mir die borland quellcodes auch mal reinziehen

Moin Mumu,

für NT basierte Systeme kommt auch noch ReadDirectoryChangesW in Frage.

Zitat von Luckie:

Stichwort für das MSD: FindFirstChangeNotification.

Hi,

ich habe dashier in einem Buch dazu gefunden. Nur wie rufe ich das ganze jetzt auf?

zusammenfalten · markieren

Delphi-Quellcode:

unit DirChangeThread;

interface

Uses
  Classes, Windows, Dialogs;

Type TDirChange = Class(TThread)
  Private
  { Private-Deklarationen }
    Handle : THandle;
    Path : String;
  Protected
    Procedure Execute; Override;
    Procedure RefreshListBox;
    Destructor Destroy;
  Public
  { Public-Deklarationen }
    Constructor Create(Path : String);
  End;

implementation

Uses
  Unit1;

Constructor TDirChange.Create(Path : String);
Begin
  Inherited Create(False);
  Path := Path;
  FreeOnTerminate := True;
End;

Procedure TDirChange.Execute;
Begin
  Handle := FindFirstChangeNotification(PChar(Path), FALSE, FILE_NOTIFY_CHANGE_NAME);
  If Handle <> INVALID_HANDLE_VALUE Then
    While True
    Begin
      If WaitForSingleObject(Handle, 500) = WAIT_OBJET_0 Then
      Begin
        Synchronize(RefreshListBox);
      End;
      FindNextChangeNotification(Handle);
      If Terminated Then
        Break;
    End;
End;

Procedure TDirChange.RefreshListBox;
Begin
  Form1.FileListBox1.Update;
End;

Destructor TDirChange.Destroy;
Begin
  If Handle <> NULL Then
    FindCloseChangeNotification(Handle);
  Inherited Destroy;
End;

end.

Vielen Dank!

Das ist doch ein ganz normales VCL-Thread-Objekt. Einfach wie jedes andere Objekt erzeugen. Weitere Infos hier: http://Tutorials.luckie-online.de

Hi,

leider hab ich noch nie mit Threads gearbeitet.

Also ich habe im Buch den Aufruf so da stehen:

markieren

Delphi-Quellcode:

  If Kontrolle <> Nil Then
    Kontrolle.Terminate;
  Kontrolle := TDirChange.Create(DirectoryListBox1.Directory);

Jetzt weis ich aber nicht was Kontrolle sein soll.

2. ist wohl in dem Thread n Fehler drin. Denn der Compiler meckert hier rum:

markieren

Delphi-Quellcode:

Destructor TDirChange.Destroy;
Begin
  If Handle <> NULL Then
    FindCloseChangeNotification(Handle);
  Inherited Destroy;
End;

Hinter NULL: Undefinierter Bezeichner NULL!

Was muss da geändert werden?

Danke!