TFileStream - Datei bereits geöffnet ?

[slemke76]

Hallo zusammen,

folgender Source:

Delphi-Quellcode:

    Stream := TFileStream.Create(XMLFile, fmCreate or fmOpenWrite);
    DomToXmlParser1.WriteToStream(FDoc, 'UTF-8', Stream);
    // auch schon getestet : CloseHandle(Stream.Handle);
    Stream.Free;

Dieses Stück Code steht an einer Stelle, die mehrere Male pro Minute durchlaufen wird.
Das Problem ist nun, dass nach einer gewissen Zeit (immer unterschiedlich) das Programm stoppt und sagt, dass die Datei <xmlfile> nicht geöffnet werden könne, weil ein anderer Prozess darauf zugreift.
Ich habe jetzt das ganze erstmal in ein try...finally verpackt, aber das löst ja nicht das zugrunde liegende Problem. Ein CloseHandle habe ich auch schonmal probiert.

Hat jemand eine Idee ? Ich kann die Datei auch leider nicht geöffnet lassen (geht einfach nicht...).

lg
Sebastian

[edit=SirThornberry]"Problem" aus Titel entfernt - Mfg, SirThornberry[/edit]

[Die Muhkuh]

Zitat von slemke76:

Ich kann die Datei auch leider nicht geöffnet lassen (geht einfach nicht...).

Warum?

[slemke76]

Hi !

unmöglich ist gar nichts; aber der Aufwand ist extrem hoch.
Ausserdem geht es mir auch ein wenig darum, das Problem zu verstehen. Wenn ich ein Closehandle und/oder Free mache, dann gehe ich doch davon aus, dass die Datei auch genauso gespeichert ist. Selbst wenn ein Cache dazwischen ist, müsste die nächste Lese-Anfrage ja auf den Cache bedient werden und da ist die Datei ja zu...

lg
Sebastian

[SirThornberry]

@slemke76: Könntest du deinem Beitrag bitte einen aussagekräftigen Titel geben?

[slemke76]

Zitat von SirThornberry:

@slemke76: Könntest du deinem Beitrag bitte einen aussagekräftigen Titel geben?

ok so ?

lg

[Die Muhkuh]

Zitat von slemke76:

Zitat von SirThornberry:

@slemke76: Könntest du deinem Beitrag bitte einen aussagekräftigen Titel geben?

ok so ?

lg

Jupp

[slemke76]

Hi!

Dann also zurück zum Thema Hat jemand eine Idee ?

lg
Sebastian

[DeddyH]

IsFileInUse

[Die Muhkuh]

Hi,

Du könntest mal noch den Modus "fmShareDenyNone" verwenden:

Zitat von Delphi-Hilfe:

fmShareDenyNone
Andere Anwendungen können die Datei ohne Einschränkungen zum Lesen oder Schreiben öffnen.

[littleDave]

Ich glaube sogar, dass das:
fmCreate or fmOpenWrite Probleme machen kann. Ich würd das als erstes mit einer if-Abfrage lösen:

Delphi-Quellcode:

if FileExists(XMLFile) then
  Stream := TFileStream.Create(XMLFile, fmOpenWrite)
else
  Stream := TFileStream.Create(XMLFile, fmCreate);

Ist nur so eine Vermutung von mir, dass fmCreate zusammen mit fmOpenWrite Probleme machen könnte - ist aber reine Spekulation.