![]() |
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:
alerdings liefert die funktion auch true zurück, wenn die datei nur schreibgeschützt ist, was nicht in meinem sinne ist
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; |
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.
|
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:
Dieser Zugriff liefert den Fehler 32 (=ERROR_SHARING_VIOLATION).
{$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. (siehe ![]() 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 |
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.
|
Re: Schauen ob Datei in Benutzung ist
warum klappt eigentlich bei einem "verbotenen" filezgriff eine exception nicht und ich bekomme trotzdem den fehler angezeigt ?
|
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. |
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 |
Re: Schauen ob Datei in Benutzung ist
Zitat:
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 |
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? |
Re: Schauen ob Datei in Benutzung ist
Zitat:
|
Re: Schauen ob Datei in Benutzung ist
Delphi-Quellcode:
Da FileExists FALSE liefert, wenn Datei nicht existiert, ist dieses vollkommend zureichend.
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; 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: ![]() 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: |
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