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

[baumina]

In XE siehts in der Unit Classes so aus:

Delphi-Quellcode:

procedure TStrings.LoadFromFile(const FileName: string);
var
  Stream: TStream;
begin
  Stream := TFileStream.Create(FileName, fmOpenRead or fmShareDenyWrite);
  try
    LoadFromStream(Stream);
  finally
    Stream.Free;
  end;
end;

[mm1256]

Zitat:

Zitat von baumina (Beitrag 1304673)

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

Bleibt der Umweg über TStream. Zuerst das File in den TStream und dann die TStringList vom >TStream holen :thumb:

[kpf]

Ich will das Thema noch einmal hochholen, weil es eine ganz einfache Ursache haben kann.
Oft steht man mit dem Explorer auf der Datei, ohne sie geöffnet zu haben, weil man nach der Quellcodeänderung sehen will, was sich verändert hat.
Das ist aber auch schon die Ursache, falls der Code richtig ist.
Stellt den Explorer auf die Nachbardatei, nur draufklicken, ohne zu öffnen, so dass eure Textdatei nicht mehr markiert ist.
Schon geht es. Ist mir schon öfter passiert, auch bei anderen Programme, "Kann nicht löschen, weil ein anderes Programm die Datei geöffnet hat". Die gleiche Ursahce.

Viele Grüße aus Bredow

Klaus-Peter

[himitsu]

Da ist die Ursage dann aber auch nur eine langsame/schrottige Explorer-Erweiterung eines Drittherstellers. (z.B. von Adobe)