Ordner überwachen

[bonanza]

Hi,
ich suche nach einer möglichkeit einen beliebigen ordner zu überwachen und, wenn dort dateien reinkopiert oder erstellt wurden, diese dann an einen beliebigen ort automatisch kopiert.

danke schonmal im voraus

[DP-Maintenance]

Dieses Thema wurde von "sakura" von "Sonstige Fragen zu Delphi" nach "Windows API / MS.NET Framework API" verschoben.
Eindeutig WinAPI, wenn mir jetzt nur das Stichwort zur Antwort einfiele :mrgreen:

[luckystar85]

Das gleiche Prob hatte ich auch vor kurzem.
Verzeichnisüberwachung

[dfried]

Die Suche liefert z.B. folgendes

[Luckie]

Und hier gibt es das ganze als Klasse: http://www.michael-puff.de/dirindex....phi/Sonstiges/ -> MpuReadDirectoryChangesCls.pas

[joehd]

Ich habe mal die Datei von Michael Puff hochgeladen, denn sein Server gibt es so offensichtlich nicht mehr.
Das ist die Datei die ich früher mal runter geladen hatte.

[himitsu]

Eigentlich wollte sich jemand um den Server kümmern, nach seinem Dahinscheiden.
Kann mich garnicht an etwas mit einem Casino erinnern. :freak:

Wayback hat die alte Seite und viele Codebeispiele noch,
der XPUsermanager ist auf Github zu finden, samt Quellcode,
und vom Rest müsste ich irgendwo noch ein Backup haben.

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