Wie feststellen, ob eine Datei gelesen werden kann?

[PeterPanino]

Hallo!

Ich möchte einen Text aus einer HTML-Datei auslesen:

Delphi-Quellcode:

ThisHTMLStr := Trim(TFile.ReadAllText(AHTMLFile));

Da diese Datei aber gerade in MS Word 2010 geöffnet ist, erhalte ich hier folgende Fehlermeldung:

Zitat:

Project xyz.exe raised exception class EFOpenError with message 'Cannot open file "F:\document.htm". Der Prozess kann nicht auf die Datei zugreifen, da sie von einem anderen Prozess verwendet wird'.

Wie kann ich aber nun schon VORAB prüfen, ob diese Datei lesbar ist (und nicht in MS Word geöffnet ist)?

[Der schöne Günther]

Ich persönlich finde das so richtig. Die EFOpenError-Exception behandeln heißt: Geht nüscht, kann nicht lesen. Ist wohl jemand anderes exklusiv drauf.

Wenn du auf der Exception anhälst siehst du auch dass der auch nur CreateFile(..) aus der WinApi aufgerufen und

Delphi-Quellcode:

INVALID_HANDLE_VALUE

zurückbekommen hat. Das kannst du natürlich auch noch einmal von hand machen, aber was hat man dadurch gewonnen?

Und von der theoretischen Möglichkeit dass sich jemand die Datei zwischen deiner Überprüfung und dem Versuch die Datei dann tatsächlich zu öffnen dann schnappt wollen wir erst gar nicht sprechen ;-)

[PeterPanino]

Danke. Aber wie kann ich das VORAB feststellen? Also etwa:

Delphi-Quellcode:

if IsFileReadable(AHTMLFile)  then
  ThisHTMLStr := Trim(TFile.ReadAllText(AHTMLFile))
else
  LogThisError;

[Der schöne Günther]

Beispiele findest du zuhauf hier:
http://www.delphipraxis.net/dp_searc...Datei geöffnet .

Aber wie gesagt, was hat das für einen Vorteil gegenüber keine Extra Methode schreiben und einfach

Delphi-Quellcode:

try
   ThisHTMLStr := Trim(TFile.ReadAllText(AHTMLFile))
except
   LogThisError();
end;

[Helmi]

Hallo,

hilft dir dieser, vielleicht einer etwas in die Jahre gekommener, Tipp der Schweizer weiter?

[PeterPanino]

Mit diesem Code kann ich den Fehler bei einer geöffneten Datei umgehen:

Delphi-Quellcode:

function MyTempCopyFile(const AFile: string): string;
// Kopiert eine Datei in den Temp-Ordner und gibt den Namen der Kopie zurück (wenn erfolgreich)
var
  ThisTempFile: string;
begin
  Result := '';
  try
    ThisTempFile := TPath.GetTempFileName;
  except
    // Todo: Fehler loggen
    EXIT;
  end;
  try
    TFile.Copy(AFile, ThisTempFile, True);
  except
    // Todo: Fehler loggen
    EXIT;
  end;
  Result := ThisTempFile;
end;

// Fehler vermeiden, wenn die Datei etwa in MS Word geöffnet ist:
try
  ThisHTMLStr := Trim(TFile.ReadAllText(AHTMLFile));
except
  TempCopy := MyTempCopyFile(AHTMLFile);
  if TempCopy <> '' then
    ThisHTMLStr := Trim(TFile.ReadAllText(TempCopy));
end;

[PeterPanino]

Zitat:

Zitat von Helmi (Beitrag 1335716)

Hallo,

hilft dir dieser, vielleicht einer etwas in die Jahre gekommener, Tipp der Schweizer weiter?

Ja, das ist ein guter Tipp. Da ich die Datei aber nur zum LESEN öffnen möchte: Sind

Delphi-Quellcode:

GENERIC_READ or GENERIC_WRITE

für diesen Fall die richtigen Flags?

[p80286]

im Prinzip gibt es zwei Gründe warum eine Datei nicht gelesen werden kann
a) sie ist exclusiv von einem anderen Prozess geöffnet
b) der aufrufende Prozess hat keine Leseberechtigung

Das Resultat ist in beiden Fällen das gleiche, die Datei kann nicht geöffnet werden.
interessant wird es wenn man wissen will, warum?

Gruß
k-H

[PeterPanino]

Zitat:

Zitat von p80286 (Beitrag 1335734)

im Prinzip gibt es zwei Gründe warum eine Datei nicht gelesen werden kann
a) sie ist exclusiv von einem anderen Prozess geöffnet
b) der aufrufende Prozess hat keine Leseberechtigung

Das Resultat ist in beiden Fällen das gleiche, die Datei kann nicht geöffnet werden.
interessant wird es wenn man wissen will, warum?

Gruß
k-H

In meinem Beitrag #6 habe ich gezeigt, wie man eine von einem anderen Programm exclusiv geöffnete Datei trotzdem lesen kann: Indem man sie kopiert.

[Sir Rufo]

Zitat:

Zitat von PeterPanino (Beitrag 1335742)

Zitat:

Zitat von p80286 (Beitrag 1335734)

im Prinzip gibt es zwei Gründe warum eine Datei nicht gelesen werden kann
a) sie ist exclusiv von einem anderen Prozess geöffnet
b) der aufrufende Prozess hat keine Leseberechtigung

Das Resultat ist in beiden Fällen das gleiche, die Datei kann nicht geöffnet werden.
interessant wird es wenn man wissen will, warum?

Gruß
k-H

In meinem Beitrag #6 habe ich gezeigt, wie man eine von einem anderen Programm exclusiv geöffnete Datei trotzdem lesen kann: Indem man sie kopiert.

Was aber auch nur dann geht, wenn du auch Leserechte hast ... darauf wollte p80286 nur hinweisen