TFileStream - Datei bereits geöffnet ?

[slemke76]

Hi !

@DeddyH:
Ist ein guter Tip, damit könnte ich alternativ zu TFileStream die Fehler umschiffen; ich probiers.

@Die Muhkuh:
Könnten dann nicht die vermeintlich neueren Daten durch ältere überschrieben werden ?
Die besagte Datei wird *definitiv* nur durch die Anwendung in meinem Fehlerfall geöffnet und geschlossen. Wenn die Datei nun noch offen ist (wie er behauptet), dann muss das ja vom letzten Durchlauf kommen !? Wenn ich dann fmShareDenyNone verwende, könnte es dann passieren, dass der nächste Durchlauf mit den Daten des vorherigen überschrieben wird ?

@littleDave:
Die Datei muss jedes mal neu erstellt werden, aber ich weiss gar nicht, warum ich dann so einen Blödsinn da drin stehen habe; ich probiers aus !

@all: Es handelt sich i.ü. um einen W2k3 Server.

Ich suche eigentlich soetwas wie ein .Flush oder auch das Closehandle - eben so, dass ich sicher sein kann, dass die Daten wirklich geschrieben sind...


lg

[Die Muhkuh]

Hi,

Du könntest eine bool'sche Variable setzen, wenn die Datei offen ist. Wenn diese dann true ist, schreibst Du einfach nicht.

Warum müssen die Daten eig. pro Minute ein paar mal geschrieben werden?

[Neutral General]

Hi,

Probierst mal nur mit fmCreate ohne fmOpenWrite. Das müsste funktionieren... Und geschrieben werden die Daten spätestens wenn du Free aufrufst.

Gruß
Neutral General

[slemke76]

Hi,

@Neutral General:
Habe ich probiert; gleiches Problem :-( :
Stream := TFileStream.Create(XMLFile, fmCreate);
Somit dürfte auch die vorgeschlagene Fallunterscheidung nicht gehen....

@Die Muhkuh:
Wenn ich eine Boolsche Variable setze, habe ich so nichts davon; vom Ablauf her ist sicher gestellt, dass es keine Überlappungen gibt - der Timer, der die Funktion aufruft ist bis nach abarbeitung auf false und wird erst dann wieder gestartet.

Test mit IsFileInUse läuft, aber wie gesagt, das wäre ja nur ein "umgehen".

lg
Sebastian

[littleDave]

Zitat:

Zitat von slemke76

[...] Die Datei muss jedes mal neu erstellt werden [...]

Wie schauts den damit aus? Hast du schon geschaut, ob DeleteFile nicht manchmal fehl schlägt und warum? Ich glaub, dass wäre noch eine sinnvolle Stelle, an der du suchen kannst.

[Muetze1]

Zitat:

Zitat von slemke76

@Die Muhkuh:
Wenn ich eine Boolsche Variable setze, habe ich so nichts davon; vom Ablauf her ist sicher gestellt, dass es keine Überlappungen gibt - der Timer, der die Funktion aufruft ist bis nach abarbeitung auf false und wird erst dann wieder gestartet.

Aber genau dies scheint trotzdem das Problem zu sein, denn anders lässt sich der Fehler nicht erklären. Somit: probier dies mal mit der boolschen Variablen aus.

[slemke76]

Nochmal ich :-)

Das Problem ist im übrigen nicht neu:
http://groups.google.com/group/de.co...73bc0?lnk=raot

Ich habe ausserdem gelesen, das TStream von Delphi gepuffert ist.

Ich werde es jetzt auch nochmal mit
FlushFileBuffers(Stream.Handle) probieren.

lg

[Neutral General]

Hi,

Ansonsten versuch es mal mit meinem TFileStreamEx aus meiner MappedStreams.pas *Werbung mach* :mrgreen:

In den nächsten Tagen wird allerdings eine neue Version hochgeladen.

Gruß
Neutral General

[slemke76]

Hi,

@Neutral General:
bin ich vor 5 Minuten beim Googlen drauf gestossen. Das werde ich als letztes Ass im Ärmel behalten (als vorletztes - das letze wäre, das ganze mal mit fopen zu probieren :-) ).

@all:
Ich habe zum testen die Boolsche Variable jetzt mal gesetzt:

Delphi-Quellcode:

if (MainForm.testbool) then ShowMessage('FEHLER!');
MainForm.testbool:=true;
    Stream := TFileStream.Create(MainForm.AppDataDirConfig +  '\MicoData.xml', fmCreate);
    DomToXmlParser1.WriteToStream(FDoc, 'UTF-8', Stream);
    FlushFileBuffers(Stream.Handle);
    Stream.Free;
MainForm.testbool:=false;

lg

[slemke76]

Guten Morgen,

@Muetze1: Das Programm ist wieder abgestürzt und das "ShowMessage('FEHLER')" ist nicht ausgelöst worden; ausserdem habe ich nochmals alle Stellen des Sources geprüft; die Datei wird nur an der einen Stelle aufgemacht/geschrieben.

Es scheint also ein Problem von TFileStream zu sein...

Für heute morgen habe ich erstmal ein "if IsFileInUse" eingesetzt; zu mehr ist heute keine Zeit :cry:

lg