TFileStream Fehler

[tomkupitz]

nutze nur Write und prüfe auch die Rückgabe. Stimmt soweit alles. Bleibt also der "externe Einfluss" auf das File nach dem Schreiben.

[Delphi.Narium]

Hab' sowas mal erlebt vor einigen Jahren:

Client schreibt per TaskPlaner konfiguriert alle 20 Minuten eine Datei in ein Verzeichnis auf einen Server.

Server liest per TaskPlaner alle 30 Minuten diese Verzeichnis aus, verarbeitet die dort gefundenen Dateien und verschiebt sie dann in ein Archiv.

Dabei konnte es passieren, dass der Server eine Datei liest, verarbeitet und verschiebt, während der Client sie noch schreibt.

Das kann auf Dauer nicht gut gehen und führt halt sporadisch zu Fehlern.

(Achso: Die Entwickler der beiden Programme hatten sie so geschrieben, dass sie Fehler großzügig ignorierten )

Eventuell eine ähnliche Konstellation beim Kunden?

Oder, sofern die Dateien ins "Netz" geschrieben werden sollten: Eventuell eine etwas "hakelige" Netzverbindung, die sporadisch mal (kurzfristig) unterbrochen wird?

Was steht bei Dir im Create des TFileStream für Mode?

Eventuell mal mit den möglichen Kombinationen "rumexperimentieren".

z. B.: tFileStream('dateiname',fmCreate or fmShareExclusive);

[tomkupitz]

ich habe manchmal nur fmCreate verwendet. Dann ist

Zitat:

tFileStream('dateiname',fmCreate or fmShareExclusive);

ein Ansatz. Danke.

[himitsu]

Ja, Delphi ist hier bissl Andersrum.

Eigentlich ist beim CreateFile standardmäßig alles Exclusiv, aber beim TFileStream standardmäßig alles Shared.


Allerdings hast du beim fmCreate ein kleines Problem, denn dort kann man die Shared-Attribute nicht benutzen, weil das bereits $FFFF ist und $0010 (fmShareExclusive) da nicht mehr rein passt.
Falls nichts hilft, dann wäre noch THandleStream.Create(CreateFile(...), True) eine Variante.



PS: TFile.CreateXYZ, .OpenXYZ, .WriteXYZ und .AppendXYZ gibt es auch noch, auch wenn das intern auch wieder TFileStream benutzt, aber wenn es eh keinen Unterschied macht, dann wenigstens "einfach".
IOUtils.TFile

[samso]

Zitat von himitsu:

Allerdings hast du beim fmCreate ein kleines Problem, denn dort kann man die Shared-Attribute nicht benutzen, weil das bereits $FFFF ist

Das ist schon seit vielen Jahren nicht mehr so (mindestens seit Delphi 2010):

Delphi-Quellcode:

unit Classes;
...
const
{ TFileStream create mode }

  fmCreate = $FF00;

Das ändert aber nichts daran, dass ein simples TFilestream.Create(Filename, fmCreate) die Datei immer mit exclusivem Zugriff erstellt.
Erst wenn man den Share-Mode explizit angibt wird dieser benutzt. Damit ist es möglich die Datei mit "fmCreate or fmShareDenyWrite" zu erstellen um so anderen Programmen die Möglichkeit zu geben die Datei bereits während des Schreibens zu lesen (z.B. bei Logdateien). Diese Möglichkeit gab es bei den sehr alten Delphiversionen (z.B. Delphi 2007) so nicht.

[himitsu]

Ohh, dann hatten se das unbemerkt irgendwann behoben. (im XE war es noch $FFFF, wo ich gestern nur mal schnell in den Code schaute )

Wer hätte den ahnen können, dass es nach 20 Jahren mal repariert wird.

[samso]

Zitat von himitsu:

(im XE war es noch $FFFF, wo ich gestern nur mal schnell in den Code schaute )

Sorry, aber das glaube ich nicht, denn in der offiziellen Dokumentation steht etwas anderes VCL/XE/en/Classes

[himitsu]

Als wenn jemals in der Hilfe immer die Wahrheit drin stand.

Ich war mir ganz sicher gestern noch ein

Delphi-Quellcode:

const 
  fmCreate = $FFFF;

gesehn zu haben, als ich nach fmShareExclusive suchte.

Hmmm, stimmt, du hast Recht.

Aber fand grade nur noch diese Stelle (vermutlich diese Stelle im Augenwinkel gehabt)

Delphi-Quellcode:

constructor TFileStream.Create(const AFileName: string; Mode: Word; Rights: Cardinal);
var
  LShareMode: Word;
begin
  if (Mode and fmCreate = fmCreate) then
  begin
    LShareMode := Mode and $FF;
    if LShareMode = $FF then
      LShareMode := fmShareExclusive; // For compat in case $FFFF passed as Mode

und dich denke nicht, dass mir die Reste der alten Delphi 4, 7, TurboPascal und FreePascal unter die Augen kamen.