Rekursives durchsuchen und Letzten Dateizugriff auslesen

[hoika]

Hallo,

Zitat:

Das hatte ich in #43 schon Mr. Green

So langsam verliere ich den Überblick

An den TE.
Mache mal ein neues komplettes Bsp.-Projekt,
was genau (UND NUR GENAU) den Fehler reproduziert.
Also nichts mit Pie und DB.

Als Pfad ExtractFilePath(Application.ExeName)+'\'; (das ist das Verzeichnis der Exe selber).

Das Projekt zippen und ohne Exe anhängen.


Das ist hier nur rumgestochere.

Update:
Und verballert unsere schöne kostbare Zeit.



Heiko

[DeddyH]

Seh ich genauso. Einfach mal einen Button nehmen, den Pfad exakt so übergeben, wie er in der DB steht und das Ganze mal in eine sichtbare Liste, sonst kommen wir nicht weiter.

[shmia]

Also wenn man alles richtig machen möchte, dann sollte man Events als Technik zur Rückgabe der Dateiinformationen einsetzen.
Eine normale StringList ist zu begrenzt, da man im Prinzip nur den Dateinamen bekommt und andere Informationen (Dateigrösse, Flags,...) unter den Tisch fallen.

Zunächst benötigt man einen Record zur Rückgabe der Daten:

Delphi-Quellcode:

TFileInformation = record
  Name : string;
  Path : string;
  IsDir : boolean;
  ReadOnlyFlag, HiddenFlag, SystemFlag : boolean;
  Owner : TOwner;
  Size : Int64;
  ...
end;

Bei jedem gefundenen File oder Directory werden die Infos von TSearchRec auf den "benutzerfreundlichen" Record TFileInformation kopiert und dann ein Event ausgelöst.
"Benutzerfreundlich" heisst hier, dass die Daten im Record TFileInformation so aufbereitet sind, dass man sie bequem und ohne Klimmzüge abgreifen kann.

Das Event sieht so aus:
TFileFindEvent = procedure(Sender:TObject; const FileInformation:TFileInformation) of object; Im Anhang gibt es ein Demoprojekt in dem das Konzept umgesetzt wird.
Bestimmte Dateiattribute (ReadOnlyFlag, Owner, Size nur 32-bit genau) werden z.Zt. noch nicht ausgewertet aber das lässt sich ja leicht nachholen.
Wenn jemand meinen Sourcecode benutzen möchte, dann erwarte ich als Gegenleistung dass das verbessert und auf der DP gepostet wird.

PS: leicht verbesserte Version hochgeladen

[DeddyH]

Ehrlich gesagt verstehe ich nicht ganz, wozu der Event dienen soll (außer das Programm zu verlangsamen, wenn eine Ereignisroutine hinterlegt ist ). Ich für meinen Teil würde dann doch eher aus dem Record eine Klasse machen und diese dann per AddObject in die Stringliste schieben. Oder hab ich Dich nicht richtig verstanden?

[shmia]

Zitat von DeddyH:

Ehrlich gesagt verstehe ich nicht ganz, wozu der Event dienen soll (außer das Programm zu verlangsamen, wenn eine Ereignisroutine hinterlegt ist ).

Durch das Event lässt sich die Klasse TFileScanner an jedes Problem anpassen.
Man kann die Dateinamen in eine Stringliste kopieren oder man schreibt die Dateiinformationen unmittelbar und ohne Zwischenspeicher in eine Datenbank oder man schreibt sie in eine XML-Datei, usw.
Zusätzlich besteht so auch die Möglichkeit, den Vorgang vorzeitig abzubrechen (Methode Stop).

Der Aufruf eines Event pro Datei ist der (geringe) Preis den man für die universelle Einsetzbarkeit bezahlen muss.

Zitat von DeddyH:

Ich für meinen Teil würde dann doch eher aus dem Record eine Klasse machen

Hab' ich mir auch überlegt, bin dann aber zum Schluss gekommen dass ein Record im Moment ausreichend ist, weil ja nur Daten aber keine Methoden vorhanden sind.
Wäre aber trotzdem noch eine Überlegung wert.

[DeddyH]

Ach, so war das gemeint, keine schlechte Idee. Wenn man das dann noch mit der angesprochenen Klasse verbindet, die den TSearchRec entgegennimmt und die Felder den Anforderungen entsprechend parst, wäre das glatt die Luxus-Variante

[AnyKey]

Hi,

sorry das ich mich erst jetzt wieder melde! Also ich hab die Testanwendung die ich am Anfang mal geschrieben hatte wieder rausgekramt, in der hatte ich die Funktion bevor ich sie in meine Anwendung übernommen hatte getestet, ob sie überhaupt funktioniert. Und was ist, selbst da funktioniert es nicht mehr
Das kann doch echt nicht wahr sein, ich meine ich weiß hundert %ig das es funktioniert hat, sonst hätte ich die Funktion ja nicht eingebaut und jetzt funktioniert garnichts mehr ich habe in der Testanwendung auch mal einen Breakpoint an der Stelle gesetzt, wo die Liste befüllt werden soll, er geht einfach nicht an diese Stelle, im Code von DeddyH das selbe spiel...

Ich weiß nicht mehr weiter ich habe nur eine ListBox versucht zu befüllen.

Gruß
AnyKey

[DeddyH]

Und Du bist ganz sicher, dass das Verzeichnis auch existiert?

[edit] Versuch mal das Programm im Anhang und gib Bescheid, ob es funktioniert. [/edit]

[AnyKey]

Hi,

Danke für eure Hilfe, es funktioniert jetzt, vielleicht waren die Ordner mit denen ich getestet habe wirklich leer, aber ich habe mit mehreren Ordnern getestet und es ging nicht, war vielleicht doch irgendwo ein fehler bei mir im Code. Naja egal was es jetzt auch war ich Danke euch noch mal für eure Hilfe und die Zeit die ich euch geklaut habe. Selbst wenn es jetzt doch an den Ordnern lag habt ihr mir jetzt noch ein Paar elegantere Lösungen aufgezeigt, die ich dann auch umsetzen werde.

Ein Paar fragen habe ich allerdings noch:
1. In was für einer größe wird die Filesize angegeben? => damit ich weiß wie/ob ich umrechnen muss.
2. Wie ist die Datetime aufzuschlüsseln? da steht z.B. sowas wie 30067129 was davon brauche ich als Datum und was ist für mich irrelevant? Müsste das Datum dann noch anpassen, denn das andere Datum mit dem ich es vergleichen will, bekomme ich mit Punkten im Fromat TT.MM.JJJJ übergeben.

Gruß
AnyKey

[DeddyH]

Du hast die verlinkte Hilfe nicht wirklich gelesen, da steht alles drin.