Zugriff auf Datei gescheitert, von anderem Prozess verwendet

[DeddyH]

SHGetFolderPath mit CSIDL_APPDATA ist in meinen Augen nicht soooo kompliziert

[edit]

Zitat von Uwe Raabe:

Bemerkenswert ist aber, daß im Get_LogDir ein File geöffnet wird (warum?) und dieses anscheinen auch bleibt. Das hat allerdings zur Folge, daß die Datei gesperrt ist und somit ein nachfolgendes SaveToFile auf den gleichen Dateinamen schiefgehen muss.

Deshalb meinte ich ja, da fehlt ein CloseFile. Wobei man sich wirklich fragt, wozu die Datei vorher angelegt wird [/edit]

[SirThornberry]

Zitat von Meflin:

Zitat von khh:

Das ist unter Vista etwas kompliziert, oder ?

Ganz im Gegenteil. Wenn du mit mangelnden Rechten in Vista ins Programm-Verzeichnis schreiben willst, landet das sogar ganz automatisch im Roaming-Ordner deines User-Verzeichnisses

Was passiert dann wenn man nachträglich die nötigen Rechte bekommt? wird dann zukünftig weiterhin diese genutzt oder wird eine neue angelegt?

[Christian Seehase]

Moin,

was mir noch aufgefallen ist:
Du prüfst zwar den vollen Pfad, benutzt dann aber zum Speichern einen relativen (./logs).
Das kann auch schiefgehen.

[Berlinermauer]

Also ich wollte damit bezwecken, dass der Text nicht überschrieben sondern erweitert wird.

[DeddyH]

Dann fallen mir spontan 2 Möglichkeiten ein: eine Stringlist erzeugen, alten Inhalt hineinladen und mit Addstrings anfügen oder Datei nicht mit Rewrite, sondern ggf. mit Append öffnen.

[Meflin]

Zitat von SirThornberry:

Was passiert dann wenn man nachträglich die nötigen Rechte bekommt? wird dann zukünftig weiterhin diese genutzt oder wird eine neue angelegt?

Ich habe erlichgesagt keine Ahnung. Normalerweise müsste eine neue angelegt werden - die Frage wäre dann, ob die alte dabei berücksichtigt wird oder nicht

Ergänzend sei gesagt: das genaue Verzeichnis ist nicht Roaming, sondern Local\VirtualStore und das funktioniert auch "nur" bei Anwendungen, die kein Vista-Manifest haben (oder allen die im Kompatibilitätsmoduis ausgeführt werden)

[Berlinermauer]

naja mit Append scheint auch nicht zu funktionieren.

Ich glaube aber es liegt daran dass ich bei jeder neuempfangenen ChatNachricht wieder den ganzen log reinschreib.

weiß jemand wie ich es besser machen könnte?

[DeddyH]

Zitat von Berlinermauer:

naja mit Append scheint auch nicht zu funktionieren.

[Berlinermauer]

wenn ich statt "ReWrite", "Append" eingebe funktioniert es trotzdem noch nicht

[DeddyH]

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
const sDateiname = 'C:\Test.txt'; //nur zum Testen
var F: TextFile;
begin
  AssignFile(F,sDateiname);
  {$I-}
  if FileExists(sDateiname) then
    Append(F)
  else
    Rewrite(F);
  {$I+}
  if IOResult = 0 then
    begin
      writeln(F,'Eine weitere Zeile');
      CloseFile(F);
    end
  else
    ShowMessage(Format('IOResult = %d',[IOResult]));
end;