![]() |
Exception bei AssignFile mit langem Dateipfad
Hallo zusammen,
mit einer Suchfunktion suche ich bestimmte Dateien einer Partition und möchte diese lesend öffnen, um die Dateigröße zu bestimmen. Das klappt soweit auch ganz gut per AssignFile:
Delphi-Quellcode:
Nun ist es aber so, dass ein Pfad sehr lang ist, und zwar wievolgt:
var F : file of Byte;
begin … AssignFile(F, FileName); Filemode:=0; {nur Lesen !!!} {$I-} Reset(F); {$I+} if IOResult = 0 then begin Result:=FileSize(F); CloseFile(F); end; … end; C:\Windows.old\WINDOWS\SoftwareDistribution\Downlo ad\4890056fe7c9079e4389ab89db94aaa5\amd64_Microsof t-Windows-Client-Features-Package~~AMD64~~10.0.17063.1000\amd64_dual_buttonc onverter.inf_31bf3856ad364e35_10.0.17063.1000_none _d7273a158fb55cdb\buttonconverter.inf Dies führt dazu, dass AssignFile mit einer Exception abstürzt und mir folgenden Fehlertext liefert: Es ist eine ExceptClass Exception mit folgendem Inhalt aufgetreten:Ungültiger Dateiname - %s Kann mir dazu jemand etwas sagen? Wie kann ich die Exception vorab abfangen? Liegt das daran, dass Pfad plus Dateiname länger als 256 Zeichen sind? Per TotalCommander finde ich die Datei an der besagten Stelle. Es handelt sich um Delphi XE 10.1 unter Windows 10 x64. Danke vorab. |
AW: Exception bei AssignFile mit langem Dateipfad
Der Pfad ist länger als MAX_PATH (260 Zeichen)
[Laufwerk][:][\][257 Zeichen übrig für den Pfad]. Setz mal \\?\ vor den Pfad. Das sollte helfen. Vielleicht hilft auch das ![]() MAX_PATH gibt es bei Windows 10 wohl nicht mehr. |
AW: Exception bei AssignFile mit langem Dateipfad
Zitat:
|
AW: Exception bei AssignFile mit langem Dateipfad
Ich gehe immer den Weg über \\?\. Hatte noch nie Probleme.
|
AW: Exception bei AssignFile mit langem Dateipfad
Glaube ich, das ist ja auch der beste Weg 8-)
|
AW: Exception bei AssignFile mit langem Dateipfad
Hmm, also wenn ich die Pfadlänge prüfe und im Fall von mehr als 260 Zeichen (MAX_PATH) ein "\\?\" davorsetze, bricht AssignFile immer noch mit einer Exception ab.
|
AW: Exception bei AssignFile mit langem Dateipfad
Zitat:
|
AW: Exception bei AssignFile mit langem Dateipfad
Was liefert Dir denn ein
Delphi-Quellcode:
?
FileExists('C:\Windows.old\WINDOWS\SoftwareDistribution\Download\4890056fe7c9079e4389ab89db94aaa5\amd64_Microsoft-Windows-Client-Features-Package~~AMD64~~10.0.17063.1000\amd64_dual_buttonconverter.inf_31bf3856ad364e35_10.0.17063.1000_none_d7273a158fb55cdb\buttonconverter.inf');
Gibt es die Datei überhaupt? Ansonsten versuchs doch mal so:
Delphi-Quellcode:
Siehe:
function GetFileSize(fileName : wideString) : Int64;
var sr : TSearchRec; begin if FindFirst(fileName, faAnyFile, sr) = 0 then result := Int64(sr.FindData.nFileSizeHigh) shl Int64(32) + Int64(sr.FindData.nFileSizeLow) else result := -1; FindClose(sr); end; ![]() |
AW: Exception bei AssignFile mit langem Dateipfad
Wenn es nur um die Größe geht, könnte auch dieser Ansatz erfolgreich sein:
Delphi-Quellcode:
function GetFileSize(const AFileName: string): Int64;
var handle: THandle; begin handle := FileCreate(AFileName); try Result := FileSeek(handle, Int64(0), 2); finally FileClose(handle); end; end; |
AW: Exception bei AssignFile mit langem Dateipfad
Danke für eure Antworten. Also FileExists liefert False zurück, ich finde die Datei aber im TotelCommander und auch im Explorer.
Beide GetFileSize-Varianten funktionieren leider nicht, und liefern beide -1 zurück. Schade. |
AW: Exception bei AssignFile mit langem Dateipfad
Zitat:
|
AW: Exception bei AssignFile mit langem Dateipfad
Zitat:
Delphi-Quellcode:
function GetFileSize(const aFileName: string): Int64;
var FileInfo: TWin32FileAttributeData; begin Result := -1; FillChar(FileInfo, SizeOf(FileInfo), 0); if GetFileAttributesEx(PChar(aFileName), GetFileExInfoStandard, @FileInfo) then begin Int64Rec(Result).Hi := FileInfo.nFileSizeHigh; Int64Rec(Result).Lo := FileInfo.nFileSizeLow; end; end; |
AW: Exception bei AssignFile mit langem Dateipfad
Wenn man eine Datei nicht findet, ist
a) der Dateiname falsch geschrieben,(wenn der Dateiname Sonderzeichen enthält, die falsch dargestellt werden, hat man schon ein Problem) b) die Attribute nicht beachtet worden Gruß K-H |
AW: Exception bei AssignFile mit langem Dateipfad
c) Oder der Dateiname incl. Pfad zu lang.
Hab's gerade mal ausprobiert: Wenn man der Datei die Dateiendung "klaut", funktioniert es, andernfalls bekommt man die Meldung: Nicht gefunden bzw. Dateigröße = -1. Je nach Software werden wohl andere API-Funktionen genutzt, so dass das Anlegen von längeren Pfad- und Dateinamenkombinationen möglich ist. Totalcommander (und Co.) können sowas anzeigen, man kann aber nicht zwingend in den so angezeigten Verzeichnissen Dateien anlegen oder diese lesen und bearbeiten. @devidespe Kannst Du die vom Totalcommander angezeigte Datei mit Notepad (o. ä.) öffnen? |
AW: Exception bei AssignFile mit langem Dateipfad
Ich hatte mal den aberwitzigen Fall, dass ich mich in einem Batch-Sript vertan hatte. Windows hat da mehrere Dutzend Ebenen tief Unterverzeichnisse angelegt. So viel bis der Explorer die nicht mehr löschen konnte weil, der Pfad zu lang war. Windows hat sich da quasi wunderschön selbst ins Knie geschossen. :mrgreen:
|
AW: Exception bei AssignFile mit langem Dateipfad
Zitat:
|
Alle Zeitangaben in WEZ +1. Es ist jetzt 07:35 Uhr. |
Powered by vBulletin® Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024-2025 by Thomas Breitkreuz