Exception bei AssignFile mit langem Dateipfad

[Uwe Raabe]

Zitat von devidespe:

Beide GetFileSize-Varianten funktionieren leider nicht, und liefern beide -1 zurück. Schade.

Benutzt du denn auch das \\?\ Prefix? Andernfalls kann das auch nicht gehen.

[LTE5]

Zitat von Uwe Raabe:

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;

OT: dieses FileSize ist etwas schneller und sollte auch mit \\?\ funktionieren.

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;

[p80286]

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

[Delphi.Narium]

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?

[Luckie]

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.

[himitsu]

Zitat:

[Laufwerk][:][\][257 Zeichen übrig für den Pfad].

[Laufwerk][:][\][256 Zeichen übrig für den Pfad, zzgl. abschließendem #0].