blockread einer read only Datei

[Martin V]

Ich verwende sehr einfachen Programmcode mit

dat : file of byte;
assign (dat, 'Dateiname'); reset (dat);
und dann blockread.

Wenn die Datei read only ist, dann schlägt blockread fehl (IOresult <> 0). Ich habe schon system.filemode := fmInput vor reset gesetzt, ohne Wirkung. Wie mache ich es richtig?

Es ist natürlich Windows, bei Unix gibt es das read only flag nicht.

[indianer-frank]

Versuch mal

Code: Alles auswählen

var
  dat : file of byte;
...
  {$i-}
  FileMode := 0;
  assign (dat, 'Dateiname'); 
  reset(dat);
  if IOResult <> 0 then writeln('Reset error');
 

[Socke]

Es ist natürlich Windows, bei Unix gibt es das read only flag nicht.

Du hast aber auch unter *nix Dateiberechtigungen. Da kannst du auch das Lesen verbieten. (chmod a-w Dateiname)

[Martin V]

Das Problem ist gar nicht "blockread" spezifisch, es tritt auch bei "read" auf. Ich habe mich jetzt erinnert, dass ich das Problem vor Jahren schon einmal gelöst habe:

Filemode := fmOpenRead or fmShareDenyNone

und um zurück zum Defaultwert nach "reset" zu wechseln:

Filemode := fmOpenReadWrite

Das war's.

[siro]

Supi Info Martin,
ich hatte das Problem auch schon, gleich mal in meine Lazarus Doku eingetragen....Danke

Hier ist eine gute Übersicht:
http://docs.embarcadero.com/products/ra ... eOpen.html

Siro