FileCreate bei schreibgeschütztem Laufwerk

[cgaertner]

Liebe Alle,

ich möchte testen, ob ich in einem Ordner eine Datei anlegen kann. Wenn ich dazu FileCreate verwende und der Zielpfad auf einem schreibgeschützten Laufwerk liegt (z.B. schreibgeschützte SD-Karte), bekomme ich die Nachricht "Der Datenträger ist schreibgeschützt und kann nicht beschrieben werden. Entfernen Sie den Schreibschutz vom Datenträger in Laufwerk F:." mit den Schaltflächen "Abbrechen", "Wiederholen" und "Weiter".

Es ist mir nicht gelungen, diese Fehlermeldung mit try/except abzufangen - sie kommt immer! Was übersehen ich hier?

Danke und viele Grüße,
Christian

PS: "DirectoryIsWritable" aus den LazFileUtils macht intern auch nur FileCreate, ist also hier auch keine Hilfe ...

[Mathias]

Sowas ähnliches hatte ich auch schon.

Evtl. funktioniert deine try/except nur, wen du deine EXE ausserhalb der IDE startest.

[gladio]

Welchen Sinn hat ein schreibgeschütztes Laufwerk, wenn jeder Dödel dann doch drauf schreiben kann?

[cgaertner]

Welchen Sinn hat ein schreibgeschütztes Laufwerk, wenn jeder Dödel dann doch drauf schreiben kann?

Ich will ja nicht drauf schreiben, sondern testen, ob in ein Verzeichnis geschrieben werden kann um gegebenenfalls eine Datei woanders anzulegen!

[wp_xyz]

Hast du auch mal den alten, klassichen Weg mit IOResult versucht? Also:

Code: Alles auswählen

function CanCreateFile(AFileName: String): Boolean;
var
  F: File;
 begin
  AssignFile(F, AFileName);
  {$I-}
  Rewrite(F);
  {$I+}
  Result := IOResult = 0;
  if Result then DeleteFile(AFileName);
end;  

[cgaertner]

Sowas ähnliches hatte ich auch schon.

Evtl. funktioniert deine try/except nur, wen du deine EXE ausserhalb der IDE startest.

Danke für den Tipp, habe ihn gerade getestet, macht aber keinen Unterschied.

[cgaertner]

Hast du auch mal den alten, klassichen Weg mit IOResult versucht? Also:

Code: Alles auswählen

function CanCreateFile(AFileName: String): Boolean;
var
  F: File;
 begin
  AssignFile(F, AFileName);
  {$I-}
  Rewrite(F);
  {$I+}
  Result := IOResult = 0;
  if Result then DeleteFile(AFileName);
end;  

Danke für den Code, ich habe ihn gerade versucht, es zeigt sich genau das gleiche Verhalten. Die Zeile mit "Rewrite" erzeugt die Fehlermeldung. Es macht keinen Unterschied, ob ich das Rewrite in {$I-} und {$I+} einbette oder zwischen try/except.

Wenn ich versuche, auf eine schreibgeschützte Datei mit Rewrite zuzugreifen, funktioniert es so wie erhofft. Nur bei einem schreibgeschützten Laufwerk kommt die Fehlermeldung. Ich teste das, indem ich eine Datei auf einer mit Schreibschutzschalter geschützten SD-Karte im Kartenleser anlegen möchte (das war die schnellste Variante, die mir eingefallen ist, um zu testen, wie sich mein Programm verhält, wenn es von einem Reead-Only-Datenträger gestartet wird).

Im Anhang übrigens ein Screenshot der Fehlermeldung.

[Mathias]

Hast du die exe jetzt mal auserhalb der ide gestartet ?

[cgaertner]

Hast du die exe jetzt mal auserhalb der ide gestartet ?

Ja, habe ich gemacht - macht keinen Unterschied.

[Mathias]

Ich mag mich an das $I Problem errinnern, irgend etwas musste man umstellen, aber was es war.

[Mathias]

Irgendwo in den Projekteijstellungen, gibt es CheckBox mit verschiedenen Prüfungen. Alles mal deaktivieren, inklusive Debugger.
Ist ein Versuch wert.

[af0815]

Das einzige was mir dazu unter Windows einfällt ist, das BS selbst zu fragen. ZB. WinAPI GetVolumeInformationA und dort lpFileSystemFlags. Dann sollte man herausfinden können ob das FS generell RO ist.
https://docs.microsoft.com/en-us/window ... formationa

[cgaertner]

Irgendwo in den Projekteijstellungen, gibt es CheckBox mit verschiedenen Prüfungen. Alles mal deaktivieren, inklusive Debugger.
Ist ein Versuch wert.

Das habe ich in den Projekteinstellungen auf der Seite "Debuggen" unter der Überschrift "Überprüfungen" gefunden. Dort gibt es I/O, Bereich, Überlauf, Stack, Methodenaufrufe prüfen und Code für Assertions einfügen. Ist alles bereits deaktiviert.

[cgaertner]

Ich habe jetzt eine Lösung gefunden!

Wenn ich vor dem Rewrite (siehe Demo-Funktion von wp_xyz) ...
SetErrorMode(SEM_FAILCRITICALERRORS);
... setze, dann kann ich den Fehler mit try/except abfangen. Dann brauche ich nicht einmal ein {$I-} und {$I+}, sondern nur try/except.

Aus der Microsoft Dokumentation:
SEM_FAILCRITICALERRORS
The system does not display the critical-error-handler message box. Instead, the system sends the error to the calling process.
Best practice is that all applications call the process-wide SetErrorMode function with a parameter of SEM_FAILCRITICALERRORS at startup. This is to prevent error mode dialogs from hanging the application.

Komisch, daß ich das bisher noch nie gebraucht habe ...

Da das eine Windows-Funktion ist, muß ich jetzt mal schauen, wie sich das Ganze unter Linux verhält.

[Mathias]

Dieses Miniprogramm spuckt bei mir unter Linux Fehler: 5 aus.

Code: Alles auswählen

procedure TForm1.Button1Click(Sender: TObject);
var
  f: file;
  i: Word;
begin
  AssignFile(f, '/root/test.txt');
  {$i-}
  Rewrite(f);
  i := IOResult;
  if i <> 0 then
    ShowMessage('Fehler: ' + IntToStr(i));
  CloseFile(f);
end;