GetLastWriteTime ohne Exception?

[a.def]

Ist es irgendwie möglich TDictionary.GetLastWriteTime oder TFile.GetLastWriteTime zu benutzen OHNE dass bei korrupten Pfad oder fehlender Datei eine Exception ausgelöst wird?

Meine Anwendung hat einen Exception-Handler welcher jede Exception loggt und wenn hier 100 Exceptions zeitgleich geloggt werden das ist ein bisschen suboptimal.

[Zacherl]

Wenn du die Exception mit einem eigenen lokalen Handler catchst, sollte sie doch nicht geloggt werden, oder?

[a.def]

Meine Notlösung sieht jetzt so aus

Delphi-Quellcode:

function TForm8.GetLastWriteTimeEx_Dictionary(Path: string): TDateTime;
begin
 try
  Result := TDirectory.GetLastWriteTime(Path);
 except
  Result := 0;
 end;
end;

// xxx := GetLastWriteTimeEx_Dictionary('C:\irgendetwas');
// if xxx > 0 then
// weiter im Programm

[nahpets]

Wie wäre es mit function DirectoryExists(const Directory: string): Boolean; bzw. function FileExists(const FileName: string): Boolean;

Delphi-Quellcode:

function TForm8.GetLastWriteTimeEx_Dictionary(Path: string): TDateTime;
begin
 if DirectoryExists(Path) then begin
   try
    Result := TDirectory.GetLastWriteTime(Path);
   except
    Result := 0;
   end;
  end else Result := 0;
end;

Demnach http://docwiki.embarcadero.com/Libra...ils.TDirectory hat TDirectory 'ne Methode Exists.

class function Exists(const Path: string; FollowLink: Boolean = True): Boolean; Damit müsste man doch auch vorher abfragen können, ob es das zu prüfende gibt.

Delphi-Quellcode:

function TForm8.GetLastWriteTimeEx_Dictionary(Path: string): TDateTime;
begin
 if TDirectory.Exists(Path, False) then begin
   try
    Result := TDirectory.GetLastWriteTime(Path);
   except
    Result := 0;
   end;
  end else Result := 0;
end;

[a.def]

Unnötige Dateizugriffe möchte ich nach Möglichkeit vermeiden aber ich werde es definitiv testen!

Ok Test nach nur einer Minute erledigt und es hat keine Performance-einbußen mit sich gebracht wie ich vorher hatte.

[a.def]

Mein Endergebnis sieht jetzt übrigens so aus. Ich habe auf JclFileUtils gewechselt, da die ein wenig schneller sind

Delphi-Quellcode:

function FileTimeToDateTime(FileTime: TFileTime): TDateTime;
var
 ModifiedTime: TFileTime;
 SystemTime: TSystemTime;
begin
 Result := 0;
 if (FileTime.dwLowDateTime = 0) and (FileTime.dwHighDateTime = 0) then
  Exit;
 try
  FileTimeToLocalFileTime(FileTime, ModifiedTime);
  FileTimeToSystemTime(ModifiedTime, SystemTime);
  Result := SystemTimeToDateTime(SystemTime);
 except
  Result := Now; // Something to return in case of error
 end;
end;

function TForm8.getPathLastWriteTime(const aPathName: string): TDateTime;
begin
 try
  Result := FileTimeToDateTime(JclFileUtils.GetFileLastWrite(aPathName)); // TDirectory.GetLastWriteTime(aPathName);
 except
  Result := 0;
 end;
end;

function TForm8.getFileLastWriteTime(const aFileName: string): TDateTime;
begin
 Result := functions.getPathLastWriteTime(aFileName);
end;