Verzeichnis überwachen

[Meridian]

So ein Mist, ich hab doch gestern einen unvollständigen ScreenShot geschickt

[fliegermichl]

Dazu gibt's "DirectoryWatcher" auf github
https://github.com/Wosi/DirectoryWatcher

This is an abstraction layer for
- ReadDirectoryChangesW on Windows
- FSEvent on Mac OS
- inotify on Linux

Ich habe das mal heruntergeladen. Es kompiliert auch. Aber beim Programmstart bekomme ich eine Access Violation in der Datei DirectoryWatcherThread.Windows.pas in Zeile 129 bei der Anweisung

Code: Alles auswählen

  EventArray[1] := Integer(TermEvent.Handle^);

Ich habe es sowohl mit der 32 als auch 64 Bit Version versucht.
Hat jemand eine Idee woher das kommt?

[PascalDragon]

Ich frage mich, wie das im Ansatz funktionieren sollte, da TEvent.Handle das Handle selbst als Pointer (in FPC) oder NativeUInt (in aktuellen Delphis) ist. Da das EventArray einfach nur ein Feld von THandle ist, müsste es eigentlich := THandle(TermEvent.Handle) sein.

[fliegermichl]

Ich frage mich, wie das im Ansatz funktionieren sollte, da TEvent.Handle das Handle selbst als Pointer (in FPC) oder NativeUInt (in aktuellen Delphis) ist. Da das EventArray einfach nur ein Feld von THandle ist, müsste es eigentlich := THandle(TermEvent.Handle) sein.

Du hast recht. Wenn ich Handle direkt als Integer übertrage, funktioniert es. Weshalb ist das Handle dann aber als Pointer deklariert?

Wenn ich mir TEventObject.Create anschaue, dann wird BasicEventCreate aufgerufen, welches laut der FPC Doku als deprecated eingestuft ist und durch RTLEventCreate ersetzt werden sollte. Dieses liefert aber auch ein PRTLEvent Ergebnis. Wieder ein typenloser Zeiger.

[PascalDragon]

Ich frage mich, wie das im Ansatz funktionieren sollte, da TEvent.Handle das Handle selbst als Pointer (in FPC) oder NativeUInt (in aktuellen Delphis) ist. Da das EventArray einfach nur ein Feld von THandle ist, müsste es eigentlich := THandle(TermEvent.Handle) sein.

Du hast recht. Wenn ich Handle direkt als Integer übertrage, funktioniert es. Weshalb ist das Handle dann aber als Pointer deklariert?

Ich kann grad nicht nachschauen, aber ich glaub das war in älteren Delphi Versionen schon so bis es dort von Pointer auf NativeUInt geändert wurde.

Wenn ich mir TEventObject.Create anschaue, dann wird BasicEventCreate aufgerufen, welches laut der FPC Doku als deprecated eingestuft ist und durch RTLEventCreate ersetzt werden sollte. Dieses liefert aber auch ein PRTLEvent Ergebnis. Wieder ein typenloser Zeiger.

Nur weil es für die öffentliche Schnittstelle als deprecated markiert ist, heißt nicht, dass das auch für Interna gilt.