Delphi-PRAXiS

Delphi-PRAXiS (https://www.delphipraxis.net/forum.php)
-   Object-Pascal / Delphi-Language (https://www.delphipraxis.net/32-object-pascal-delphi-language/)
-   -   Delphi Schauen ob Datei in Benutzung ist (https://www.delphipraxis.net/84637-schauen-ob-datei-benutzung-ist.html)

meisteralex 19. Jan 2007 13:18


Schauen ob Datei in Benutzung ist
 
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 19. Jan 2007 13:23

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

grizzly 19. Jan 2007 13:55

Re: Schauen ob Datei in Benutzung ist
 
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 19. Jan 2007 14:06

Re: Schauen ob Datei in Benutzung ist
 
Mach das mal mit einer Datei, die nicht exklusiv geöffnet ist, dann kannst du sie nämlich öffnen.

meisteralex 19. Jan 2007 14:11

Re: Schauen ob Datei in Benutzung ist
 
warum klappt eigentlich bei einem "verbotenen" filezgriff eine exception nicht und ich bekomme trotzdem den fehler angezeigt ?

Luckie 19. Jan 2007 14:15

Re: Schauen ob Datei in Benutzung ist
 
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 19. Jan 2007 14:24

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

grizzly 19. Jan 2007 14:28

Re: Schauen ob Datei in Benutzung ist
 
Zitat:

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 19. Jan 2007 14:29

Re: Schauen ob Datei in Benutzung ist
 
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 19. Jan 2007 14:31

Re: Schauen ob Datei in Benutzung ist
 
Zitat:

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...

himitsu 19. Jan 2007 14:31

Re: Schauen ob Datei in Benutzung ist
 
Delphi-Quellcode:
function IsFileInUse(const FileName: String): Boolean;
var HFileRes : HFILE;
begin
  HFileRes := CreateFile(PChar(FileName), GENERIC_READ or GENERIC_WRITE, 0, nil, OPEN_EXISTING, 0, 0);
  Result := HFileRes = INVALID_HANDLE_VALUE;
  CloseHandle(HFileRes);
end;
Da FileExists FALSE liefert, wenn Datei nicht existiert, ist dieses vollkommend zureichend.

Und bist du dir mir dem Schreibschutz sicher?
Jedefalls hat der Schreibschutz, solange nicht das Laufwerk geschützt ist (z.B. CD, oder schreibgeschützte Diskette/Speicherstick) keinen einfluß auf CreateFile :gruebel:


Hier hast du übrigens die letzte Diskusion zu diesem Thema:
http://www.delphipraxis.net/internal...ct.php?t=97888

Also ganz sicher ist es nicht möglich etwas über den Zugriff zu sagen, aber für die meisten Fälle ist diese Variante ausreichend.


PS: wie wird denn die Datei bei der MD5-Berechnung geöffnet?
Da könntest du es ja mal ohne Schreibzugriff und/oder nicht Exklusiv versuchen :angel:

shmia 19. Jan 2007 14:56

Re: Schauen ob Datei in Benutzung ist
 
Das die Funktion bei einer schreibgeschützten Datei TRUE liefer ist ja klar, denn sie wird ja
zum Lesen und Schreiben geöffnet und Schreiben darf man ja nicht.
Also sollte man das Flag GENERIC_WRITE entfernen.


Alle Zeitangaben in WEZ +1. Es ist jetzt 16:25 Uhr.

Powered by vBulletin® Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz