AGB  ·  Datenschutz  ·  Impressum  







Anmelden
Nützliche Links
Registrieren
Zurück Delphi-PRAXiS Programmierung allgemein Programmieren allgemein Delphi Exception bei AssignFile mit langem Dateipfad

Exception bei AssignFile mit langem Dateipfad

Ein Thema von devidespe · begonnen am 27. Dez 2017 · letzter Beitrag vom 1. Jan 2018
Antwort Antwort
Seite 1 von 2  1 2   
devidespe

Registriert seit: 7. Sep 2006
Ort: Berlin
423 Beiträge
 
Delphi 10.4 Sydney
 
#1

Exception bei AssignFile mit langem Dateipfad

  Alt 27. Dez 2017, 20:28
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:
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;
Nun ist es aber so, dass ein Pfad sehr lang ist, und zwar wievolgt:

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.
Devid
57 65 72 20 6C 65 73 65 6E 20 6B 61 6E 6E 2C 20 69 73 74 20 6B 6C 61 72 20 69 6D 20 56 6F 72 74 65 69 6C 21
  Mit Zitat antworten Zitat
LTE5

Registriert seit: 13. Nov 2017
355 Beiträge
 
Delphi 10.2 Tokyo Starter
 
#2

AW: Exception bei AssignFile mit langem Dateipfad

  Alt 27. Dez 2017, 21:09
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.
  Mit Zitat antworten Zitat
Der schöne Günther

Registriert seit: 6. Mär 2013
5.787 Beiträge
 
Delphi 10 Seattle Enterprise
 
#3

AW: Exception bei AssignFile mit langem Dateipfad

  Alt 27. Dez 2017, 23:05
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.
  Mit Zitat antworten Zitat
LTE5

Registriert seit: 13. Nov 2017
355 Beiträge
 
Delphi 10.2 Tokyo Starter
 
#4

AW: Exception bei AssignFile mit langem Dateipfad

  Alt 27. Dez 2017, 23:19
Ich gehe immer den Weg über \\?\. Hatte noch nie Probleme.
  Mit Zitat antworten Zitat
Der schöne Günther

Registriert seit: 6. Mär 2013
5.787 Beiträge
 
Delphi 10 Seattle Enterprise
 
#5

AW: Exception bei AssignFile mit langem Dateipfad

  Alt 27. Dez 2017, 23:53
Glaube ich, das ist ja auch der beste Weg
  Mit Zitat antworten Zitat
devidespe

Registriert seit: 7. Sep 2006
Ort: Berlin
423 Beiträge
 
Delphi 10.4 Sydney
 
#6

AW: Exception bei AssignFile mit langem Dateipfad

  Alt 28. Dez 2017, 14:08
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.
Devid
57 65 72 20 6C 65 73 65 6E 20 6B 61 6E 6E 2C 20 69 73 74 20 6B 6C 61 72 20 69 6D 20 56 6F 72 74 65 69 6C 21
  Mit Zitat antworten Zitat
Benutzerbild von Uwe Raabe
Uwe Raabe

Registriert seit: 20. Jan 2006
Ort: Lübbecke
8.949 Beiträge
 
Delphi 10.4 Sydney
 
#7

AW: Exception bei AssignFile mit langem Dateipfad

  Alt 28. Dez 2017, 14:23
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.
Uwe Raabe
Certified Delphi Master Developer
Embarcadero MVP
Blog: The Art of Delphi Programming
  Mit Zitat antworten Zitat
Delphi.Narium

Registriert seit: 27. Nov 2017
1.951 Beiträge
 
Delphi 7 Professional
 
#8

AW: Exception bei AssignFile mit langem Dateipfad

  Alt 28. Dez 2017, 14:27
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
  Mit Zitat antworten Zitat
Benutzerbild von Uwe Raabe
Uwe Raabe

Registriert seit: 20. Jan 2006
Ort: Lübbecke
8.949 Beiträge
 
Delphi 10.4 Sydney
 
#9

AW: Exception bei AssignFile mit langem Dateipfad

  Alt 28. Dez 2017, 14:36
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;
Uwe Raabe
Certified Delphi Master Developer
Embarcadero MVP
Blog: The Art of Delphi Programming
  Mit Zitat antworten Zitat
devidespe

Registriert seit: 7. Sep 2006
Ort: Berlin
423 Beiträge
 
Delphi 10.4 Sydney
 
#10

AW: Exception bei AssignFile mit langem Dateipfad

  Alt 28. Dez 2017, 14:44
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.
Devid
57 65 72 20 6C 65 73 65 6E 20 6B 61 6E 6E 2C 20 69 73 74 20 6B 6C 61 72 20 69 6D 20 56 6F 72 74 65 69 6C 21
  Mit Zitat antworten Zitat
Antwort Antwort
Seite 1 von 2  1 2   

Themen-Optionen Thema durchsuchen
Thema durchsuchen:

Erweiterte Suche
Ansicht

Forumregeln

Es ist dir nicht erlaubt, neue Themen zu verfassen.
Es ist dir nicht erlaubt, auf Beiträge zu antworten.
Es ist dir nicht erlaubt, Anhänge hochzuladen.
Es ist dir nicht erlaubt, deine Beiträge zu bearbeiten.

BB-Code ist an.
Smileys sind an.
[IMG] Code ist an.
HTML-Code ist aus.
Trackbacks are an
Pingbacks are an
Refbacks are aus

Gehe zu:

Impressum · AGB · Datenschutz · Nach oben
Alle Zeitangaben in WEZ +1. Es ist jetzt 04:41 Uhr.
Powered by vBulletin® Copyright ©2000 - 2022, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2021 by Daniel R. Wolf