Ordner überwachen

[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 :shock:,
aber wie schon erwähnt, hatte Michael dessen Quellcode schon vorher veröffentlichen lassen. https://github.com/jaenicke/usermanager

[joehd]

Also in Puff Backup Zip ist im Wesentlichen nur die Indexdatei, sonst nichts, wenn ich das richtig sehe ...

[joehd]

Zitat:

Zitat von mmw (Beitrag 1517127)

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 !!!!

[himitsu]

ja, nur die Übersicht was drin wäre ... wie gesagt, muß erst noch bissl was löschen
(die Datei ist auch ein "bissl" kleiner, also die 90MB, bzw. 65MB gepackt :angle2:)

[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:

Zitat von joehd (Beitrag 1517115)

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.

[joehd]

Zitat:

Zitat von dummzeuch (Beitrag 1517170)

Zitat:

Zitat von joehd (Beitrag 1517115)

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.

:( das war für mich ich sage mal so nicht in der Möglichkeit der Interpretation und ich wusste es nicht. Danke für den Hinweis...