Fehler beim überschreiben von Datei

[EWeiss]

Zitat von s.h.a.r.k:

Was genau für ein Fehler? Da gibts doch immer eine Nummer, oder?

I/O Error 32 // << Datei ist belegt. Dateiname ist möglicherweise bereits vorhanden und geöffnet.

Meinst das ?

Ist aber geschlossen.

EDIT:
Fülle den Buffer
FBuffin(MidiTrackerFile);

Delphi-Quellcode:

procedure FBuffin(FileName: string);
var
  sBuffer: string;

begin

  if not FExist(FileName) then Exit;
    nErrCode := FOpen(FileName, 0, 2, myFile);
  if nErrCode <> 0 then exit;
    nReading := 0;

  Assignfile(ParseFile, FileName);
  reset(ParseFile);

  while not eof(ParseFile) do
  begin
    ReadLN(ParseFile, sBuffer);
    FSeekTo(nReading, sBuffer);
    inc(nReading);
  end;

end;

Dann öffne ich die Datei und setze die Zugriffsrechte
FOpen(FileName, 0, 2, myFile);
Nur Lesen
0= AccessIs := GENERIC_READ;
Schreibzugriff verweigern.
2= ShareIs := FILE_SHARE_READ

Nach dem einlesen der datei wird alles wieder geschlossen und auf nil gesetzt

Delphi-Quellcode:

  // MidiTrackerFile schließen
  FClose(myFile);

  FPBuffer := nil;
  FToPBuffer := nil;
  Result := True;

Theoretisch dürfte jetzt kein zugriff auf die Datei mehr vorhanden sein.
Aber trotzdem kann ich sie nicht überschreiben.
Die Zugriffsrechte dürften dann keinen Einfluss mehr auf die Datei haben
nach dem schließen.

gruss