Entwickler-Ecke

Dateizugriff - Schreibgeschützte Datei öffnen


Bayo - Mi 25.09.02 11:56
Titel: Schreibgeschützte Datei öffnen
Hi zusammen...

Ich probiere mit dem folgenden Code eine Datei zu öffnen, die schreibgeschützt ist:


Quelltext
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
var
  fSource: file of Byte;
begin
  AssignFile(fSource, source);
  {$i-}
    Reset(fSource);
  {$i+}
  if not (IOResult = 0) then begin
    Showmessage('Fehler');
    Exit;
  end;
  closeFile(fSource);


Leider gibt es jedesmal einen I/O Error. Wenn ich den Schreibschutz wegnehmen, funktioniert es! Da ich nicht in die Datei schreiben möchte, müsste es das doch gehen?

Grüsse Dominic


Delete - Mi 25.09.02 12:04

Versuch es mal mit FileOpen.


wwerner - Mi 25.09.02 12:12


Quelltext
1:
2:
3:
4:
5:
AssignFile(fSource, 'test.txt');
  {$I-}
  FileMode := 0;  {Set file access to read only }
  Reset(fSource);
  {$I+}