E/A Fehler 32

[juelin]

Ich weiss, Ihr habt das Thema bestimmt schon tausendmal gehöhrt.
Habe aber nix gefunden.
Habe Windows 10 und Delphi 10.4

Aug dem Computer läuft ein Programm (BAT-file) das in eine Textdatei ausgibt 8 > daten.txt).
Nun möchte ich während das Programm läuft mit einem Delphi-Programm auf die Datei zugreifen und auslesen.

Delphi-Quellcode:

  var fnum: TextFile;

        AssignFile(fnum, 'e:\DARC\dump1090\daten.txt');
        FileMode:=fmShareDenyRead;
        Reset(fnum);

Beim Reset bekomme ich E/A Fehler 32.
Aber wenn ich das File mit dem Editor öffne (auch wenn das Programm läuft) geht das ja auch.
Was muss ich tun?

Grüß Jürgen

[Delphi.Narium]

In meiner Delphi-7-Hilfe steht:

Zitat:

Konstante Definition

fmOpenRead Nur Lesezugriff.
fmOpenWrite Nur Schreibzugriff.
fmOpenReadWrite Lese- und Schreibzugriff.
fmShareCompat Kompatibel zu dem Verfahren, mit dem FCBs geöffnet werden. Verwenden Sie diesen Modus nicht in plattformübergreifenden Anwendungen.

fmShareExclusive Kein Lese- und Schreibzugriff.
fmShareDenyWrite Kein Schreibzugriff.
fmShareDenyRead Kein Lesezugriff. Verwenden Sie diesen Modus nicht in plattformübergreifenden Anwendungen.
fmShareDenyNone Andere haben uneingeschränkten Zugriff.

Da würd' ich's dann mal mit fmOpenRead versuchen oder fmShareDenyNone? Andere wollen ja ebenfalls lesen und schreiben.

FileMode - Defines how Reset opens a file

[himitsu]

Tja, 32 = ERROR_SHARING_VIOLATION
also irgendwer hat diese Datei schon offen und entweder erlaubst du ihm seinem Zugriff nicht, oder er dir deinen nicht.


Du verbietest ALLEN Anderen das Lesen
und das macht Notepad nicht.




Wie wäre es auch langsam mal auf aktuellere API umzusteigen?
TStringList, TFileStream, TStringStream, TFile.Read*** uvm.
Vor allem auch wegen der verständlicheren Fehlerbehandlungs-Ausgaben.

[juelin]

also habe geändert in fmSharedDenyNone
das andere Programm schreibt nur und ich will nur lesen.
Wie gesagt mit dem Editor geht das ja auch.
BAT-File: dunp1090.exe > daten.txt

[EmWieMichael]

Mit FileMode zu experimentieren wird erfolglos bleiben, da FileMode bei Textdateien keine Auswirkungen hat. Textdateien können nur zum Lesen oder zum Schreiben geöffnet werden.

[dstein]

Evtl. so?
Feedback ob das funktioniert wäre schön.

Quelle
https://docwiki.embarcadero.com/Code...teFile_(Delphi)

if dlgOpenTxtFile_1.Execute() then
begin
try
edt_File.Text := dlgOpenTxtFile_1.FileName;

Mmo1.Lines[0] := TFile.ReadAllText(edt_File.Text); // uses System.IOUtils

except
{ Catch the possible exceptions }
MessageDlg('Incorrect path', mtError, [mbOK], 0);
Exit;
end;
end;