[gelöst] FileClose und CloseFile schliesst Datei nicht?

[bigg]

Zitat:

Das kann nicht sein. Entweder wird der Code nie aufgerufen oder in deinem MD5 Code wird die Datei noch mal geöffnet und nicht wieder geschlossen.

Nein, Luckie. Ich rufe keine weitere Dateioperation auf, die MD5-Funktionen auch nicht und
Free bzw. CloseFile werden aufgerufen.

[Luckie]

Und was, wenn du FreeAndNIl aufrufst? Für direkt da nach mal eine Schreib- oder Leseaktion mit der Streamvariable aus. Wenn es da kracht, dann wurde die Datei geschlossen und sie wird wo anders im Programm noch mal geöffnet. Schließ sie aber mit FreeAndnIl, damit der Zeiger auch ungültig wird.

[SirThornberry]

wenn du den teil zwischen öffnen der Datei (TFileStream.Create) und dem Freigeben der Datei mal auskommentierst kannst du sicherstellen das der Fehler da liegt.

[bigg]

Hier die Proben:

Delphi-Quellcode:

CloseFile(AFile);
ShowMessage(IntToStr(FileSize(AFile)));

Erzeugt einen Fehler.

Delphi-Quellcode:

ShowMessage(IntToStr(FileSize(AFile)));
CloseFile(AFile);

Das funktioniert, aber warum kann ich die Datei nicht umbenennen?

[Luckie]

Die Dateigrößer ermittlen ist was anderes als umbenennen.

[bigg]

OMG :shock: , ich habe den Fehler ausfündig gemacht.
Er entsteht beim Öffnen über den Datei-Dialog. :mrgreen:

Man man :angel2:

[Luckie]

Was habe ich dier ganze Zeit gesagt? :roll:

[bigg]

Na und was fehlt hier? CloseFile! :wall: :wall: :wall: :wall: :wall: :wall:

Delphi-Quellcode:

function IsFileInUse(FileName: String): Boolean;
var AFile: File;
begin
Result := False;

if FileExists(FileName) then
begin
  AssignFile(AFile, FileName);
  FileMode := fmOpenRead or fmShareDenyNone;

  {$i-}
    Reset(AFile, 1);
  {$i+}

if IOResult <> 0 then
Result := True;

end;
end;

Danke nochmal für die geistige Unterstützung :thumb: