Exception bei AssignFile mit langem Dateipfad

[LTE5]

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 https://msdn.microsoft.com/en-us/lib...(v=vs.85).aspx
MAX_PATH gibt es bei Windows 10 wohl nicht mehr.

[Der schöne Günther]

Zitat von LTE5:

MAX_PATH gibt es bei Windows 10 wohl nicht mehr.

Es ist alles wie vorher. Ab Win10 (1607) kann man das systemweit deaktivieren, ich glaube aber nicht dass man das sollte. Die meisten Applikationen werden wohl immer einen festen Buffer von 260 Zeichen anfordern und schwer verwirrt sein wenn Windows auf einmal mehr Zeichen zurückliefert.

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

[himitsu]

Zitat:

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

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