Exception bei AssignFile mit langem Dateipfad

[LTE5]

Ich gehe immer den Weg über \\?\. Hatte noch nie Probleme.

[Der schöne Günther]

Glaube ich, das ist ja auch der beste Weg

[DevidEspenschied]

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.

[Uwe Raabe]

Zitat von devidespe:

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.

Das geht auch nicht mit AssignFile, denn dort wird schon auf Delphi-Seite auf maximal 259 Zeichen getestet und gegebenenfalls entsprechend gekürzt (ergibt dann in Windows eben einen falschen Dateinamen oder direkt einen IO-Error). Eventuell hast du mit TFileStream hier mehr Glück, denn dort wird direkt an die Windows-API weitergeleitet.

[Delphi.Narium]

Was liefert Dir denn ein 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:

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;

Siehe: https://www.thoughtco.com/file-size-...delphi-1057888

[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;

[DevidEspenschied]

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.

[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