Ordner überwachen

[TSchnuckenbock]

Bei Wayback kommt man noch ins Untermenü "Programmierung", aber bei "Delphi" kommt dann nichts mehr.

Ich hab mal meine Festplatte durchforstet und festgestellt, daß ich mir auch so einiges an Michaels Stuff gesichert hatte (in 2020).

[joehd]

Sollen wir das mal irgendwo hin laden? Ich hätte bei mir auf dem Server noch Platz und habe auch einiges von ihm.
Was bedeutet denn dahinscheiden? Er machts nichts mehr mit Delphi oder?

[joehd]

Ich kam auf den Beitrag, da ich mal eine Komponente hatte die einen Ordner überwacht ... Ich bin mir nicht sicher von wem die war

Die Unit war wohl RDCWDirMonitor
Die Komponente war DirMonitor1: TDirMonitor;

Aber nach zahlreichen Delphi Updates (die ich immer sehr ungern mache) ist sie weg ... Ich habe immer das Problem, wenn ich neue Delphi Versionen installiere, sind sie selten Koexistenz den anderen gegenüber und dann fehlen mir immer aus alten Projekten die Komponenten .... Echt nervig ...

weis noch jemand wie man die Komponente installiert ?

[himitsu]

https://www.delphipraxis.net/204161-...erstorben.html

Nahezu alle seine Codes/Beispiele sind zwar immernoch "nur" ANSI und benötigen seit 2009 einige Anpassungen, aber funktionell hat sich ja nichts geändert.

[joehd]

das wusste ich nicht

ich hätte Platz wenn bedarf, besteht darf sein Code gerne bei meinen Servern gehostet werden.

Gibt es einen vollständigen Abzug des früheren Platzes? Ich habe nur viele Dateien von ihm die ich mir als mal runtergezogen habe.

Grüße Joachim

[mmw]

Hallo,

zu #10

das müsste die Komponente von JUAN CARLOS MOLINOS MESA sein.

Zum installieren das Package

'DirMonitor_dpk.dpk' öffnen/kompilieren und installieren.

In der Procedure 'procedure TProcessMonitor.Execute;' musste ich die Variable 'state' wie gezeigt anpassen -

Delphi-Quellcode:

procedure TProcessMonitor.Execute;
var
  state:NativeUInt;
  quit:boolean;
  parent:TDirMonitor;
  numBytes: DWORD;
begin
  { Place thread code here }
  quit:=false;
  parent:=TDirMonitor(self.FProRef);
  while (not quit) do
  begin
    GetQueuedCompletionStatus( parent.FCompletionPort, numBytes, state, parent.FPOverlapped, INFINITE);

runtergeladen habe ich die Komponente hier.

https://www.delphipraxis.net/165565-...rychanges.html

gibt's aber auch noch bei Torry


Gruß

[himitsu]

https://torry.net/authorsmore.php?id=4053 * https://www.delphipraxis.net/165565-...rychanges.html
aber sowas gibt/gab es auch von jemand Anderem
https://github.com/ghquant/Delphi-Em...DirMonitor.pas

Ansonsten gibt es überall massig Infos zu
ReadDirectoryChangesW
und inzwischen auch
ReadDirectoryChangesExW
oder zu
FindFirstChangeNotification

ebenso zum Auslesen des
NTFS change journal

Andere arbeiten mit einem FilterTreiber, welcher sich vor das Dateisystem hängt
SysInternals - Process Monitor / DiskMon

Und ganz nett ist auch das Windows-EventLog, welches ähnliche Ergebnisse zum Process Monitor liefert.
-> Kann teilweise im Windows Ressoucenmonitor bestaunt werden.




Wayback liefert noch mehr, aber man muß sich ganz schön durch die Zeitachse hangeln, um es zu finden.

Luckie hatte auch eine Unit zum ReadDirectoryChangesW, aber wie geagt, benötigt sie ein/zwei Anpassung bezüglich ANSI->Unicode.

Ansonsten hab ich ein komplettes (externes) Backup seiner Webseiten und die nichtmal 90MB zu hosten wäre kein Problem,
nur bräuchte ich erstmal ein paar ruhige Minuten, da sich dort auch einige externe Inhalte/Webseiten eingeschmuggelt hatten, welche erstmal entfernt werden sollten.
Ohh, www.xpusermanager.de ist komplett tot und kein Domaingrabber hat sich die Domain gekrallt ,
aber wie schon erwähnt, hatte Michael dessen Quellcode schon vorher veröffentlichen lassen. https://github.com/jaenicke/usermanager

[joehd]

Zitat von mmw:

Hallo,

zu #10

das müsste die Komponente von JUAN CARLOS MOLINOS MESA sein.

Zum installieren das Package

'DirMonitor_dpk.dpk' öffnen/kompilieren und installieren.

In der Procedure 'procedure TProcessMonitor.Execute;' musste ich die Variable 'state' wie gezeigt anpassen -

Delphi-Quellcode:

procedure TProcessMonitor.Execute;
var
  state:NativeUInt;
  quit:boolean;
  parent:TDirMonitor;
  numBytes: DWORD;
begin
  { Place thread code here }
  quit:=false;
  parent:=TDirMonitor(self.FProRef);
  while (not quit) do
  begin
    GetQueuedCompletionStatus( parent.FCompletionPort, numBytes, state, parent.FPOverlapped, INFINITE);

Gruß

zu #13
DANKE !!!!

[oakley]

Hallo,

ich verwende das hier um zu prüfen ob sich in einem Verzeichnis was geändert hat.
Vielleicht hilft es Dir ja.

LG

Mirko

[dummzeuch]

Zitat von joehd:

Was bedeutet denn dahinscheiden? Er machts nichts mehr mit Delphi oder?

Was es üblicherweise bedeutet: Er ist gestorben. Ja, deshalb macht er auch nichts mehr mit Delphi.