Textfile reset mit fmOpenRead -> E/A Fehler 32

[baumina]

Wenn ich eine csv-Datei mit Excel offen habe, schaffe ich es nicht diese mit meinem Delphi ebenfalls nur lesend zu öffnen. Was mache ich falsch?

Delphi-Quellcode:

var
  fFile   : TextFile;

begin
  AssignFile(fFile,lSourceFile);
  FileMode := fmOpenRead;
  reset(fFile); // <- E/A Fehler
  CloseFile(fFile);
  FileMode := fmOpenReadWrite;
end;

[Uwe Raabe]

Ich sehe da zwei Möglichkeiten:

1. Addiere zu dem fmOpenRead noch ein fmShareDenyNone.

2. Excel öffnet die Datei selbst exklusiv, dann hast du keine Chance.

Ich hatte da ein ähnliches Problem mit DXF-Dateien in AutoCAD. Die kann man auch nicht lesen, wenn sie in AutoCAD offen sind.

[baumina]

Delphi-Quellcode:

FileMode := fmOpenRead OR fmShareDenyNone;

klappt leider nicht. Auch der Versuch über StringList.LoadFromFile zu gehen hat nicht geklappt.

[Uwe Raabe]

Zitat:

Zitat von baumina (Beitrag 1304638)

Delphi-Quellcode:

FileMode := fmOpenRead OR fmShareDenyNone;

klappt leider nicht. Auch der Versuch über StringList.LoadFromFile zu gehen hat nicht geklappt.

LoadFromFile macht auch nichts anderes als fmOpenRead. Wenn auch kein anderes Programm (z.B. notepad oder die Vorschau im Windows Explorer) die Datei öffnen kann, dann sieht es schlecht aus.

[baumina]

Zitat:

Zitat von Uwe Raabe (Beitrag 1304653)

Wenn auch kein anderes Programm (z.B. notepad oder die Vorschau im Windows Explorer) die Datei öffnen kann, dann sieht es schlecht aus.

Mit Notepad, der Delphi-IDE oder WinVI kann ich die Datei aufmachen, mit WordPad nicht. Demnach muss es da eine Möglichkeit geben.

[Uwe Raabe]

Ich sehe gerade, du benutzt

Delphi-Quellcode:

TextFile

- das ignoriert das Share-Bit!

Mach statt dessen einen

Delphi-Quellcode:

TFileStream

mit

Delphi-Quellcode:

fmOpenRead OR fmShareDenyNone

auf und übergib den dem

Delphi-Quellcode:

LoadFromStream

einer

Delphi-Quellcode:

TStringList

.

[baumina]

Danke Uwe, diesen Weg hatte ich mir auch grad überlegt und siehe da, es klappt.

Delphi-Quellcode:

  aStream := TFileStream.Create(lSourceFile,fmOpenRead OR fmShareDenyNone);
  aList := TStringList.Create;
  aList.LoadFromStream(aStream);

[p80286]

Noch ein kleiner Nachtrag aus der OH:

Zitat:

In Delphi legt FileMode den Zugriffsmodus fest, wenn typisierte und nicht typisierte Dateien (keine Textdateien) mit der Prozedur Reset geöffnet werden.

Gruß
K-H

[baumina]

Aber auch schade, dass man der Stringlist beim LoadFromFile keinen Mode mitgeben kann.

[p80286]

Zitat:

Zitat von baumina (Beitrag 1304673)

Aber auch schade, dass man der Stringlist beim LoadFromFile keinen Mode mitgeben kann.

ich glaube das ist Standardmäßig RO und ShareDenyNone.

Gruß
K-H