Wie kann man Pfade über 255 Zeichen zurücklesen und Dateiattribute lesen?

Question

Delphi: Wie man Pfade über 255 Zeichen recurse und Dateiattribute liest

Ich schreibe eine Konsolenanwendung und muss eine Verzeichnisstruktur mit Pfaden viel größer als 255 Zeichen durchlaufen und dann Attribute der Dateien darin lesen.

Historisch habe ich Rekursion und FindFirst mit Turbo Delphi von 2006 verwendet, aber dies scheint über Pfade mit mehr als 255 Zeichen zu überspringen.

Kann ich die FindFirst() - Funktion für etwas anderes austauschen? Oder muss ich einen anderen Ansatz wählen?

Answer 1

Wenn Sie Dateinamen mit \\?\ als Präfix angeben, aktivieren Sie die Parsing-Funktion für Pfadlängen mit erweiterter Länge und verlassen die Pfadbegrenzung von 260 Zeichen.

Damit dieses Präfix funktioniert, müssen Sie die Unicode-Versionen der Win32-API-Funktionen aufrufen. Wenn Sie also ein Unicode-Delphi verwenden, ist dies alles, was Sie tun müssen. Da Sie jedoch ein Delphi vor Unicode verwenden, müssen Sie Ihre eigene Version von FindFirst erstellen, die Unicode-Versionen der API-Funktionen aufruft. Sie rufen FindFirstFileW, FindNextFileW, FindClose und verwenden die Unicode-Version der Struktur, WIN32_FIND_DATAW.

Diese Probleme werden ausführlich in MSDN: Naming Files, Paths, and Namespaces behandelt.

In Ihrem speziellen Szenario wird die Dokumentation für FindFirstFileW ruft die Ausgabe wie folgt aus:

In der ANSI-Version dieser Funktion, der Name MAX_PATH Zeichen beschränkt ist. Um dieses Limit auf 32.767 Zeichen zu erweitern, rufen Sie die Unicode-Version der Funktion auf und fügen Sie "\? \" Dem Pfad voran.

Beachten Sie, dass die beiden Dateinamenfelder in WIN32_FIND_DATAW in der Länge auf 260 Zeichen beschränkt sind. Das ist in Ordnung, weil sie nur den relativen Teil des Namens enthalten, also den Objektnamen relativ zum enthaltenden Verzeichnis. Sie müssen nur das Präfix \\?\ verwenden, wenn Sie FindFirstFileW anrufen.

Um die Unicode-Version dieser API verwenden Sie ein WideString für die lpFileName Parameter von FindFirstFileW und es PWideChar(FileName) mit Pass verwenden werden.

var 
    FileName: WideString; 
.... 
// initialise FileName, this will happen in your recursion 
FindHandle := FindFirstFileW(PWideChar(FileName), FindData); 

Was die Dateiattribute, können sie bei jeder Iteration lesen aus dem WIN32_FIND_DATAW struct werden. Dieser Teil Ihres Codes muss sich nicht ändern. Die einzige Sache, die Sie beheben müssen, ist, das Parser des Charakters> 260 beim ersten Anruf zu FindFirstFileW zu erhalten. Alles andere fließt ganz normal weiter.