Zugriff auf Datei gescheitert, von anderem Prozess verwendet

[Berlinermauer]

Hi, im Folgenden Code Speicher ich ein Memo als .log Datei.
Bekomme den Fehler, dass diese Datei angebl. von einem Anderen Prozess benutzt wird.

Dies macht aber kein Sinn, da die Datei grad davor erstellt wurde, AntiVirus aus ist usw..

Delphi-Quellcode:

procedure Get_Logdir;
begin
if DirectoryExists (ExtractFilePath(ParamStr(0)) + 'Logs') then
  begin
   s := './logs/' + FormatDateTime('dd-mm-yyyy',Now) + '.log';

  AssignFile(Log,s);
  rewrite(log);
  end

dann im OnCreate Get_Logdir.

Log.Lines.SavetoFile(s); <-- Hier kommt der Fehler

[DeddyH]

Zum Einen sollte man im eigenen Programmverzeichnis bzw. Unterordnern davon nicht schreiben, zum Anderen fehlt da irgendwie ein CloseFile.

[khh]

Zitat von DeddyH:

Zum Einen sollte man im eigenen Programmverzeichnis bzw. Unterordnern davon nicht schreiben,

OT: kannst du das bitte mal begründen.


Gruss Kh

[toms]

Zitat von khh:

Zitat von DeddyH:

Zum Einen sollte man im eigenen Programmverzeichnis bzw. Unterordnern davon nicht schreiben,

OT: kannst du das bitte mal begründen.

Da nicht alle Schreibrechte im Programmverzeichnis haben.

[DeddyH]

Ja, kann ich. Wenn Du unter XP/Vista als Nicht-Admin unterwegs bist, hast Du schlicht keine Rechte dazu.

[khh]

Zitat von DeddyH:

Ja, kann ich. Wenn Du unter XP/Vista als Nicht-Admin unterwegs bist, hast Du schlicht keine Rechte dazu.

also schreibts du ins user -verzeichnis?
Das ist unter Vista etwas kompliziert, oder ?

[DeddyH]

Ich hab kein Vista, aber das User-Verzeichnis zu ermitteln dürfte nicht schwerer sein als unter XP (es sei denn, da ist etwas an mir vorbeigegangen).

[khh]

Zitat von DeddyH:

Ich hab kein Vista, aber das User-Verzeichnis zu ermitteln dürfte nicht schwerer sein als unter XP (es sei denn, da ist etwas an mir vorbeigegangen).

muss ich mir mal zu gemüte führen

[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

[Uwe Raabe]

Zitat von Berlinermauer:

Delphi-Quellcode:

procedure Get_Logdir;
begin
if DirectoryExists (ExtractFilePath(ParamStr(0)) + 'Logs') then
  begin
   s := './logs/' + FormatDateTime('dd-mm-yyyy',Now) + '.log';

  AssignFile(Log,s);
  rewrite(log);
  end

dann im OnCreate Get_Logdir.

Log.Lines.SavetoFile(s); <-- Hier kommt der Fehler

Du scheinst hier die Variable Log in unterschiedlichen Ausprägungen zu benutzen: Auf der einen Seite wird sie mit AssignFile und Rewrite wie ein File oder TextFile verwendet, auf der anderen Seite aber mit Log.Lines.SaveToFile wie ein TMemo. Vermutlich handelt es sich um zwei verschiedene Variablen, aber das geht aus den Code-Snippets nicht hervor.

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.