Schauen ob Datei in Benutzung ist

[meisteralex]

Hi Leute, ich probiere mit
checksumme := THash_MD5.CalcFile(filename, TFormat_HEX);
die MD5-Checksumme einer DAtei zu bkeommen
ist die datei in benutzung gibt es allerdings eine fehlermeldung.
Ob das so ist, teste ich mit folgender Funktion ab:

Delphi-Quellcode:

function IsFileInUse(const FileName: String): Boolean;
var
  HFileRes : HFILE;
begin
  Result := false;
  if not FileExists(FileName) then exit;
  HFileRes := CreateFile(PChar(FileName), GENERIC_READ or GENERIC_WRITE,0, nil, OPEN_EXISTING,FILE_ATTRIBUTE_NORMAL, 0);
  Result := (HFileRes = INVALID_HANDLE_VALUE);
  if not Result then CloseHandle(HFileRes);
end;

alerdings liefert die funktion auch true zurück, wenn die datei nur schreibgeschützt ist, was nicht in meinem sinne ist

[Luckie]

Ob eine Datei geöffnet ist, kann man definitiv nur mit einem Dateisystemtreiber ermitteln, weil das weiß nur das System / der Kernel selber.

[grizzly]

Die Info erhältst Du beispielsweise, wenn Du die Datei mit den "alten" Methoden öffnest.
In dem Beispiel hier versuche ich das mal ganz brutal mit dem Windows Swap file:

Delphi-Quellcode:

  {$I-}
  assignfile(f, 'c:\bootlog.txt');    // <- Auf meinem XP darf ich diese Datei nicht anrühren ;)
  reset(f);                           // Öffnen mit Lese- und Schreibrechten. Das läßt mich XP nie im Leben...
  SharingViolation := IOResult = 32;  // Wird true, weil IOResult 32 zurückliefert.

Dieser Zugriff liefert den Fehler 32 (=ERROR_SHARING_VIOLATION).
(siehe MSDN Help)

Nicht vergessen: Der Code-Schnipsel oben ist nur minimal. Nur so als Denkanstoß. Da gehört ein closefile(..) dazu, FileMode sollte 2 sein und nicht 0, weil sonst taucht die Fehlermeldung u.U. nicht auf. Und $I- muß u.U. wieder zurückgestellt werden. Und so weiter und so fort....
Mit $I+ kann man aber bestimmt auch den IOError mit try except abfangen und da die "32" rausdröseln, oder?
Vielleicht sollte man auch noch den Fehler 33 mit abfangen?

Gruß
Michael

[Luckie]

Mach das mal mit einer Datei, die nicht exklusiv geöffnet ist, dann kannst du sie nämlich öffnen.

[meisteralex]

warum klappt eigentlich bei einem "verbotenen" filezgriff eine exception nicht und ich bekomme trotzdem den fehler angezeigt ?

[Luckie]

Mit welchen Code bekommst du keine Exception? Mit deinem? API-Funktionen lösen keine Exception im Usermode aus, sondern geben einen Fehlerode zurück.

Udn grizzyl hat mit dem Schalter {I-} die interne Fehlerbehandlung ausgeschaltet und kümmert sich selber um die Fehlerbehandlung, in dem er den Status der Variablen IOResult abfragt.

[meisteralex]

ich lasse die funktion
checksumme := THash_MD5.CalcFile(filename, TFormat_HEX);
in einer exception laufen und sie wird trotzdem als fehler ausgegeben

[grizzly]

Zitat von Luckie:

Mach das mal mit einer Datei, die nicht exklusiv geöffnet ist, dann kannst du sie nämlich öffnen.

Das ist vermtl. richtig, da hilft dann mein Codeschnipsel auch nicht.
Vielleicht aber kann man im speziellen Fall ja damit leben. Die Berechnung der Prüfsumme sollte dann auch klappen - diese Routine wird ja wohl sowieso nur im Readonly Mode auf die Datei zugreifen. (Aber vermutlich ist sie dann fünf Sekunden später schon nicht mehr aktuell. Muß man wohl noch das Dateidatum/uhrzeit mit merken?)
Tja, eine vollständige Lösung war das nicht, sorry...
Gruß
Michael

[Luckie]

Aber nur im Debugger. Starte die Anwendung mal aus dem Explorer.


PS: LEUTE, langsam sollte es sich aber mal rumgesprochen haben, dass Exceptions auch im Debugger angezeigt werden, obwohl man sie im Code behandelt!!! Ich glaube, das wird in jedem Thread gesagt, in dem es um Exceptions geht. Lest ihr denn eigentlich gar nicht mal etwas hier im Forum mit?

[grizzly]

Zitat von Luckie:

Aber nur im Debugger. Starte die Anwendung mal aus dem Explorer.

Den Verdacht, daß es sich eigentlich nur um dieses Problem handelt hatte ich eben auch gerade...